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EINLEITUNG 


C16/C116 im Aufwind 


M an sollte es nicht für möglich 
halten - und doch stimmt es: 

Der Commodore C 16/C 116 
erlebt eine Wiederbelebungsphase 
sondergleichen. Schon vor seinem 
Erscheinen berichteten wir in der 
ersten 64’er-Ausgabe (4/84) vom 
neuen Plus 4 (damals wurde noch vom 
264/364 gesprochen) und vom »Gum¬ 
micomputer« C116. Beiden Computern 
wurde nicht viel Erfolg prophezeit - zu 
Recht. Sie waren damals allesamt zu 
teuer. Doch zur Zeit sieht es etwas 
anders aus. Commodore hat die Preise 
purzeln lassen. Man kann durchaus von 
einem Ausverkauf erster Klasse spre¬ 
chen. Bedenkt man, was man zur Zeit 
für runde 140 Mark bekommt, dann ist 
es schon verlockend zuzugreifen. Für 
so wenig Geld hat es noch nie so viel 
Computerleistung gegeben. Der mitge¬ 
lieferte Basic-Lernkurs macht das 
Angebot auch für Computerscheue 
interessant. Und dementsprechend ist die Reaktion. Inner¬ 
halb kürzester Zeit wurden insgesamt mehr als 60000 
C 16/C 116 abgesetzt. 

Doch dabei soll's nicht bleiben: Commodore wird nochmal 
60000 C 16/116 auf den Markt bringen, wahrscheinlich in 
Form eines Basic-Kurses mit Computer. Wir wissen, daß es 
für diese Computer relativ wenig Informationen, insbeson¬ 
dere Grundlagen und Programme gibt. Aus diesem Grund 
entstand dieses Sonderheft. 

Aus einem ganz anderen Grund wollen wir die VC 20- 
Besitzer nicht vergessen. Dieser Oldtimer wird nicht mehr 
hergestellt. Jedoch existieren noch sehr viele davon. Viele 
ehemaligen VC 20-Besitzer haben ihn weiterverkauft oder an 
Freunde und Bekannte verschenkt, weil sie zum Beispiel auf 
den C 64 umgestiegen sind. Deshalb haben wir den VC 20 
mit in dieses Sonderheft aufgenommen. 

Zwar sind der VC 20 und der C 16/C 116 relativ ungleiche 
Brüder, doch zeigt zum Beispiel der Artikel »VC20/C16 
durchschaut«, daß sie nicht ganz verschieden sind. Wenn in 
den Basic-Programmen des VC20 (und des C64) keine 
SYS-, POKE- und USR-Befehle stehen, kann jeder CI6/ 
C116-Besitzer diese Programme ebenfalls benutzen. Was 
genau geht und was nicht, lesen Sie im Artikel »C64-Pro- 
gramme für C16 und VC 20«. Wenn Sie also in unserem 
64’er-Stammheft interessante Programme für den C 64 fin¬ 
den, ist es in vielen Fällen (wenn auch nicht immer) möglich, 
diese an Ihren Computer anzupassen. 

Für VC 20-Besitzer haben wir noch einen Leckerbissen 
bereit: ein Programm, das Maschinenroutinen fürdenC64an 
den VC20 anpaßt! Das gelingt in sehr vielen Fällen. 

Da für den VC 20 schon sehr viel geschrieben wurde, liegt 
der Schwerpunkt auf den Spielelistings. Es ist fantastisch, 
was die Programm-Autoren aus diesem kleinen Computer 
noch herausgeholt haben! 

Was vorhandene Literatur angeht, ist es um den C16/C116 
schon wesentlich schlechter bestellt. Bücher sind so gut wie 


keine geschrieben worden, und auch 
Commodore selbst gab dem Computer 
nur wenig Lektüre mit auf den Weg, 
Deshalb finden C 16/C 116-Besitzer 
in diesem Sonderheft eine Menge 
Grundlagenwissen über Ihren Com¬ 
puter. Dazu gehört die Hardware, also 
die »Innereien« des C16, die interne 
Software (Basic und Betriebssystem) 
und natürlich die Peripherie, also die 
Geräte, die man anschließen kann, wie 
Drucker, Floppy und vor allem die Data- 
sette. 

Wir zeigen Ihnen, wie man mit der 
Datasette umgeht, wie Dateien ange¬ 
legt werden und wie man Fehler verhin¬ 
dert oder findet. Wenn beim Laden von 
Programmen Fehler auftauchen, kann 
es an einer falsch justierten Datasette 
liegen. Wir sagen Ihnen, was dann zu 
tun ist. 

Natürlich fehlen auch Listings nicht. 
Es gibt viele hervorragende Programme 
zum Spielen und jede Menge Tips&Tricks-Listings. 

Insgesamt glauben wir, daß hier jeder auf seine Kosten 
kommt, sowohl der VC 20- als auch der C16/C 116-Besitzer, 
sowohl der Spiele-Fan als auch der Programmierer. Wenn Sie 
dann noch Fragen haben oder wenn Sie neue Tips oder Pro¬ 
gramme loswerden wollen, dann schreiben Sie uns doch ein¬ 
fach. (Georg Klinge) 


Programmservice 

Wer keine Zeit oder Lust hat. alle Programme selbst in 
mühevoller Kleinarbeit abzuschreiben, kann wieder auf 
den bewährten Disketten- und Kassettenservice zu¬ 
greifen. Alle Programme, die mit dem Disketten- oder 
Kassettensymbol im Inhaltsverzeichnis gekennzeichnet 

sind, gibfs auf Kassette und/oder Diskette. 

Auf der Diskette sind alle gekennzeichneten Programme 
enthalten. 

Es gibt zwei Kassetten: eine für den C 16/116 mit 
allen C 16/116 Programmen und eine zweite mit allen 
VC 20-Programmen. Es gibt einige Programme, die zwar 
der Vollständigkeit halber auf den Kassetten gespei¬ 
chert sind, jedoch nur mit einer Diskettenstation lauf¬ 
fähig sind. Bitte lesen Sie deshalb die Anleitungen zu 
den Programmen genau durch. 

Bestell-Nr. L6 86 S3 CD 

(für VC 20 und C 16/116) 1 Diskette 29,90 Mark* 
Bestell-Nr. L6 86 S3 KV 

(nur VC 20) 1 Kassette 19,90 Mark* 

Bestell-Nr. L6 86 S3 KC 

(nur C 16/116) 1 Kassette 19,90 Mark* 

inkl. MwSt. 
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C16 


Daten 

verwalten mit 

derDalasette 

Mit der Datasette kann man nicht nur Programme 
laden und speichern, sondern auch Daten verwal¬ 
ten. Wir zeigen Ihnen, wie das gemacht wird und 
was dabei beachtet werden muß. 

I m folgenden Artikel soll dargestellt werden, welche Mög¬ 
lichkeiten zur Datenspeicherung die Datasette außer dem 
Speichern und Laden von Programmen bietet. 

Die Arbeit mit Programmen ist unproblematisch und muß 
daher wohl nicht näher beschrieben werden. Sie alle wissen, 
daß zum Speichern eines Programms der Befehl »SAVE« und 
zum Laden der Befehl »LOAD« zur Verfügung steht, daß der 
Benutzer die Möglichkeit hat, ein Programm unter einem 
bestimmten Namen zu speichern (SAVE»TESTPROG«), und 
mit dem Befehl »VERIFY« überprüfen kann, ob das Speichern 
fehlerfrei gelang. 

Probleme können vor allem bei der Verwendung von Kas¬ 
setten großer Länge auftreten. Ich persönlich verwende seit 
langem sogenannte »Datenkassetten« mit einer Länge von 10 
Minuten pro Seite, die mir noch nie Ärger bereitet haben. 

Sollten Sie des öfteren einen »LOAD ERROR« oder einen 
»VERIFY ERROR« auf dem Bildschirm erhalten, ist wahr¬ 
scheinlich entweder der Tonkopf Ihrer Datasette nicht ein¬ 
wandfrei justiert oder aber verschmutzt. 

Ebenso wie bei jedem Kassettenrecorder sollte zuerst 
eine Tonkopfreinigung mit einer Reinigungskassette oder 
einem Reinigungsspray versucht werden. Wenn sich auch 
nach der Reinigung Probleme mit dem Laden von Program¬ 
men ergeben, ist der Tonkopf meist dejustiert und ein Gang 
zur Fachwerkstatt fällig, die über die zur einwandfreien 
Justierung nötigen Meßgeräte verfügt. 

Die Datasette wird meistens zum Laden und Speichern von 
Programmen verwendet. Ihre Möglichkeiten sind damit 
jedoch bei weitem nicht ausgeschöpft. Mit diesem Gerät las¬ 
sen sich nämlich Daten beliebiger Art verwalten, das heißt 
außer Programmen auch Termine, Benzinkosten, Adreß- oder 
Schallplattendateien und vieles mehr. 

Die Verwaltung solcher Daten ist leider weitaus komplizier¬ 
ter als das Laden und Speichern eines normalen Programms. 
Im Handbuch des C16/C116 finden Sie dies nur sehr unzurei¬ 
chend beschrieben. 

Grundsätzlich lassen sich mit der Datasette nur soge¬ 
nannte »sequentielle« Dateien verwalten, im Gegensatz zur 
Floppy-Disk, die auch »Direktzugriffsdateien« verwalten 
kann. Wie der Name bereits sagt, kann auf alle Daten einer 
Direktzugriffsdatei unmittelbar zugegriffen werden. Wenn 
zum Beispiel die Telefonnummer des Herrn »Müller« gesucht 
wird, greift man auf jene Stelle in der gesamten Datei zu, an 
der sich der Datensatz »Müller« befindet. Der komplette 
Datensatz, der zum Beispiel aus den Teilen »Name: Müller«, 
»Vorname: Gerd«, »Adresse: München« und »Telefonnr.: 
1234/56789« bestehen könnte, wird eingelesen und auf 
dem Bildschirm ausgegeben. 

Ein solcher gezielter Zugriff auf bestimmte Teile einer Datei 
ist mit der Datasette leider nicht möglich. Um auf gesuchte 
Daten zuzugreifen, muß die gesamte Datei ab dem Dateian¬ 


fang gelesen werden, bis die Bandposition erreicht wird, an 
der die gesuchten Daten abgespeichert wurden. 

Zur Verdeutlichung des Unterschieds zwischen direktem 
und sequentiellem Zugriff bietet sich der Vergleich von Plat¬ 
tenspieler und Kassettenrecorder an: Um ein bestimmtes 
Lied zu hören, kann der Tonarm des Plattenspielers direkt zu 
jener Stelle der Schallplatte bewegt werden, an der das Stück 
beginnt. Beim Kassettenrecorder ist dieser direkte Zugriff 
nicht möglich. Das Band muß vor- oder zurückgespult wer¬ 
den, bis das jeweilige Lied gefunden wurde, die einzelnen 
Stücke werden »sequentiell« (der Reihe nach) abgesucht. 

Halten wir somit fest: Mit einer Datasette als externem 
Speicher können nur sequentielle Dateien verwaltet werden, 
das heißt, Daten können nur der Reihe nach auf das Band 
geschrieben oder gelesen werden. 

Nehmen wir nun an, Sie haben ein Programm zur Verwal¬ 
tung der Adressen Ihrer Freunde, Bekannten, Verwandten 
etc. geschrieben, alle Adressen bereits eingetippt und 
gespeichert. Einen Monat später wollen Sie nun drei dieser 
Bekannten anschreiben, um sie zu Ihrer Geburtagsfeier ein¬ 
zuladen. 

Da Sie sich nicht mehr exakt an die Adressen dieser 
Bekannten erinnern können, wollen Sie in der Adreßdatei 
nachschauen. Sie legen die Kassette ein, auf der sich die 
Datei befindet, spulen sie zum Dateianfang zurück und 
suchen zum Beispiel nach »Andreas«. Der erste Bekannte 
wird nun gesucht. Wenn er gefunden wird, gibt Ihr Programm 
die komplette Adresse auf dem Bildschirm aus, und Sie kön¬ 
nen den ersten Brief adressieren. 

Nun spulen Sie die Kassette wieder zum Dateianfang 
zurück, suchen nach dem zweiten Bekannten und notieren 
sich auch dessen Adresse, sobald sie auf dem Bildschirm 
erscheint Die Kassette wird nun ein letztes Mal zurückge¬ 
spult, und die Suche nach der dritten Adresse kann begin¬ 
nen. 

Wie Sie sehen, ist diese Art des Umgangs mit Ihrer Adreß¬ 
datei außerordentlich unkomfortabel. Jedesmal wenn 
bestimmte Daten gesucht werden sollen, müssen Sie die 
Kassette bis zum Anfang der Datei zurückspulen. Da die 
Datasette nicht gerade der schnellste Massenspeicher ist, 
kann die Suche geraume Zeit in Anspruch nehmen, je nach¬ 
dem, wie umfangreich Ihre Datei ist. 

In der Praxis wählt man daher eine andere Methode des 
Umgangs mit sequentiellen Dateien: Zu Beginn der Arbeit 
lädt man die komplette Datei vom Band in den Computerspei¬ 
cher, das heißt, man liest jeden einzelnen Datensatz ein. Wird 
eine bestimmte Adresse gesucht, erfolgt die Suche nicht 
mehr auf der Kassette, sondern im Comp.uterspeicher, der ja 
nun alle Adressen enthält. Diese Suche im Speicher des C16 
verläuft erheblich schneller als die Suche auf der Kassette. 
Der Nachteil dieser Methode besteht in der Beschränkung 
der maximalen Dateigröße. Da alle Daten in den Computer 
geladen werden, darf die Datei höchstens ebenso groß sein 
wie der verfügbare freie Speicherplatz. Beim C 16 stehen 
12 KByte an freiem Speicher zur Verfügung, von dem jedoch 
der Platz abgezogen werden muß, den das Dateiverwaltungs¬ 
programm selbst belegt. Da jedes Programm Variablen ent¬ 
hält, die ebenfalls Platz im Speicher benötigen, wird der für 
die Datei verfügbare freie Computerspeicher noch weiter ein¬ 
geschränkt. 

Ein Beispiel: Nehmen wir an, das Programm und die von 
ihm benötigten Variablen belegen 6 KByte. Für die Datei ste¬ 
hen somit noch 12-6=6 KByte zur Verfügung. Da ein Kilo¬ 
byte 1024 Zeichen entspricht, darf die Datei bis zu 
6*1024=6144 Zeichen enthalten. Wenn eine Adresse, die 
aus den Teilen »Name«, »Vorname«, »Straße«, »Wohnort« und 
»Telefonnr.« besteht, im Durchschnitt zirka 80 Zeichen ent¬ 
hält, kann die Datei etwa 6144/80=76,8 Datensätze enthal¬ 
ten. Wir sehen an diesem Beispiel, daß uns der C16 in Verbin- 
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düng mit der Datasette die Verwaltung kleinerer Adreßda- 
teien erlaubt, jedoch ungeeignet ist für den kaufmännischen 
Einsatz, zum Beispiel die Verwaltung eines Lagers mit mehre¬ 
ren tausend Artikeln. Im folgenden werden wir uns daher auf 
den Einsatz im privaten Bereich beschränken. 

Welche Befehle der C 16 zum Speichern und Laden von 
Dateien besitzt, will ich nun anhand eines kleinen Programms 
besprechen, das den Durchschnittsverbrauch eines Kraft¬ 
fahrzeuges ermitteln soll. Um den Durchschnittsverbrauch 
zu berechnen, benötigt unser Programm Angaben über die 
gefahrenen Kilometer und den gesamten Benzinverbrauch. 
Der Gesamtverbrauch wird durch die Kilometerzahl geteilt 
und mit 100 multipliziert. 

Beispiel: 

Gefahrene Kilometer: 3435 

Gesamtverbrauch: 273 Liter 

Durchschnittsverbrauch pro 100 Kilometer: 

273/3435*100=7,9 Uter 

Selbstverständlich können wir den Durchschnittsver¬ 
brauch jederzeit auch ohne unseren C16 ermitteln. Mit dem 
C 16 verringert sich der Aufwand hierzu jedoch erheblich: 
jedesmal wenn wir tanken, geben wir anschließend die Liter¬ 
zahl und den momentanen Kilometerstand ein. Alle nötigen 
Berechnungen soll unser Programm vornehmen. 

200 rem durchschnittsverbrauch 
210 ak=10000:rem anfangskilometerstand 
220 : 

230 input" anzahl getankter liter" ;li 
240 sl=sl+li:rem summe liter 
250 : 

260 input" momentaner kilometerstand" ;km 
270 sk=km-ak:rem summe kilometer 
280 : 

290 dv=sl/sk*100:rem verbrauch 
300 print" durchschnittsverbrauch:" dv" 1/100 km" 
310 : 

320 goto 230:rem naechste eingabe 

Programmablauf: 

Wenn Sie dieses Programm benutzen, müssen Sie zuerst 
eine Programmzeile ändern: In Zeile 210 ist der Kilometer¬ 
stand zu Beginn der Programmbenutzung festgelegt. Korri¬ 
gieren Sie bitte den als Beispiel verwendeten Wert 10000 
entsprechend Ihrem Tachostand. 

Wenn Sie das Programm starten, werden Sie nach der 
Jeweiligen Literzahl »li« gefragt. Alle von Ihnen nach Tankvor¬ 
gängen eingegebenen Literzahlen werden addiert (Zeile 
240). Die Variable »sl« stellt daher den bisherigen Gesamt¬ 
verbrauch dar. 

Anschließend werden Sie nach dem momentanen Kilome¬ 
terstand gefragt. Die Summe der gefahrenen Kilometer ergibt 
sich aus der Differenz zwischen dem momentanen Kilome¬ 
terstand »km« und dem Stand zu Beginn der Ermittlung des 
Verbrauchs »ak« (Zeile 270). 

Wie besprochen wird nun der Durchschnittsverbrauch 
ermittelt, indem der Gesamtverbrauch »sl« durch die gefahre¬ 
nen Kilometer »sk« geteilt und das Ergebnis mit 100 multipli¬ 
ziert wird (Zeile 290). Der in der Variablen »dv« enthaltene 
Durchschnittsverbrauch wird errechnet und auf dem Bild¬ 
schirm ausgegeben. 

Den Abschluß des Programms bildet ein Sprung zum Be¬ 
ginn der Abfragen (Zeile 320). Wenn Sie Ihren C16 Tag und 
Nacht eingeschaltet lassen, wird das Programm geduldig 
warten, bis Sie wieder tanken und erneut Literzahl und Kilo¬ 
meterstand eingeben. 

Dieses Programm funktioniert zwar einwandfrei (probieren 
Sie’s aus), hat jedoch den Nachteil, daß Ihr C 16 für keinen 
anderen Zweck mehr verwendbar ist. Sobald Sie das Pro¬ 


gramm unterbrechen und ein anderes Programm eingeben 
oder den Computer ausschalten, geht der Inhalt der Varia¬ 
blen »sl«, das heißt die Summe getankter Liter, verloren, und 
alle folgenden Berechnungen, die auf diesem Wert basieren, 
sind falsch! 

Dieser Wert muß daher unbedingt nach jeder Programmbe¬ 
nutzung in einer Datei abgespeichert werden, und vor der 
eigentlichen Dateneingabe und Verbrauchsermittlung muß 
diese Datei in den Computerspeicher geladen werden. 

Datenkanal öffnen: 

Um Daten auf Band zu schreiben oder zu lesen, muß immer 
ein sogenannter »Datenkanal« geöffnet werden. Diesen 
Kanal kann man sich als Verbindung zwischen C 16 und 
Kassettenrecorder vorstellen, über den die Daten aus¬ 
getauscht werden. Der zugehörige Befehl besitzt folgende 
Syntax: 

OPEN (LF),(GN),(SA),* (FN)" 

LF: logische Filenummer, eine beliebige Zahl zwischen 1 
und 255. Wenn im weiteren Programmablauf Daten geschrie¬ 
ben oder gelesen werden sollen, muß immer diese Filenum¬ 
mer angegeben werden. 

GN: Gerätenummer. Sie gibt an, mit welchem Gerät 
(Drucker, Datasette, Floppy) Daten ausgetauscht werden 
sollen. Die Datasette besitzt die Gerätenummer 1, die Floppy 
die Gerätenummer 8. 

SA: Sekundäradresse, im Fall der Datasette eine Null, Eins 
oder Zwei. Benötigt werden üblicherweise nur die Zahlen Null 
und Eins, wobei Null bedeutet, daß Daten vom Band gelesen 
werden sollen, und Eins, daß Daten auf das Band geschrie¬ 
ben werden. 

FN: Hiename (=Dateiname), der Name der betreffenden 
Datei. Die Angabe eines Filenamens ist sehr vorteilhaft, da 
mehrere Dateien auf einer Kassette enthalten sein können. 
Wenn wir eine bestimmte Datei lesen wollen, wird unser C16 
alle vorhergehenden Dateien überlesen, bis er zu jener Band¬ 
stelle kommt, an der die Datei beginnt, deren Filenamen wir 
im OPEN-Befehl angaben. 

Beispiele: 

OPEN 1,1,0," TESTDATEI" 

öffnet einen Datenkanal zwischen C 16 und Datasette 
(Gerätenr. 1). Die Richtung des Datenaustauschs verläuft von 
der Datasette zum C16 (Sekundäradresse 0 = Daten lesen), 
die gesuchte Datei hat den Namen »TESTDATEI«. 

OPEN 1,1,1," VERBRAUCH" 

öffnet einen Datenkanal zwischen C16 und Datasette. Da 
als Sekundäradresse eine Eins angegeben wurde, sollen 
Daten auf das Band geschrieben werden. Die Datei erhält den 
Namen »VERBRAUCH«. 

Daten auf Band schreiben: 

Um ein Programm zu laden oder zu speichern genügt die 
Eingabe eines einzigen Befehls (»LOAD«/»SAVE«), weitere 
Angaben sind nicht erforderlich. 

Die Arbeit mit Dateien ist erheblich aufwendiger, da wir 
unserem Computer angeben müssen, welche Daten abge¬ 
speichert oder eingelesen werden sollen. Die Befehlssyntax 
zum Schreiben von Daten auf Kassette: 

PRINT #(LF), (DATEN) 

LF: Logische Filenummer, die wir beim Öffnen des Daten¬ 
kanals angaben. 

DATEN: Variable, die die zu schreibenden Daten enthält 
oder unmittelbare Angabe der Daten. 
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Beispiele: 

PRINT# 1,A$ 

Schreibt den Inhalt der Variablen A$ auf Band (wenn zuvor 
ein Kanal zum Schreiben unter der log. Filenummer Eins 
geöffnet wurde). 

PRINT #1,X 

Schreibt den Inhalt der numerischen Variablen X auf Band. 

PRINT# 1," DIES IST EIN TEST" 

Schreibt die Zeichenkette »DIES IST EIN TEST« auf Band. 
Die Ähnlichkeit mit dem PRINT-Befehl, der der Datenaus¬ 
gabe auf dem Bildschirm dient, ist unverkennbar. Der einzige 
Unterschied besteht in der Angabe der logischen Filenum¬ 
mer, damit unser Computer die Daten nicht auf dem Bild¬ 
schirm ausgibt, sondern über den bereits geöffneten Daten¬ 
kanal an die Datasette schickt. 

Daten vom Band lesen: 

Viele werden nun bereits ahnen, wie der entsprechende 
Befehl zum Einlesen von Daten lautet: INPUT#. Die genaue 
Syntax: 

INPUT# (LF), (VARIABLE) 

LF: Logische Filenummer, die wir beim Öffnen des Daten¬ 
kanals angaben. 

DATEN: Variable, in der die zu lesenden Daten übergeben 
werden sollen. 

Beachten Sie auch beim INPUT #-Befehl die Analogie zum 
INPUT-Befehl, der eine über die Tastatur vorgenommene Ein¬ 
gabe einer Variablen zuweist. INPUT # erfüllt die gleiche Auf¬ 
gabe für Eingaben von einem Peripheriegerät (Datasette, 
Floppy). 

Beispiele: 

INPUT #1,A$ 

Liest eine Zeichenkette und übergibt sie in der Variablen A$. 
INPUT# 1,X 

Liest eine Zahl und übergibt sie in der Variablen X. 

Datenkanal schließen: 

Wenn eine Datei komplett in den Computerspeicher gele¬ 
sen oder auf Band geschrieben wurde, muß der Datenkanal 
wieder geschlossen werden. Vor allem nach dem Schreiben 
einer Datei kommt es zu Problemen, wenn dieser Vorgang 
nicht ordnungsgemäß durchgeführt wird: das spätere Einle¬ 
sen der Datei ist dann nicht mehr möglich, unsere Daten sind 
verloren! Die Syntax des sogenannten »CLOSE«-Befehls: 

CLOSE (LF) 

LF: logische Filenummer, unter der der Kanal geöffnet 
wurde. 

Beispiele: 

CLOSE 1 

Schließt einen unter der log. Filenummer Eins geöffneten 
Datenkanal. 

CLOSE 7 

Schließt einen unter der log.Filenummer Sieben geöffne¬ 
ten Datenkanal. 

Halten wir fest: Um Daten vom Band zu lesen oder auf Band 
zu schreiben, muß zuerst ein Datenkanal mit dem OPEN- 
Befehl geöffnet werden. Mit Hilfe der Sekundäradresse kön¬ 
nen wir angeben, ob Daten gelesen oder geschrieben wer¬ 
den sollen. Lesen und schreiben zugleich ist nicht möglich! 


Anschließend können beliebige Daten mit dem 
PRINT#-Befehl in eine Datei geschrieben oder mit dem 
INPUT #-Befehl gelesen werden. Beim Schreiben und Lesen 
von Daten können sowohl numerische als auch Stringvaria¬ 
blen verwendet werden. 

Den Abschluß bildet das ordnungsgemäße Schließen der 
Datei mit dem CLOSE-Befehl, das vor allem nach Schreibvor¬ 
gängen keinesfalls vergessen werden darf! 

Wir besitzen nun das nötige Wissen, um unser Programm¬ 
beispiel vervollständigen zu können. 

Datei speichern: 

400 open 1,1,1," verbrauch" :rem datenkanal oeffnen 
410 print#l,sl:rem gesamte literzahl speichern 
420 close Irrem kanal schliessen 

In Zeile 400 wird ein Datenkanal zur Datasette zum Schrei¬ 
ben unter der logischen Filenummer Eins geöffnet (log. File¬ 
nummer 1, Geratend, Sekundäradresse 1). Die Datei erhält 
den Namen »VERBRAUCH«. 

In Zeile 410 wird der Inhalt der Variablen »sl«, das heißt die 
gesamte Literzahl, in die Datei geschrieben. 

In Zeile 420 wird der unter der log. Filenummer Eins geöff¬ 
nete Datenkanal unter Angabe der gleichen Filenummer wie¬ 
der geschlossen. 

Datei einiesen: 

100 open 1,1,0," verbrauch" :rem datenkanal oeffnen 
110 input#l,sl:rem gesamte literzahl einiesen 
120 close l:rem kanal schliessen 

Zeile 100: Im OPEN-Befehl zum Einlesen der Datei muß 
unbedingt der gleiche Dateiname angegeben werden, unter 
dem die Datei gespeichert wurde. Wichtig ist außerdem die 
Angabe einer Null als Sekundäradresse (=Lesen von Daten). 

In Zeile 110 wird die Literzahl in die Variable »sl« eingelesen 
und in Zeile 120 der Datenkanal wieder geschlossen. 

Vollständiges Programmlisting: 

90 rem datei einiesen 

100 open 1,1,0," verbrauch" :rem datenkanal 
oeffnen 

110 input#l,sl:rem gesamte literzahl einiesen 
120 closel:rem kanal schliessen 
130 : 

200 rem durchschnittsverbrauch 
210 ak=10000:rem anfangskilometerstand, bitte 
individuell aendern 
220 : 

230 input" anzahl getankter liter" ;li 
240 sl=sl+li:rem summe liter 
250 : 

260 input" momentaner kilometerstand" ;km 
270 sk=km-ak:rem summe kilometer 
280 : 

290 dv=sl/sk#100:rem verbrauch 
300 print" durchschnittsverbrauch:" dv" 1/100 km" 
310 print" bitte zurueckspulen und taste druecken" 
320 getkey a$ 

380 : 

390 rem datei speichern 

400 open 1,1,1," verbrauch" :rem datenkanal 
oeffnen 

410 print#l,sl:rem gesamte literzahl speichern 
420 closel:rem kanal schliessen 

Tippen Sie nun das vollständige Programm ab, ändern Sie 
Zeile 210 (Anfangskilometerstand) entsprechend Ihrem 
Tachostand ab, legen Sie eine leere Kassette ein und spei¬ 
chern Sie das Programm. Lassen Sie die Kassette bitte ein- 
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gelegt und stellen Sie das Zählwerk der Datasette auf »000«. 
Sie dürfen das Programm bei der ersten Benutzung keines¬ 
falls mit »RUN« starten, da der C16 sonst versuchen würde, 
die noch nicht vorhandene Datei »VERBRAUCH« zu laden 
(Zeilen 100-120)1 

Starten Sie das Programm mit »RUN 200«, und geben Sie 
zum Testen beliebige - aber einigermaßen sinnvolle - Werte 
für die Anzahl getankter Liter und den momentanen Kilome¬ 
terstand ein. Der bisherige Durchschnittsverbrauch wird nun 
ermittelt und auf dem Bildschirm ausgegeben. 

Anschließend wird die Datei gespeichert. Sie erhalten die 
Aufforderung die Kassette zum Dateianfang zurückzuspulen 
und anschließend eine beliebige Taste zu drücken. Nach die¬ 
sem Vorgang erscheint auf dem Bildschirm die bekannte Mel¬ 
dung »PRESS PLAY AND RECORD ON TAPE«. Drücken Sie 
beide Tasten gleichzeitig. Die Datei, die in unserem Pro¬ 
grammbeispiel nur aus der Variablen »sl« besteht, wird 
gespeichert. 

Spulen Sie nun zurück bis zum Zählerstand »000«, das 
heißt bis zu jener Bandposition, ab der die Datei gespeichert 
wurde, und starten Sie das Programm mit »RUN«. Sie erhalten 
die Aufforderung »PRESS PLAY ON TAPE«. Drücken Sie die 
entsprechende Taste der Datasette. Nachdem die Datei gela¬ 
den wurde, ist in der Variablen »sl« somit die gesamte Liter¬ 
zahl enthalten. Nun können Sie neue Werte für die Anzahl der 
getankten Liter und den Kilometerstand eingeben. Das Pro¬ 
gramm ermittelt wiederum den Durchschnittsverbrauch und 
gibt ihn aus. 

Spulen Sie nun wiederum bis zum Dateianfang zurück, 
bevor Sie die Tasten »PLAY« und »RECORD« betätigen. Die 
Datei wird erneut abgespeichert, wobei die alte Datei über¬ 
schrieben wird. 

Diese Vorgehensweise ist typisch für den Umgang mit Pro¬ 
grammen, die sequentielle Dateien verwalten. Zusammen¬ 
fassung der einzelnen Schritte: 

1. Speichern Sie die Datei unmittelbar hinter dem Pro¬ 
gramm auf die Kassette. Wenn die Datei nach dem Pro¬ 
grammstart eingelesen werden soll, ist kein Spulen nötig, da 
sich das Band automatisch am Dateianfang befindet. 

2. Stellen Sie das Kassettenzählwerk nach dem Einlesen 
des Programms auf »000« zurück, um den Dateianfang zu 
kennzeichnen. 

3. Wenn die Datei wieder gespeichert werden soll, spulen 
Sie zur Position »000« zurück, das heißt zum Dateianfang. 
Die alte Datei wird beim Speichern durch die neuen Daten 
überschrieben werden. 

Damit Sie mit den beschriebenen Befehlen vertrauter wer¬ 
den, stelle ich ein weiteres Programmbeispiel zum Lesen und 
Schreiben von Daten vor: 

100 a$=" open = oeffnen eines datenkanals" 

110 b$=" print# = schreiben von daten" 

120 c$=" input # = lesen von daten" 

130 d$=" close = datenkanal schliessen" 

140 : 

150 rem datel schreiben 
160 open 1,1,1," test" 

170 print# l,a$ 

180 print #l,b$ 

190 print #l,c$ 

200 print #l,d$ 

210 clösel 
220 : 

230 print" bitte zum dateianfang zurueckspulen" 

240 print" und danach eine beliebige taste 
drueeken" 

250 getkey a$ 

260 : 

270 rem datei einiesen 


280 open 1,1,0," test" 

290 input# l,a$ 

300 input# l,b$ 

310 input #l,c$ 

320 input#l,d$ 

330 closel 
340 : 

350 printa$ 

360 printb$ 

370 printc$ 

380 printd$ 

Dieses Programm erzeugt mehrere Stringvariablen, 
schreibt sie in eine Datei, fordert Sie anschließend auf, zum 
Dateianfang zurückzuspulen und liest die Datei wieder ein. 


Häufige Fehler beim Umgang mit sequentiellen Dateien: 

1. Es kann Vorkommen, daß Ihnen der C16 einen »SYNTAX 
ERROR IN ...« ausgibt, Sie jedoch in der betreffenden Zeile 
keinen Fehler entdecken können. Meist handelt es sich um 
einen falsch eingegebenen PRINT #-Befehl. Wie Ihnen viel¬ 
leicht bekannt ist, können Sie PRINT-Befehle mit dem Frage¬ 
zeichen abkürzen, zum Beispiel: 10?»HALLO«. Beim LISTEN 
der Zeile erscheint der vollständige Befehl: 
10PRINT»HALLO«. Der PRINT#-Befehl darf nicht (!) auf 
diese Weise abgekürzt werden. Dieser Fehler ist schwer zu 
entdecken, da beim LISTEN der betreffenden Zeile auch der 
auf diese Weise eingegebene PRINT #-Befehl vollständig 
und scheinbar korrekt erscheint, zum Beispiel: 
10PRINT #1,A$. Die einzige Möglichkeit, diesen Fehler zu 
beheben, ist die korrekte Neueingabe des Befehls, obwohl 
Sie im 1 Jsting des Programms keinen Unterschied entdecken 
werden. Ich gebe zu, daß dies schwer verständlich ist, und 
rate Ihnen daher, es selbst auszuprobieren. 

2. »FILE DATA ERROR«: Dieser Fehler tritt meist auf, wenn 
beim Lesen einer Datei nicht die gleiche Reihenfolge wie 
beim Schreiben der Daten eingehalten wird. Wurden zum 
Beispiel folgende Variablen auf Kassette gespeichert: 

10 print #l,a$ 

20 print #l,b 
30 print#l,c$ 

und sollen sie wie folgt eingelesen werden: 

10 input#l,b 
20 input #l,a$ 

30 input #l,c$ 

dann erhalten Sie die erwähnte Fehlermeldung, da mit dem 
ersten INPUT #-Befehl eine numerische Variable eingelesen 
werden soll (»b«), sich an dieser Stelle der Datei jedoch alpha¬ 
numerische Daten befinden, nämlich der Inhalt der Variablen 
»a$«. Denken Sie daran, daß die Daten einer sequentiellen 
Datei der Reihe nach gelesen werden müssen und ein Über¬ 
springen von Daten nicht möglich ist! 

3. Das Handbuch enthält eine Bemerkung, die viel Ärger 
bereiten kann. Angeblich soll es möglich sein, in einem 
PRINT #-Befehl eine Liste mehrerer Daten anzugeben und 
diese durch Kommata oder Semikolons zu trennen, zum Bei¬ 
spiel: 

10 print#l,a$,b$,c$ 

Es soll nun möglich sein, diese Daten mit einem 
INPUT #-Befehl, in dem die gleichen Trennzeichen verwen¬ 
det werden, wieder einzulesen: 

10 input#l,a$,b$,c$ 

Diese Möglichkeit wäre zwar sehr komfortabel, hat jedoch 
ihre Tücken: Beim Einlesen kann der INPUT #-Befehl die ein¬ 
zelnen Daten nicht unterscheiden. Alle drei Daten (a$,b$,c$) 


SONDERHEFT 3/1986 


Q 




GRUNDLAGEN 016 


werden in die erste im INPUT #-Befehl aufgeführte Variable 
»a$« eingelesen, die danach den Inhalt »a$+b$+c$« 
besitzt. Der C 16 ist nicht mehr in der Lage, das Ende einer 
der drei Zeichenketten zu erkennen, und behandelt alle drei 
wie eine einzige Zeichenkette. Verwenden Sie daher bitte 
zum Schreiben von Daten auf Kassette je einen 
PRINT #-Befehl zum Speichern einer Variablen. 


Der GET #-Befehl: 

Besondere Erwähnung verdient der Befehl GET#(LF), 
(VARIABLE). Mit ihm lassen sich mehrere Unzulänglichkeiten 
des INPUT #-Befehls ausmerzen. Mit dem PRINT #-Befehl 
können Zeichenketten mit einer Länge von maximal 255 Zei¬ 
chen gespeichert werden. Der INPUT #-Befehl kann jedoch 
nur Zeichenketten einiesen, deren Länge höchstens 80 Zei¬ 
chen beträgt (probieren Sie's aus!). 

Mit dem Befehl GET # können Zeichenketten beliebiger 
Länge eingelesen werden. Dieser Befehl liest ein einziges 
Zeichen aus einer Datei ein und übergibt es in der angegebe¬ 
nen Variablen. Eine Zeichenkette kann auf folgende Weise 
komplett eingelesen werden: 

10 open 1,1,0," test" 

20 get#l,a$ 

30 if a$=chr$(13) then print zk$:end 
40 zk$=zk$+a$ 

50 goto 20 

Um dieses Programm zu verstehen, muß man wissen, daß 
nach dem PRINT #-Befehl ein Sonderzeichen auf das Band 
geschrieben wird. Dieses Sonderzeichen hat den ASCII- 
Code 13 (zum ASCII-Code siehe C 16-Handbuch) und dient 
als Trennzeichen zwischen den einzelnen Daten, die in einer 
Datei vorhanden sind. An diesem Trennzeichen erkennt 
unser C 16, ob eine Zahl oder Zeichenkette bereits komplett 
eingelesen wurde. 

Das Programmbeispiel geht ebenso vor: Es liest Zeichen 
für Zeichen aus der Datei »TEST« und verknüpft die einzelnen 
Zeichen zum String »zk$«. Wenn der ASCII-Code des gerade 
gelesenen Zeichens den Wert 13 hat (»asc(a$)«), handelt es 
sich um das Trennzeichen, und die Zeichenkette wurde kom¬ 
plett eingelesen (Zeile 30). 

Verwenden Sie bitte folgendes Programm, um eine Zei¬ 
chenkette auf Band zu schreiben: 

10 open 1,1,1," test" 

20 a$=" dies ist ein test" 

30 print#l,a$ 

40 closel 

Wenn Sie diese Minidatei gespeichert haben, können Sie 
die Zeichenkette »dies ist ein test« mit dem obigen Programm 
wieder einiesen. Der Nachteil des GET #-Befehls besteht 

darin, daß das Einlesen von Daten erheblich langwieriger ist 

als mit dem schneller arbeitenden INPUT #-Befehl. Sollten 
Sie jedoch jemals das Problem sehr langer einzulesender 
Zeichenketten haben, denken Sie an diesen GET #. 


Sequentielle Dateien mit der Floppy: 

Wenn Sie zu den glücklichen Besitzern einer Floppy gehö¬ 
ren, so können Sie selbstverständlich ebenfalls sequentielle 
Dateien verwalten. Außer den sequentiellen stehen Ihnen 
zudem noch die erwähnten Direktzugriffsdateien zur Verfü¬ 
gung. Um den doch etwas aufwendigeren Umgang mit Direkt¬ 
zugriffsdateien zu lernen, empfehle ich Ihnen die Lektüre ein¬ 
schlägiger Zeitschriften und Bücher, da eine ausführliche 
Beschreibung dieser Dateiformen den Rahmen dieses Arti¬ 
kels sprengen würde. 

Zur Verwaltung sequentieller Dateien mit der Floppy kön¬ 


nen Sie von dem bereits Beschriebenen ausgehen, wenn Sie 
folgende Unterschiede zur Datasette beachten: 

1. Im OPEN-Befehl müssen Sie selbstverständlich die 
Gerätenummer der Floppy (acht) angeben. 

2. Verwenden Sie als Sekundäradresse bitte nicht die Zahl 
15, da diese Sekundäradresse einem besonderen Zweck 
Vorbehalten ist. 

3. Die Angabe, ob Daten gelesen oder in eine Datei 
geschrieben werden sollen, erfolgt nicht mehr in der Sekun¬ 
däradresse, sondern im Filenamen, dem die Zeichenkette 
»,s,w« für Schreiben oder »,s,r« für Lesen folgen muß. 

4. Um eine Datei zu überschreiben, müssen sich vor dem 
Dateinamen die beiden Zeichen »@:« befinden. Das Über¬ 
schreiben geschieht nicht automatisch wie bei der Datasette. 

Beispiele: 

OPEN 2,8,2," TEST,S,R" 

Öffnet die Datei »TEST« zum Lesen von Daten. 

OPEN 2,8,2," TEST,S,W" 

öffnet die neue Datei »TEST« zum Schreiben von Daten. 
OPEN 2,8,2, "@:TEST,S,W" 

Öffnet die Datei »TEST« zum Schreiben von Daten. Eine 
unter diesem Namen bereits existierende Datei wird über¬ 
schrieben. 

Die Syntax aller übrigen beschriebenen Befehle bleibt 
unverändert. Zum Abschluß wünsche ich Ihnen viel Erfolg bei 
der Erstellung Ihrer eigenen Adress-, Haushaltskosten- und 
sonstigen Dateien, ob sich diese nun auf Kassette oder Dis¬ 
kette befinden mögen. 

onun®». ( Said Baloui/kn) 
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FRAGEN UND ANTWORTEN 


Fragen und 
Antworten zum 
C16 und VC 20 


Hier sollen Fragen zum C16 und VC 20, die sehr häufig 
gestellt wurden, umfassend beantwortet werden. 


Maschinenprogramme kopieren? 


Wie kopiert man beim VC 20 ein Maschinenprogramm im 
Steckmodulbereich ($A000) von einer Disk auf eine 
andere? 

1. Speichererweiterung auf $A000 umadressieren. 

2. Maschinenprogramm absolut laden 
(»LOAD"Name",8,1«), aber nicht starten. 

3. Diskette wechseln und folgende Zeile im Direktmodus 
hintereinander eingeben: 

POKE 43,0 : POKE 44,160 : POKE 45,0 : 

POKE 46,192 : SAVE"Name",8 
Vor dem weiteren Arbeiten mit dem Computer »NEW« ein¬ 
geben. 


VC 20-Programme auf CI6? 


Kann man Programme für den VC 20 auch auf dem C16 
verwenden? 

VC 20/C64-Programme laufen immer dann garantiert auf 
dem C16, wenn Sie keine PEEK-, POKE-, SYS- und WAIT- 
Befehle enthalten. In vielen Fällen handelt es sich bei POKE- 
Befehlen beim VC 20/C64 allerdings nur um einfache Dinge 
wie Bildschirmfarbe einstellen oder einen Ton erzeugen. Falls 
ein Listing nur wenige POKEs enthält, lohnt sich oft ein Ver¬ 
such auf dem C16, bei dem man die POKE-, PEEK- und SYS- 
Befehle einfach fortläßt. Farbe und Sound kann man ja 
schließlich selbst noch ganz nach Belieben ins Programm 
einbauen. 


Modulbereidi nutzen? 


Wie kann man beim VC 20 mit 24 KByte-Erweiterung den 
geänderten Zeichensatz In den Modulbereich ($A000 bis 
SBFFF) verlegen? Welcher Wert muß dazu in die Spei¬ 
cherstelle 36860 gePOKEt werden? Muß dazu auch der 
Bildschirmspeicher verlegt werden? 

Die Bits 0 bis 3 aus Adresse 36869 (Register 5 des VIC) 
bestimmen die Lage des Zeichengenerators im Speicher und 
zwar nach einem recht komplizierten Schema, bei dem einige 
Bits der generierten effektiven Adresse immer auf Null sind. 
Leider gehören auch die Bits 13 und 14 der Zeichenspeicher- 
Adresse zu diesen Null-Bits. Dadurch ist der Speicherbereich 
ab $A000 (=1010 0000 0000 0000 binär) nicht als 
Zeichengenerator-Adresse einstellbar. Auch der Bildschirm¬ 
speicher läßt sich beim besten Willen nicht in diesen Bereich 
verlegen. 


Speidierverlust durch Grafik? 


Bei Verwendung hochauflösender Grafik verringert sich 
die Speicherkapazität des C16 um rund 10 KByte. Woran 
liegt das, und wie kann man das verhindern? 

Damit die Grafik am Bildschirm sichtbar sein kann, muß sie 
irgendwo im Computer gespeichert sein. Jedem einzelnen 
Punkt am Bildschirm ist dabei ein Bit im Speicher zugeordnet. 
Nun hat der C16 eine Grafikauflösung von 360 x 200 Punk¬ 
ten, das sind insgesamt 72000 Punkte, die ebensovielen 
Speicherbits entsprechen. 8 Bit ergeben ein Byte, die 
72000 Bildpunkte belegen also genau 8000 Byte im Spei¬ 
cher. Außerdem wird noch zusätzlicher Speicher benötigt, 
um die Farbinformationen für jede Bildschirmstelle festzuhal¬ 
ten, so daß insgesamt ungefähr 10 KByte benötigt werden, 
um überhaupt die Grafik einschalten zu können. Das läßt sich 
unter keinen Umständen verhindern. Abhilfe schafft hier nur 
eine Speichererweiterung, bei der ein Verlust von 10 KByte 
nicht so schwer ins Gewicht fällt wie bei den mageren serien¬ 
mäßigen 16 KByte Speicher. 


Probleme mit Speichererweiterung? 


Spiele, die für den VC 20 mit 3 KByte-Erweiterung ge¬ 
schrieben wurden, laufen leider nicht mit einer 8- oder 
16 KByte-Erweiterung. Gibt es einen Trick, um sich den¬ 
noch das ständige Umstecken der Erweiterungen zu 
ersparen? 

Abh':'* schafft hier zum Beispiel die Verwendung einer 
Modulbox, in die mehrere Steckmodule gleichzeitig einge¬ 
steckt werden können. Aber es geht auch ohne Modulbox: 
Mit der folgenden kurzen Routine lassen sich die meisten 
Grundversions- oder +3 KByte-Programme auch mit einer 8 
(16) KByte-Erweiterung laden und ausführen: 

POKE 648,30 : SYS 64821 

POKE 4096, 0 : POKE 44, 16 : NEW 

Da der Bildschirmspeicher durch die kleine Routine an der 
gleichen Stelle wie in der Grundversion liegt, sind die meisten 
Grundversions-Programme direkt lauffähig. 


* 63299 Bytes free beim VC 20? 


Die Befehlsfolge »POKE 56,255: SYS 58234« soll beim VC 
20 einen freien Speicherplatz von über 63000 Bytes erge¬ 
ben. Sind diese 63299 Bytes wirklich frei zum Program¬ 
mieren und wird dadurch auch keine andere Funktion 
beeinflußt? 

Na, da hat Sie aber wirklich einer an der Nase herumge¬ 
führt. Der POKE-Befehl setzt zwar (allerdings nur rein rech¬ 
nerisch) die Speichergrenze für den Basic-Interpreter nach 
oben, aber sonst tut sich überhaupt nichts, denn selbstver¬ 
ständlich kann dort, wo einfach kein Speicher ist, nicht durch 
einen simplen POKE-Befehl welcher aus dem Nichts erzeugt 
werden. Im Gegenteil, wenn Sie längere Programme laden 
oder mit Variablen arbeiten, dann kann es sogar zum Absturz 
des Computers kommen, weil dieser verzweifelt versucht, 
Programm oder Variablen in nicht vorhandenen Speicherbe¬ 
reichen abzulegen. Das kann natürlich nicht gutgehen. 

Der SYS-Befehl hinter dem POKE ist übrigens reine Augen¬ 
wischerei, denn der bewirkt nur einen Sprung in die NMI- 
Routine, also dasselbe, was beim Drücken der Tastenkombi¬ 
nation RUN/STOP-RESTORE passiert. 
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Assembler und andere Mysterien VC 20 zum C64 auf rüsten? 


Was ist ein Assembler, was ein Disassembler und was ver¬ 
steht man unter einem Maschinensprache-Monitor? 

Wie Sie vielleicht wissen, versteht der im VC 20 arbeitende 
6502-Prozessor (wie auch der 7501-Prozessor im C16) die 
Programmiersprache Basic nicht direkt, sondern nur eine 
sehr viel einfacher (für den Prozessor) aufgebaute Sprache, 
eben die sogenannte Maschinensprache. Sie können mit 
Ihrem Computer nur deshalb in Basic arbeiten, weil der VC 20/ 
C16 ein Programm fest gespeichert hat, das einen »Basic- 
Prozessor« simuliert. Der Prozessor selbst versteht also kein 
Basic, aber dieses Programm, der sogenannte »Basic- 
Interpreter«, simuliert einen viel leistungsfähigeren Prozes¬ 
sor, der Basic verstehen kann. Diese Simulation kostet natür¬ 
lich Zeit, viel Zeit sogar. Daher benötigt der Computer für die 
Abarbeitung eines Basic-Befehls im Schnitt einige tausend¬ 
stel oder sogar hundertstel Sekunden, ein Befehl in Maschi¬ 
nensprache dagegen nur wenige millionstel Sekunden. 

Natürlich können Sie Ihren VC 20 oder C16 auch direkt in 
Maschinensprache programmieren - das ist ja quasi seine 
Muttersprache. Allerdings geht das von Basic aus nicht ganz 
so einfach. Sie müssen sich klarmachen, daß ja bereits die 
Abfrage der Tastatur oder das Blinken des Cursors durch recht 
komplexe Programme in Maschinensprache realisiert wer¬ 
den, auch wenn Sie nichts davon bemerken. Es gibt aber für 
die Programmierung in Maschinensprache spezielle Hilfspro¬ 
gramme. In der einfachsten Form handelt es sich dabei um 
Maschinensprache-Monitore, mit denen man - vereinfacht 
gesagt - kleine Maschinenprogramme gleich in der dem Pro¬ 
zessor geläufigen Zahlenform eingeben kann. 

Dieses Programmieren in Zahlen ist zwar für die Maschine 
sehr angenehm, aber weniger für den Menschen. Daher wur¬ 
den zu jedem Maschinenbefehl sogenannte »Mnemonics«, 
also leicht zu merkende Abkürzungen für die Wirkungsweise 
der Befehle, geschaffen. Um diese Mnemonics in das der 
Maschine geläufige Zahlenformat zu übersetzen, gibt es wie¬ 
derum andere Programme - die Assembler. 

Ein Disassembler schließlich tut das Gegenteil vom Assem¬ 
bler: Mit ihm können fertige Maschinenprogramme wieder in 
die Assembler-Mnemonics zurückübersetzt werden. 


Kein Speicherplatz mehr? 


Mein Datenverwaltungs-Programm für den C16 ist durch 
eine Reihe von nachträglichen Verbesserungen so 
umfangreich geworden, daß kein Platz mehr für die Daten 
im Speicher ist. Was kann ich tun? 

Als erstes: Ruhe bewahren. Als zweites bieten sich zwei 
Methoden an, eine einfache und eine schwierige. Zunächst 
die Schwierige: Es ist eine altbekannte Programmierer- 
Erfahrung, daß Programme insbesondere durch nachträg¬ 
liche Änderungen sehr umfangreich werden. Sie könnten 
also versuchen, ein neues Konzept für Ihr Programm zu ent¬ 
werfen, das alle Änderungen berücksichtigt, aber von Grund 
auf neu programmiert wird. Häufig läßt sich dadurch einiges 
an Speicherplatz gegenüber »wilden« Änderungen einspa¬ 
ren. Aber auch die einfache Methode soll angesprochen wer¬ 
den: Wenn der Speicher nicht mehr reicht, reicht häufig mehr 
Speicher. Besorgen Sie sich also doch ganz einfach eine 
Speichererweiterung für Ihren C16. Mit der in diesem Son¬ 
derheft vorgestellten 64 KByte-Erweiterung von Kingsoft 
meldet sich der C16 nach dem Einschalten zum Beispiel mit 
»60671 Bytes free«. Damit dürften dann sogar noch weitere 
kleine Erweiterungen an Ihrem Programm zu realisieren 
sein... 


Kann man den VC 20 zum C64 aufrüsten? 

Der VC 20 kann nicht in dem Sinne zum C64 aufgerüstet 
werden, daß anschließend darauf die C64-Software laufen 
würde (es sei denn, man baut eine komplette C64-Platine in 
das VC 20-Gehäuse ein). Speichermäßig ist ein Ausbau 
natürlich möglich, die C64-Programme laufen dann aller¬ 
dings trotzdem nicht richtig, denn die gesamte Hardware des 
VC 20 weist große Unterschiede zum C64 auf. 

Wer C64-Programme auf dem VC 20 laufen lassen will, 
sollte sich den Artikel »C 64-Programme für C16 und VC 20« 
ansehen, den wir in diesem Sonderheft veröffentlicht haben. 


Programmunterbrechung 
bei Druckerausgabe? 


Bei der Druckerausgabe erscheint oft ein »DEVICE NOT 
PRESENT ERROR«, obwohl der Drucker angeschlossen 
und eingeschaltet ist. Was kann man dagegen tun? 

Dieser Fehler tritt vergleichsweise oft bei Druckern auf, die 
direkt am seriellen Bus angeschlossen sind. Die Ursache 
hierfür liegt in der Konzeption des seriellen Busses begrün¬ 
det. Abhilfe: Statt mit »PRINT #« mit CMD arbeiten, dann tritt 
der Fehler nur noch äußerst selten oder überhaupt nicht mehr 
auf. 

muna»i 

Sprites beim C16? 


Ist es möglich, beim C16 Sprites im Textmodus software¬ 
mäßig zu simulieren? 

Der C16 besitzt die Shape- beziehungsweise Sprite- 
Fähigkeit nur im Grafik-Modus, weil beim TED-Chip (der Chip, 
der beim C16 für die Video-Ausgabe zuständig ist) Sprites 
nicht hardwaremäßig vorgesehen sind. Falls man aus Spei¬ 
cherplatzgründen auf den Grafik-Modus verzichten will oder 
muß, dann kann man sich aber recht gut wie beim VC 20 mit 
einem selbstdefinierten Zeichensatz behelfen, der nur etwa 
zwei KByte vom knappen Speicher beansprucht und den¬ 
noch schon beachtliche Grafikmöglichkeiten, gerade für den 
Spielebereich, bietet. Mehr Informationen zu diesem Thema 
bietet Ihnen der Beitrag »Schnelle Spielegrafik für den C16« 
in diesem Sonderheft. 


Wie kompatibel sind 6502 und 7501? 


Der VC 20 hat als Prozessor den altbekannten 6502 einge¬ 
baut, der C16 dagegen den 7501. Gibt es Unterschiede Im 
Befehlssatz beider Prozessoren? 

Der 7501 ist vom Befehlssatz her identisch mit dem 6502, 
so daß es zumindest von daher keine Probleme etwa beim 
Umschreiben von Maschinenprogrammen des VC 20 für den 
C16 gibt. Allerdings ist es denkbar, daß sich einige der soge¬ 
nannten »Undefinierten Opcodes« beider Prozessoren von¬ 
einander unterscheiden. Bei diesen Undefinierten Opcodes 
handelt es sich um vom Hersteller nicht vorgesehene und 
nicht dokumentierte Maschinenbefehle, von deren Benut¬ 
zung abgeraten werden muß. 
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| C 16/VC 20 

FRAGEN UND ANTWORTEN | 

DFÜ mitC 16? 

Probleme beim »Fensterln« 


Ist es möglich, mit dem C16 oder Plus 4 Datenfernübertra¬ 
gung zu betreiben, und was benötigt man dazu? 

Zur Datenfernübertragung, egal mit welchem Computer, 
brauchen Sie grundsätzlich eine serielle Schnittstelle 
(RS232C) mit entsprechender Treibersoftware und einen 
Akustikkoppler. Die Wahl des Akustikkopplers ist unabhängig 
vom verwendeten Computermodell, da der Koppler immer 
über eine zwischengeschaltete serielle Schnittstelle betrie¬ 
ben wird. Über serielle Schnittstellen zum C16 informiert Sie 
Ihr Commodore-Händler, der Plus 4 hat bereits eine solche 
eingebaut. Der eigentlich kritische Punkt ist die notwendige 
Betriebssoftware für den Akustikkoppler. Sie brauchen ein 
Terminalprogramm, um Daten über Akustikkoppler mit ande¬ 
ren Computern austauschen zu können. 

Leider tut sich in dieser Hinsicht bei den Herstellern von 
Terminalprogrammen nichts in Richtung C16 oder Plus 4. Der 
einzig gangbare Ausweg scheint das Seiberschreiben zu 
sein - gegebenenfalls nach Lektüre eines oder mehrerer 
Bücher über DFÜ. 


C16 statt C64? 


ich besitze seit geraumer Zeit einen C64, bin aber einer¬ 
seits mit dem sehr mageren Basic unzufrieden, anderer¬ 
seits reicht auch der Basic-Speicher des C64 für meine 
selbstprogrammierten Anwendungen so langsam nicht 
mehr aus. Ich überlege nun schon seit einiger Zeit, ob 
sich der Umstieg auf den C16 lohnt, eventuell mit 64 
KByte Speichererweiterung. 

Der C16 ist durch sein wirklich umfangreiches und komfor¬ 
tables Basic 3.5 und aufgrund seines sehr niedrigen Preises 
eigentlich ein idealer Computer für Leute, die selbst in Basic 
programmieren wollen, was man vom C 64 nicht sagen kann. 
Dessen Stärke ist ganz klar das Spielen, aber wegen seines 
Minimal-Basics eignet er sich kaum für den etwas ernsthafte¬ 
ren Hobby-Programmierer. Das soll natürlich nicht heißen, 
daß man mit dem C64 keine vernünftigen Programme selbst 
entwickeln kann, es heißt nur, daß es schwieriger ist, länger 
dauert und ohne Maschinensprachekenntnisse in vielen Fäl¬ 
len (Grafik) sogar fast unmöglich ist, leistungsfähige Basic- 
Programme auf dem C64 zu entwerfen. 

Der große Schwachpunkt beim C16 ist eindeutig der mit 16 
KByte völlig unterdimensionierte Speicher. Doch das läßt 
sich mittels Speichererweiterung leicht beheben. Ein ein¬ 
faches Rechenexempel: Der Computer kostet um die 150 
Mark, eine Speichererweiterung auf 64 KByte kostet knapp 
200 Mark, und schon hat man einen leistungsfähigen Com¬ 
puter mit über »60000 Bytes free« zum Programmieren. Das 
ist um einiges billiger, als ein C64 mit schlechtem Basic und 
38 KByte frei für Basic-Programme. Allerdings soll nicht ver¬ 
schwiegen werden, daß die C16-Lösung wirklich nur dem 
eingefleischten Selbst-Programmierer empfohlen werden 
kann. Mit der Wahl eines C16 verzichtet man nämlich auf das 
größte Softwareangebot, das es auf der Welt überhaupt für 
einen einzelnen Computer gibt, nämlich auf das breite Spek¬ 
trum der C 64-Software, das von brandheißen Spielen bis hin 
zu Textverarbeitung und Programmiersprachen reicht. 

Ob sich der Umstieg vom C64 zum C16 oder umgekehrt 
lohnt, muß jeder für sich selbst entscheiden. Wer einmal mit 
dem komfortablen 3.5 Basic programmiert hat, wird sich nur 
schwer an die Programmierung des C64 gewöhnen, wer 
andererseits einmal beispielsweise »Summer Games« oder 
»Elite« auf dem C64 gespielt hat, wird vermutlich in dieser 
Hinsicht von allen anderen 8-Bit-Computern enttäuscht sein. 

iÜÜÖi* 


In meinem Dateiprogramm für den C16 ist es nicht mög¬ 
lich, die Position des gerade definierten Windows in einer 
Variablen WINDOW zu speichern. Ich erhalte immer nur 
einen »SYNTAX ERROR«. Bei Verwendung eines anderen 
Variablennamens, zum Beispiel FENSTER, gibt es keinen 
Fehler. Woran liegt das? 

Sie verwenden in Ihrem Programm lange Variablennamen, 
was zwar einerseits die Übersichtlichkeit und Lesbarkeit 
Ihres Programms erhöht, andererseits aber auch gefährlich 
sein kann, wie Ihr Beispiel zeigt. Der Variablenname WIN¬ 
DOW enthält nämlich das Basic-Schlüsselwort DO. Während 
der Abarbeitung einer Programmzeile, die den Variablenna¬ 
men WINDOW enthält, gerät der C16 daher arg ins Schleu¬ 
dern. Während er versucht, den kompletten Namen der Varia¬ 
blen zu erkennen und ihn sich zu merken, stößt er unvermit¬ 
telt nach den Buchstaben W, I und N auf den Befehl »DO«, mit 
dem er an dieser Stelle gar nichts anfangen kann und sich 
nicht anders als mit einem »SYNTAX ERROR« zu helfen weiß. 

Wenn Sie also in Ihren Programmen lange Variablennamen 
verwenden wollen, dann sollten Sie sehr genau prüfen, ob in 
diesen Namen etwa ein reserviertes Basic-Wort enthalten ist. 
Sie können das sehr einfach testen, indem Sie einfach PRINT 
und den Variablennamen eingeben. Antwortet der C16 mit 
»0«, dann ist alles ok. 

Aber auch die »normalen« Variablennamen aus zwei Buch¬ 
staben sind nicht ohne Tücke. Folgende »kurze« Variablenna¬ 
men sind ebenfalls nicht erlaubt: ST, TI, Tl$, DS, DS$, ER, EL, 
GO, TO, DO, IF, OR. 


Fehler durch Dimensionierung? 


Wenn ich bei meinem C16 im Direktmodus eingebe »DIM 
A(2000,4)«, dann erhalte ich sofort die Fehlermeldung 
»OUT OF MEMORY«. Was mache ich falsch? 

Die Fehlermeldung besagt ganz einfach, daß Ihr C16 nicht 
genug Speicher hat, um den Befehl auszuführen. Wenn es 
Ihnen ein Trost ist, auch der C 64 gibt bei diesem Befehl die 
gleiche Fehlermeldung aus. Mit »DIM A(2000,4)« veranlas¬ 
sen Sie den Computer, ein Zahlenfeld namens »A« mit 2001 
Zeilen (0 bis 2000) zu je 5 Spalten (0 bis 4) anzulegen. Das 
gesamte Feld enthält dann also 2001 x5 = 10005 Elemente. 
Das allein sieht noch gar nicht so schlimm aus, aber überle¬ 
gen wir weiter. Der C16 benötigt 5 Byte Speicherplatz für 
jeden Zahlenwert, den er sich merken soll. Das Feld A enthält 
10Q05, Elemente, benötigt also 50025 Bytes Speicher! Da 
der C16 nach dem Einschalten nur 12277 Byte frei hat (der 
C64 ß©rtau 38911), ist einfach nicht genug Speicher vorhan¬ 
den, um den DIM-Befehl ausführen zu können. 

Sie können bei Feldern einiges an Speicherplatz sparen, 
wenn Sie Integer-Zahlen verwenden, denn Integer-Werte 
benötigen zur Speicherung nur zwei Byte pro Zahl. Allerdings 
können Integer-Variablen nur ganzzahlige Werte im Bereich 
zwischen -32768 und 32768 annehmen. Die Anweisung 
»DIM A%(2000,4)« benötigt beispielsweise »nur« 20010 
Byte Speicher statt 50025 bei Verwendung normaler Fließ¬ 
kommazahlen (vereinfacht: Zahlen mit Werten hinter dem 
Komma). Da aber auch das für den C16 noch zuviel ist, hilft 
nur noch eines: Sie müssen versuchen, mit weniger Feld¬ 
elementen auszukommen. Die Anweisung »DIM A% 
(1000,5)« packt der C16 zum Beispiel lässig (anschließend 
sind noch über 2000 Byte frei für ein Programm, das mit die¬ 
sem Feld arbeitet). 
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C16 


Masdiinen- 
spradie mit 
aemC16 

Möchten Sie Maschinenprogramme für den C16 
schreiben? Wenn ja, ist dieser Artikel genau das 
richtige. Wo Sie welche Betriebssystem-Ein¬ 
sprungadressen finden und wie Sie sie anwen¬ 
den, wird hier ausführlich beschrieben. 

I n diesem Artikel soll besprochen werden, welche Beson¬ 
derheiten bei der Programmierung des C16 in Maschi¬ 
nensprache zu beachten sind, welche Zeropage- 
Adressen unbenutzt sind und zum Beispiel für Pointer (indi¬ 
rekte Adressierung) verwendet werden können, wie die 
Betriebssystemroutinen benutzt werden und was bei der Ein¬ 
bindung von Maschinenroutinen in Basic-Programme beach¬ 
tet werden muß. 

Alle Beispielprogramme wurden möglichst einfach gehal¬ 
ten und unter Verzicht auf jegliche »Tricks« erstellt. Dieser 
Artikel kann jedoch keinesfalls ein Maschinensprache- 
Lehrgang sein oder einen solchen ersetzen. Ich muß im fol¬ 
genden davon ausgehen, daß der Leser Grundkenntnisse 
über den Prozessor des CI6, dessen Befehle und die ver¬ 
schiedenen Adressierungsarten besitzt. 

Nehmen wir an, daß Sie Assemblergrundkenntnisse besit¬ 
zen oder sich vor dem Weiterlesen zuerst auf den Kurs 
»Assembler ist keine Alchimie« (64’er Sonderheft 8/85 
»Assembler«) stürzen, und fangen an. 

Benutzung des integrierten Monitors: 

Die in diesem Artikel beschriebenen Programmbeispiele 
sollten der Einfachheit halber mit dem eingebauten Maschi¬ 
nensprache-Monitor des C16 eingegeben werden. Da im 
Bedienungshandbuch leider jede Beschreibung des Moni¬ 
torsfehlt, erläutere ich kurz die wichtigsten Befehle (alle Zah¬ 
len müssen im Hexadezimalsystem eingegeben werden!) : 
MONITOR = Start des Monitors 
X = Verlassen des Monitors 

S'(FILE)*, (GERÄT), (START), (ENDE+1) = Speichern 
eines Speicherbereichs (Programms), zum Beispiel: 
S"TEST",1,1000,2000 (Speichern von $1000 bis $1FFF 
unter dem Namen »TEST« auf Datasette) oder: 
S"TEST"8,2000,2400 (Speichern von $2000 bis $23FF auf 

Diskette). 

L"(FILE)".(GERÄT) = Laden eines Programms, zum Bei¬ 
spiel: L "TEST ",1 oder: L"TEST",8 

.(ADRESSE) (MNEMONIC) = Assemblierern zum Bei¬ 
spiel: .1000 LDA #$1F 

> (ADRESSE) (BYTES) = Bytes eingeben, zum Beispiel: 
>1000 1F 10 2B 

D (ANFANG) (ENDE) = Speicherbereich disassemblieren, 
zum Beispiel D 1000 2000 

M (ANFANG) (ENDE) = Speicherbereich anschauen, zum 
Beispiel M 1000 2000 

T (ANFANG) (ENDE) (ADRESSE) = Speicherbereich zu 
neuer Adresse verschieben, zum Beispiel: T 1000 20003000 

Freie Zeropage-Adressen 

Das Programmieren in Assembler ist nicht möglich ohne 
Kenntnis wichtiger Adressen und Speicherbereiche eines 


Computers. Der Prozessor des C16 bietet die sehr elegante 
indirekte Adressierung. Wie Sie wissen, ist es jedoch zur Ver¬ 
wendung dieser Adressierungsart notwendig, Pointer in der 
Zeropage des Computers abzulegen. Da - unabhängig von 
der indirekten Adressierung - die Zeropage die schnellste 
Form der Adressierung gestattet, die sogenannte »Zero¬ 
page-Adressierung«, wird man sie in zeitkritischen Routinen 
(Grafik!) ausgiebig verwenden, um möglichst viele Variablen 
darin abzulegen, auf die häufig zugegriffen werden muß, Der 
erste Schritt beim Kennenlernen des C16 besteht somit 
darin, herauszubekommen, welche Speicherplätze in der 
Zeropage unbenutzt sind und für eigene Zwecke zur Verfü¬ 
gung stehen. 

Zuerst wäre der Bereich $D8 bis $E8 zu nennen. Dieser 
Bereich ist ungenutzt und steht sogar speziell für Anwen¬ 
dungssoftware zur Verfügung. In diesem Bereich können Sie 
alle Variablen ablegen, die ständig unverändert zur Verfügung 
stehen sollen. Alle weiteren Bereiche, die ich vorstelle, wer¬ 
den vom Basic-Interpreter beziehungsweise vom Betriebs¬ 
system benutzt und sind daher nicht unbedingt vorm Über¬ 
schreiben geschützt. 

Ein Beispiel hierfür ist der Bereich $61 bis $70, die Fließ¬ 
kommaakkumulatoren eins und zwei. Dieser recht große 
zusammenhängende Bereich wird vom Basic-Interpreter für 
Berechnungen aller Art benutzt, übrigens keineswegs nur für 
Berechnungen mit reellen Zahlen, wie man aufgrund des 
Namens annehmen könnte, sondern ebenso für Berechnun¬ 
gen mit Integerzahlen. Wenn Sie keine reinen Assemblerpro¬ 
gramme schreiben, sondern Assemblerroutinen als Ersatz 
für besonders zeitkritische Basic-Programmteile verwenden, 
seien Sie bitte vorsichtig: Wenn die betreffende Routine vom 
Basic-Programm aufgerufen wird und Werte in die Fließ- 
kommaekkumulatoren schreibt, dürfen Sie getrost davon 
ausgehen, daß nach der Rückkehr ins Basic-Programm und 
vor dem nächsten Aufruf der Routine diese Werte durch den 
Basic-Interpreter überschrieben werden. Speichern Sie 
daher in diesem Bereich bitte keine Werte, die permanent - 
auch nach der Rückkehr ins Basic-Programm - erhalten blei¬ 
ben sollen. 

Die beschriebenen Bereiche stellen ausreichend Platz für 
Pointer und oft benötigte Variablen zur Verfügung. Sollten Sie 
in Ihren Programmen jedoch Tabellen verwalten müssen, 
oder wollen Sie vor Beginn des Basic-RAMs gar eine kom¬ 
plette kleinere Maschinenroutine ablegen, benötigen Sie 
größere zusammenhängende Speicherbereiche. Schauen 
wir uns den Speicher von $FF (Ende Zeropage) aufwärts an. 
Größere freie Speicherbereiche 

Vor Beginn des Basic-Bereichs bietet der C16 mehrere 
Speicherbereiche, die für Tabellen und eventuell sogar für 
kleine Maschinenroutinen genutzt werden können: 

1. $0200 bis $02AC: Ein riesiger uns zur Verfügung ste¬ 
hender Bereich, der normalerweise vom Basic-Interpreter 
und vom DOS als Eingabepuffer verwendet wird (zum Bei¬ 
spiel INPUT #-Befehl). 

2. $025D bis $02AC: Diesen Bereich verwendet ebenfalls 
das DOS. Er darf nur benutzt werden, wenn im Moment des 
Aufrufs der Maschinenroutine keine (!) Kanäle geöffnet sind. 
Die vom DOS benötigten Parameter (Filename, Sekundär¬ 
adresse, Geräteadresse etc.) werden sonst überschrieben. 

3. $0332 bis $03F6: Kassettenpuffer und Zähler für Kas¬ 
settenoperationen. Wenn Sie in diesem Puffer Daten able¬ 
gen, bleiben sie erhalten, bis die nächste Kassettenopera¬ 
tion erfolgt. Damit eignet sich dieser Bereich zum Beispiel für 
kleinere Maschinenroutinen (wenn das Basic-Programm 
keine Kassettenoperationen durchführt!). 

4. $03F7 bis $0436: RS232-Puffer. Wenn Sie die 
RS232-Schnittstelle nicht verwenden (zum Beispiel für den 
Betrieb eines Modems), wird dieser Bereich völlig unbenutzt 
bleiben und ist daher hervorragend für Daten geeignet, die 



14 


SONDERHEFT 3/1986 






6 


GRUNDLAGEN 


permanent erhalten bleiben müssen und nicht durch Basic- 
Interpreter oder Betriebssystem überschrieben werden dür¬ 
fen. 

5. $055F bis $05E6: In diesem Bereich sind die Zeichen¬ 
ketten abgelegt, mit denen die Funktionstasten belegt sind. 
Sie können ihn für eigene Zwecke benutzen, wenn Ihr Basic- 
Programm die Funktionstasten nicht benötigt und deren 
Belegung daher überschrieben werden darf. 

Wie Sie sehen, bietet der C16 genug freie Speicherberei¬ 
che für die Ablage von Tabellen, Pointern und kleinen Assem¬ 
blerroutinen, sowohl in der Zeropage als auch dahinter, 
obwohl ich mich auf die größten zusammenhängenden Berei¬ 
che beschränkt habe. 

Wenn Sie kleine Maschinenprogramme in diesen Berei¬ 
chen ablegen wollen, beschränken Sie sich bitte auf den Kas¬ 
settenpuffer, den RS232-Puffer und den Funktionstasten¬ 
speicher. In letzterem sind Daten vollkommen sicher, in den 
beiden anderen Bereichen besteht keine Überschreibge¬ 
fahr, solange weder Kassettenoperationen vorgenommen 
noch die RS232-Schnittstelle benutzt wird. 

Farbspeicher, Bildschirmspeicher, Basic-RAM 

Ebenso wie bei vielen meiner Kollegen bestand meine 
erste Assembler-»Tat« im Beschreiben des Bildschirms mit 
unsinnigen Zeichen, zum Beispiel Füllen mit lauter Buch¬ 
staben. Da ich damals noch eine Scheu vor der Verwendung 
von Betriebssystemroutinen besaß, wurde jedes Zeichen 
von mir einzeln in den Bildschirmspeicher »gePOKEt« und die 
Farbe in der entsprechenden Speicherzelle des Farb-RAMs 
gesetzt. Für den Fall, daß Sie ebenfalls den Bildschirmspei¬ 
cher direkt ansprechen wollen, stelle ich Ihnen nun die wich¬ 
tigsten benötigten Adressen vor: 

Farbspeicher: $0800 bis $0BFF 

Bildschirmspeicher: $0C00 bis $0FFF 

Wichtig sind nur die ersten 1000 Byte des jeweiligen 
Bereichs (25 Spalten x 40 Zeichen = 1000 Zeichen). Daß 
beide Bereiche dennoch ein volles Kilobyte umfassen, ist 
mitunter sehr vorteilhaft, zum Beispiel wenn der gesamte 
Bildschirm gelöscht oder mit einem bestimmten Zeichen 
beschrieben werden soll. In diesen Fällen können Sie mit 
einem recht einfachen Programm volle vier Seiten, das heißt 
1024 Byte, beschreiben. Da der relevante Teil des Bild¬ 
schirm- beziehungsweise Farbspeichers nur 1000 Byte um¬ 
faßt, beschreiben Sie zwar mehr Speicherzellen als unbe¬ 
dingt nötig, das Programm wird dadurch jedoch erheblich 
vereinfacht und kürzer. 

Das folgende Programmbeispiel (Listing 1) füllt den Bild¬ 
schirm des C16 mit dem Zeichen »A«. Geben Sie es bitte mit 
dem eingebauten Monitor ein, und starten Sie es anschlie¬ 
ßend mit »SYS 1015«: 
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o 

o 

* 
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d8 
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85 

da 
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sta 

$d9 

. 0401 

a9 

Oc 

lda 

#$0c 

. 0403 

85 

db 

sta 

$db 

. 0405 

a9 

01 

lda 

#$0l 

. 0407 

a2 

04 

ldx 

#$04 

. 0409 

aO 

00 

ldy 

#$00 

. 040b 

91 

d8 

sta 

($d8),y 

. 040d 

91 

da 

sta 

($da),y 

. 040f 

88 


dey 


. 0410 

dO 

f9 

bne 

$040b 

. 0412 

e6 

d9 

inc 

$d9 

. 04l4 

e6 

db 

inc 

$db Listing 1 . 

. 0416 

ca 


dex 

»Fill Screen« 

. 0417 

dO 

f2 

bne 

$040b 

. 0419 

60 


rts 



Programmablauf: Das Programm liegt im RS232-Puffer 
und ist damit vor dem Überschreiben geschützt, solange 
diese Schnittstelle nicht benutzt wird. Da das Programm mit 
indirekt indizierter Adressierung arbeitet, werden zuerst zwei 
Pointer angelegt: ein Pointer auf den Beginn des Farb-RAMs 
($0800) und ein zweiter Pointer auf den Beginn des 
Bildschirm-RAMs ($0C00). Der erste Pointer kommt nach 
$D8/$D9, der zweite Pointer nach $DA/$DB, das heißt in den 
speziell für Anwendungssoftware reservierten freien Zero¬ 
page-Bereich. 

Nachdem die Pointer angelegt wurden, werden sowohl 
Bildschirm- als auch Farbspeicher mit dem Wert eins be¬ 
schrieben, und zwar jeweils vier Seiten (X-Register wird mit 
vier geladen). Das Resultat besteht darin, daß der Bildschirm 
mit dem Zeichen »A« gefüllt wird (1 = Bildschirmcode von 
»A«). 

Speichern Sie dieses Programm aus dem Monitor heraus 
bitte mit »S"FILL SCREEN",8,03F7,041A« auf Diskette 
beziehungsweise mit »S"FILL SCREEN",1,03F7,041A« auf 
Kassette ab, da wir es in Kürze wieder verwenden werden. 
Einbindung von Maschinenroutinen 

Das vorgestellte Programm paßt gerade noch in den 
RS232-Puffer. Bei größeren Programmen stellt sich jedoch 
die Frage, wo wir sie im Speicher ablegen können. Für 
Maschinenprogramme, die ein oder gar mehrere Kilobyte 
umfassen, steht nur ein zusammenhängender Speicherbe¬ 
reich zur Verfügung, der groß genug ist: der Basic-Speicher 
selbst. 

Der Basic-Speicherbereich beginnt ab $1000. Wo er 
endet, hängt von mehreren Faktoren ab: 

1. Normalerweise endet der Basic-Bereich bei $3FFF. 

2. Wurde die hochauflösende Grafik eingeschaltet, wofür 
Zusätze i Speicherplatz benötigt wird, endet Basic bei 
$17FF. 

3. Wird eine Speichererweiterung verwendet, hängt das 
Ende des Basic-Speichers von der Größe dieser Erweiterung 
ab. 

Unveränderlich ist somit nur der Beginn des Basic-Spei¬ 
chers. Wenn Sie Wert darauf legen, daß Ihre Maschinenpro¬ 
gramme auch mit Grafik und Speichererweiterungen Zusam¬ 
menarbeiten, benutzen Sie bitte die Zeropage-Adressen 
$33 und $34, um das Ende des Basic-Bereichs zu ermitteln. 
Diese Adresse stellt einen Pointer ($33 = Low/$34=High) 
dar, der auf das aktuelle Ende des verfügbaren Speichers 
zeigt. Wenn keine Erweiterung verwendet wird und die hoch¬ 
auflösende Grafik nicht eingeschaltet wurde, zeigt dieser 
Pointer auf die Adresse $3FFF (probieren Sie’s aus). Verwen¬ 
den Sie in Ihren Programmen möglichst immer diesen Pointer 
anstelle einer absoluten Adresse, die sich - abhängig von der 
Grafik und Speichererweiterungen - ändern kann. 

Wenn Sie reine Assemblerprogramme schreiben, zum Bei¬ 
spiel eine Textverarbeitung oderein Malprogramm, benutzen 
Sie einfach den Basic-Speicher ab $1000. Häufiger dürfte 
jedoch die Verwendung von Assemblerroutinen sein, die mit 
einem Basic-Programm Zusammenarbeiten sollen, zum Bei¬ 
spiel Eingabe- oder Sortierroutinen. 

ln einem solchen Fall legt man üblicherweise die Assem¬ 
blerroutinen ans Ende des Basic-Speichers und setzt den 
Zeiger auf dieses Ende ($33/$34) herab, um ein Überschrei¬ 
ben durch Strings zu verhindern, die der Basic-Interpreter lei¬ 
der ebenfalls vom Ende des Basic-Speichers nach unten 
anlegt. 

Im Falle des C16 ist diese Vorgehensweise etwas proble¬ 
matisch, da das Einschalten der hochauflösenden Grafik 
genügt, um die Routinen durch den Grafikbildschirm zu über¬ 
schreiben. Eine flexiblere Methode, die sich mit der Grafik 
und auch mit eventuellen Speichererweiterungen verträgt, 
besteht darin, die Routinen vor (!) das Basic-Programm zu 
legen. Die Adressen $2B/$2C enthalten einen Zeiger auf 
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den Basic-'Anfang. Diesen Zeiger können wir verändern und 
uns vor dem Basic-Programm beliebig Platz schaffen. Die 
Vorgehensweise: 

1. Zeiger auf Basic-Anfang erhöhen. 

2. Null in die neue Startadresse »POKEn«, da am Basic- 
Anfang immer (!) eine Null stehen muß. 

3. »NEW« eingeben, damit der Basic-Interpreter alle weite¬ 
ren Zeiger entsprechend korrigiert. 

4. Maschinenroutinen und Basic-Programm laden (sofern 
erstere nicht bereits in Form von DATA-Zeilen im Basic- 
Programm enthalten sind). 

Beispiel: 1 KByte vorm Basic-Anfang für Maschinenrouti¬ 
nen reservieren (Listing 2): 


10 POKE 44,PEEK(44)+4 
20 POKE(256#PEEK(44)),0 
30 NEW 

Listing 2. »INT« 


In Zeile 10 wird der Basic-Anfang um 1 KByte heraufge¬ 
setzt, das heißt in das High-Byte des Pointers auf den Basic- 
Start ($33/$34 = dezimal 43/44) wird der bisherige Wert 
plus vier geschrieben. Die Erhöhung des High-Bytes um den 
Wert vier entspricht vier Seiten, also einem Kilobyte. 

Anschließend wird in die Speicherstelle, auf die das High- 
Byte nun zeigt, eine Null »gePOKEt«, und durch »NEW« wer¬ 
den zuletzt alle übrigen Zeiger korrigiert. Wenn Sie dieses 
Programm eingeben, starten und anschließend mit »FRE(O)« 
den freien Speicherplatz ermitteln, werden Sie feststellen, 
daß ein Kilobyte weniger als gewohnt zur Verfügung steht, 
jenes Kilobyte, das wir soeben für Maschinenprogramme 
reserviert haben. 

Speichern Sie das Programm bitte unter dem Namen »INIT« 
auf Diskette oder Kassette ab. 

Die beschriebene Vorgehensweise zur Einbindung von 
großen Assemblerprogrammen in Basic-Programme wollen 
wir nun an einem Beispiel erproben: Laden Sie bitte »INIT« und 
starten Sie es (sofern Sie das nicht bereits im vorigen Schritt 
getan hatten). Gehen Sie in den Monitor und laden Sie »FILL 
SCREEN«. Verschieben Sie die Routine bitte nun mit: 

T 03 F7 04lA 1000 


C128 umschreiben zu müssen, werden Sie jedoch dankbar 
für jede von Ihnen verwendete Betriebssystemroutine sein. 
Die Standardein-/ausgabe-Routinen sind auf allen drei Com¬ 
putern identisch. Identisch bedeutet nicht, daß die Pro¬ 
gramme selbst gleich sind, sondern die »Benutzeroberflä¬ 
che«. Das heißt, daß Routinen die gleichen Auswirkungen 
haben, die gleichen Parameter übergeben werden müssen 
und sogar, daß die Einsprungadressen identisch sind. 

Letzteres dank der sogenannten »Kernel-Sprungtabelle«, 
die jeder der genannten drei Computer besitzt. Die Betriebs- 
sytemroutinen befinden sich zwar von Computer zu Compu¬ 
ter in verschiedenen Speicherbereichen, werden jedoch nie 
direkt, sondern immer indirekt über diese Sprungtabelle 
angesprungen. Ein Beispiel: 

Die Routine BSOUT gibt ein Zeichen auf dem Bildschirm 
aus. Aufgerufen wird sie mit einem: JSR SFFD2, und zwar auf 
jedem (!) Commodore-Computer. An Adresse $FFD2 befin¬ 
det sich ein Sprungbefehl, zum Beispiel JMP $1000, JMP 
$2000 oder JMP $3000. An welcher Adresse sich die Rou¬ 
tine selbst befindet, ist dank der Sprungtabelle für den Benut¬ 
zer uninteressant, jedenfalls solange er sich an die »offizielle« 
Methode hält, Betriebssystemroutinen keinesfalls direkt, 
sondern immer über die Sprungtabelle aufzurufen. 

Die wichtigsten Betriebssystemroutinen 


Im folgenden werde ich zu jedem Beispielprogramm die ent¬ 
sprechenden Basic-Programmzeilen vorstellen, um vor allem 
den Umsteigern, die von Basic her kommen, den Umgang mit 
den Betriebssystemroutinen zu erleichtern. 

GETIN ($FFE4) 

Die Routine GETIN (Listing 4) liest ein Zeichen von der 
Tastatur, wartet jedoch nicht darauf, daß eine Taste gedrückt 
wird, analog dem Basic-Befehl GET. Der ASCII-Code des Zei¬ 
chens wird im Akku übergeben. Wurde kein Zeichen ge¬ 
lesen, enthält der Akku den Wert Null. Durch das Testen auf 
Null kann eine Schleife realisiert werden, die erst nach der 
Eingabe eines Zeichens verlassen wird. 


Basic: 
10 GET 


Die Routine befindet sich nun in unserem für Maschinen¬ 
programme reservierten Ein-Kilobyte-Bereich, der ab $1000 
beginnt. Geben Sie folgendes Programm ein (Listing 3): 


10 FOR 1=1 to 10 
20 PRINT CHR$ (147) 

30 PRINT "zum aufruf der routlne taste druecken" 
40 GETKEY A$ 

50 SYS 4096 

60 FOR 11=1 T0 1000:NEXT 
70 NEXT 

Listing 3. »INT-Demo« 


Wie Sie sehen, ist die Einbindung wunderbar gelungen: Ab 
$1000 (=dezimal 4096) befindet sich die Maschinenroutine 
im Speicher, ab $2000 beginnt das Basic-Programm, das die 
Routine mit »SYS 4096« auf Tastendruck aufruft, woraufhin 
diese den Bildschirm mit »A« beschreibt und anschließend in 
das Basic-Programm zurückkehrt. 

Die Verwendung der Standardbetriebssystemroutinen hat 
den Nachteil, daß diese sehr allgemein und flexibel, dadurch 
jedoch für bestimmte Zwecke manchmal etwas zu langsam 
sind. In extrem zeitkritischen Routinen kommen Sie nicht 
umhin, sich Ihre eigenen Routinen - zum Beispiel zur Bild¬ 
schirmausgabe - zu schreiben, die weniger flexibel, dafür 
jedoch schneller sind. Sollten Sie jemals in die Verlegenheit 
kommen, C16-Assemblerprogramme auf den C 64 oder den 


Basic: 

10 GET A$:IF A$="" THEN 10 

oder auch: 

10 GETKEY A$ 

Assembler: 

. 03f7 20 e4 ff jsr $ffe4 
. 03fa fO fb beq $03f7 
. 03fc 60 rts 

Listing 4. »QETIN« 


Starten Sie diese Routine mit »SYS 1015«. Sie kehren nach 

dem Betätigen einer beliebigen Taste ins Basic zurück. 

Mit GETIN lassen sich außer der Eingabe eines einzigen 
Zeichens auch komplexere Eingaben durchführen. Alle pro¬ 
fessionellen Eingaberoutinen, die den Basic-Befehl INPUT 
aufgrund seiner Nachteile (Bildschirm kann gelöscht werden, 
während der Eingabe sind keinerlei Eingabeprüfungen mög¬ 
lich und so weiter) ersetzen sollen, verwenden diese 
Betriebssystemroutine. 

BSOUT ($FFD2) 

Gibt ein Zeichen, das im Akku übergeben wird, auf dem 
momentanen Ausgabegerät aus, normalerweise dem Bild¬ 
schirm (Listing 5). Bei der Bildschirmausgabe ist zu beach¬ 
ten, daß das Zeichen an der momentanen Cursorposition 
ausgegeben und dieser danach automatisch auf das nächste 
Zeichen gesetzt wird. 
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Basic: 

10 PRINT "A"; 
20 PRINT "B"; 


Assembler: 

. 03f7 a9 41 

lda #$4l 

. 03f9 20 d2 

ff jsr $ffd2 

. 03fc a9 42 

lda #$42 

. 03fe 20 d2 

ff jsr $ffd2 

. 0401 60 

rts 

Listing 5. > 

BSOUT« 


Ebenso wie das Basic-Programm gibt auch die Assembler- 
Routine nach dem Aufruf mit »SYS 1015« die Zeichen »A« und 
»B« (ASCII-Code: $41/$42) auf dem Bildschirm aus. 

Wenn Sie bereits länger in Assembler programmieren, wird 
für Sie ein kleiner Trick bereits selbstverständlich sein, den 
ich hier verraten möchte: Da alle Betriebssystemroutinen als 
Unterprogramme geschrieben sind und mit einem »RTS« als 
letzten Befehl enden, können Sie Ihre Programme kürzen, 
indem Sie einen »RTS« einsparen, der nach dem Aufruf einer 
Betriebssystemroutine folgt, und diese anstatt mit »JSR...« 
mit »JMP...« aufrufen (Listing 6). 


Anwendung 

der bisher beschriebenen Routinen 


Mit den beschriebenen Routinen läßt sich bereits eine 
Menge anfangen. Ein Beispiel: Sie schreiben ein Malpro¬ 
gramm in Assembler. Der Benutzer will ein Bild, das gerade 
gemalt wurde, komplett löschen. Da dieser Vorgang unwider¬ 
ruflich ist, stellen Sie eine sogenannte »Sicherheitsabfrage«. 
Sie fragen den Benutzer: 

»SIND SIE SICHER (J/N) ?« 

Die Bildschirmausgabe soll in Zeile 10 und Spalte 15 er¬ 
scheinen, das heißt etwa in der Mitte des Bildschirms. Außer 
den Tasten »j« und »n« soll keine weitere zur Beantwortung 
der Frage zulässig sein, der GET-Befehl ist daher hervorra¬ 
gend zur Lösung des Problems geeignet (Listing 9). 


. 03 f7 

a9 41 lda #$4l 

. 03 f 9 

20 d2 ff jsr $ffd2 

. 03 fc 

a9 42 lda #$42 

. 03 fe 

4c d2 ff jmp $ffd2 

Listing 6. »BSOUT ohne RTS« 


PLOT ($FFF0) 

Setzt den Cursor an eine übergebene Bildschirmposition 
oder übergibt die momentane Cursorposition. Ein Basic- 
Äquivalent zu dieser Routine exisitiert nicht. In beiden Fällen 
wird das X-Register zur Übergabe der Zeile und das Y- 
Register zur Übergabe der Spalte verwendet: 

1. Cursor setzen: 

-Carryflag löschen 
-X und Y laden 
-Routine aufrufen 

Cursor auf Zeile 10, Spalte 5 setzen (Listing 7): 


03 f7 a2 Oa ldx #$0a 

03 f9 a0 05 ldy #$05 

03fb 18 clc 

03fc 20 fO ff jsr $fff0 

03 ff 60 rts 

Listing 7. Cursorposition setzen 


Rufen Sie die Routine mit »SYS 1015:PRINT"HALLO"« 
auf. Die Zeichenfolge »HALLO« wird ab Spalte 5 von Zeile 10 
ausgegeben werden. 

Cursorposition holen (Listing 8): 


. 03f7 38 sec 

. 03f8 20 fO ff jsr $fff0 
. 03fb 00 brk 

Listing 8. Cursorposition holen 


Basic: 

10 PRINT CHR$(19);:REM CURSOR HOME 
20 FOR 1=1 TO 10 

30 PRINT CHR$(17);:REM CURSOR DOWN 
40 NEXT I 

50 PRINT TAB(15)"SIND SIE SICHER (J/N) ?* 

60 GETKEY A$ 

70 IF A$="J"THEN GOTO 100:REM L0ESCHEN 
80 IF A$="N" THEN GOTO 200:REM NICHT L0ESCHEN 
90 GOTO 60:REM FALSCHE EINGABE 

Assembler: 


. 03 f7 

a2 

0a 


ldx 

#$0a 


aO 

Oe 


ldy 

#$0e 

. 03 fb 

18 



clc 


. 03 fc 

20 

fO 

ff 

jsr 

$fff0 

. 03 ff 

a2 

00 


ldx 

#$00 

. 0401 

bd 

lc 

04 

lda 

$04lc,x 

. 0404 

20 

d2 

ff 

jsr 

$ffd2 

. 0407 

e8 



inx 


. 0408 

eO 

23 


cpx 

#$23 

. 040a 

dO 

f5 


bne 

$0401 

. 040c 

20 

e4 

ff 

jsr 

$ffe4 

. 040f 

c9 

4a 


cmp 

#$4a 

. 0411 

fO 

07 


beq 

$04la 

. 0413 

c9 

4e 


cmp 

#$4e 

. 0415 

fO 

04 


beq 

$04lb 

. 0417 

4c 

0c 

04 

Jmp 

$040c 

. 04la 

60 



rts 


. 04lb 

60 



rts 



)04lc 53 49 4e 44 20 53 49 45 20 53 49 43 48 45 52 
20 28 4a 2f 4e 29 20 3f 

Listing 9. Anwendungsbeispiel 


Zeile und Spalte werden in X und Y übergeben. Die ent¬ 
sprechenden Registerinhalte werden Ihnen nach dem 
BREAK angezeigt. Beachten Sie jedoch, daß der Basic- 
Interpreter einen Zeilenvorschub ausführt. Wegen dieses 
Zeilenvorschubs enthält das X-Register die Zeile+1, in der 
sich der Cursor beim Aufruf befand, und das Y-Register den 
Spaltenwert Null. 


Erläuterung: 

Im ersten Programmabschnitt wird der Cursor auf Zeile 10 
und Spalte 5 gesetzt. Anschließend wird die Zeichenkette 
»sind sie sicher (j/n) ?«, die 23 Zeichen enthält (X wird mit 23 
verglichen), ab dieser Position auf dem Bildschirm ausgege¬ 
ben. Die Zeichenkette selbst befindet sich im ASCII-Format 
am Ende des Programms. Geben Sie sie bitte mit Hilfe des 
Monitor-Befehls (>) ein, mit dem direkt Bytes verändert wer¬ 
den können. 

Der letzte Programmteil besteht aus einer Routine, die ein 
Zeichen von der Tastatur liest, mit den ASCII-Codes der Zei¬ 
chen »j« beziehungsweise »n« vergleicht ($4A/$4E) und zum 
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CI 


entsprechenden Programmteil verzweigt. Wurde keines der 
beiden Zeichen eingegeben, wird die Tastaturabfrage wie¬ 
derholt. 

Ein Tip: in Assemblerprogrammen ist es sehr oft notwen¬ 
dig, Zeichenketten auf dem Bildschirm auszugeben. Anstatt 
wie im vorgestellten Beispielprogramm die Anzahl der auszu¬ 
gebenden Zeichen zu zählen und das Ausgabeende anhand 
des Wertes von X zu erkennen, können Sie sich das Program¬ 
mieren erleichtern, wenn Sie an jede Zeichenkette eine 
»Endemarke« anfügen, zum Beispiel das Byte $00, und auf 
diese Endemarke prüfen (Listing 10). Das Abzählen der ein¬ 
zelnen Zeichen einer Zeichenkette wird dadurch überflüssig: 


ldx 

o 

o 

lda 

char,x 

beq 

weiter 

Jsr 

$ffd2 

inx 


Jmp 

loop 


weiter 


rts 

char Zeichenkette im ASCII-Format+$00 

Listing 10. Stringausgabe mit Endemarke 


BASIN (SFFCF) 

Auch diese Routine (Listing 11) kann zur Eingabe von 
Zeichen verwendet werden. Bei Verwendung von BASIN 
erscheint der Cursor auf dem Bildschirm, und ein vom Be¬ 
nutzer eingegebenes Zeichen wird automatisch auf dem 
Bildschirm ausgegeben, analog dem Basic-Befehl INPUT. 
Ebenso wie beim INPUT-Befehl ist keine Möglichkeit gege¬ 
ben, unsinnige Eingaben abzufangen, zum Beispiel das 
Löschen des Bildschirms. Eingegebene Zeichen werden 
beim Aufruf von BASIN im Akku übergeben. 


Basic: 


10 INPUT A$ 
Assembler: 


. 03 f 7 

a2 

00 


ldx 

#$00 

. 03 f9 

20 

cf 

ff 

jsr 

$ffcf 

. 03 fc 

9d 

05 

04 

sta 

$0405,x 

. 03 ff 

e8 



inx 


. 0400 

c9 

Od 


cmp 

#$0d 

. 0402 

dO 

f5 


bne 

$03f9 

. 0404 

60 



rts 



Listing 11. »BASIN« 


Diese Routine liest solange Zeichen ein und speichert sie 
ab $0405, bis der Benutzer »RETURN« drückt (ASCII-Code 
$0D), arbeitet somit analog dem INPUT-Befehl. 

Rufen Sie die Routine mit »SYS 1015« auf und geben Sie 
mehrere Zeichen ein, bevor Sie die Eingabe mit »RETURN« 
beenden. Sehen Sie sich anschließend mit dem Monitor den 
Bereich ab $0405 an (m 0405), in dem die Eingabe abgelegt 
wurde. 

Ich würde Ihnen aufgrund der beschriebenen Nachteile 
von BASIN empfehlen, sich mit Hilfe der GETIN-Routine eine 
eigene INPUT-Routine in Assembler zu schreiben und auf die 
Verwendung von BASIN zur Tastaturabfrage in professionel¬ 
len Programmen möglichst zu verzichten. 


Programme laden/speichem 


Das Betriebssystem des C16 enthält eine sehr komfortable 
SAVE-Routine, mit der ein beliebiger Speicherbereich auf 
Kassette oder Diskette gespeichert werden kann. Die eben¬ 
falls vorhandene LOAD-Routine ermöglicht das Laden eines 
Programms an eine beliebige Adresse. Diese Routinen kön¬ 
nen vielseitig verwendet werden, um zum Beispiel ein mit der 
hochauflösenden Grafik gemaltes Bild, eine Bildschirm¬ 
maske und andere Speicherbereiche zu speichern bezie¬ 
hungsweise zu laden. Vor der Benutzung dieser Routinen 
müssen jedoch die beiden Routinen SETNAM und SETLFS 
zur Vorbereitung aufgerufen werden. 

SETLFS ($FFBA) 

Vor Benutzung der SAVE- oder LOAD-Routine müssen mit 
SETLFS eine logische Filenummer (Akku), die Geräte¬ 
adresse (X-Register) und eine Sekundäradresse (Y-Register) 
angegeben werden (Listing 12). 

Beispiel: logische Filenummer zwei, Gerät: Floppy, Se¬ 
kundäradresse vier. 


lda #$02 

;log. Filenuramer 

ldx #$08 

;Geräteadresse 

ldy #$04 

;Sekundäradresse 

jsr $ffba 


Listing 12. »SETLFS« 


SETNAM ($FFBD) 

Nachdem mit SETLFS die Fileparameter gesetzt wurden, 
muß mit der Routine SETNAM der Filename angegeben wer¬ 
den, indem im X- und im Y-Register die Adresse übergeben 
wird, änuer dieser im Speicher abgelegt wurde, und im Akku 
die Länge des Namens (Listing 13): 

1. Akku mit der Länge des Filenamens in Zeichen laden. 

2. X-Register mit dem Low-Byte der Adresse laden. 

3. Y-Register mit dem High-Byte der Adresse laden. 

4. SETNAM aufrufen 

Beispiel: Ein Speicherbereich soll unter dem Namen »test« 
gespeichert werden. Der Name »test« befindet sich (in ASCII- 
Form) an Adresse $025E, der speziell für Filenamen reser¬ 
viert ist. i 


lda #$04 

;Länge des Filenamens 

ldx #$5e 

;Adresse: Low-Byte 

ldy #$02 

jAdresse: High-Byte 

jsr $ffbd 


Listing 13. »SETNAM« 


Bei der Speicherung auf Datasette ist es nicht notwendig, 
dem zu speichernden Programm einen Namen zu geben. 
Auch in diesem Sonderfall muß (!) jedoch vor Benutzung der 
LOAD- beziehungsweise SAVE-Routine SETNAM aufgerufen 
werden. Wenn kein Filename verwendet wird, muß im Akku 
der Wert Null übergeben werden (Länge des Namens: Null 
Zeichen). Die Inhalte von X- und Y-Register sind beliebig. 
LOAD ($FFD5) 

Für das Laden eines Programms spielt die in der Vorberei¬ 
tungsroutine SETLFS übergebene Sekundäradresse eine 
wichtige Rolle. Die ersten beiden Bytes jedes Programmfiles 
enthalten die Adresse, an der sich das Programm beim Spei¬ 
chern befand. Wurde vor dem Aufruf von LOAD die Sekundär¬ 
adresse eins angegeben, wird das Programm an diese 
Ursprungsadresse geladen. Wurde eine Null als Sekundär¬ 
adresse übergeben, so wird der Inhalt von X- und Y-Register 
beim Aufruf von LOAD als Adresse angesehen, an die das 
Programm geladen werden soll (X=Low-Byte, Y= High-Byte 
der Adresse). 
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Der Inhalt des Akkus entscheidet beim Aufruf von LOAD 
darüber, ob ein Programm geladen oder ein VERIFY durch¬ 
geführt werden soll (0=Laden, 1 = Verifizieren). 

Beispiele: 

1. Programm »fest« von Datasette an die Ursprungsadresse 
laden (Listing 14): 


lda 

#$02 

;logische Filenummer 

ldx 

#$01 

;Geräteadresse der Datasette 

ldy 

#$01 

;absolut laden 

Jsr 

$ffba 

;Fileparameter setzen 

lda 

#$04 

;Länge des Filenamens 

ldx 

#$5e 

;Adresse low 

ldy 

#$02 

{Adresse high 

jsr 

$ffbd 

;Filename setzen 

lda 

#$00 

;Flag für LOAD 

Jsr 

$ffd5 

jLOAD-Routine aufrufen 


Listing 14. »LOAD« von Kassette 


2. Programm »testl« von Diskette an die Adresse $1000 
laden (Listing 15). 


lda 

#$02 

{logische Filenummer 


ldx 

#$08 

{Geräteadresse der Floppy 


ldy 

#$00 

{an die angegebene Adresse 

laden 

jsr 

$ffba 

{Fileparameter setzen 


lda 

#$05 

{Länge des Filenamens 


ldx 

#$5e 

{Adresse low 


ldy 

#$02 

{Adresse high 

S46R 1 

jsr 

$ffbd 

{Filename setzen 


lda 

#$00 

{Flag für LOAD 


ldx 

#$00 

{Ladeadresse low 


ldy 

#$10 

{Ladeadresse high 


jsr 

$ffd5 

{LOAD-Routine aufrufen 



Listing 15. »LOAD« von Diskette 



In beiden Beispielen wird davon ausgegangen, daß sich 
der Programmname »test« beziehungsweise »testl« in ASCII- 
Förm ab Adresse $025E im Speicher befindet. Ein weiteres 
Beispiel zum Laden eines Programms ohne Angabe eines 
Namens (nur bei der Datasette möglich): 

3. Programm ohne Angabe eines Filenamens von Data¬ 
sette absolut laden (Listing 16). 


lda #$02 

{logische Filenummer 

ldx #$04 

{Geräteadresse der Datasette 

ldy #$01 

{absolut laden 

jsr $ffba 

jFileparameter setzen 

lda #$00 

{Länge des Filenamens 

jsr $ffbd 

{Filename setzen 

lda #$00 

{Flag für LOAD 

jsr $ffd5 

;L0AD-Routine aufrufen 

Listing 16. »LOAD« von Kassette ohne Angabe eines 
Filenamens 


SAVE ($FFD8) 

Mit Hilfe der SAVE-Routine läßt sich ein beliebiger Spei¬ 
cherbereich auf Kassette oder Diskette speichern. Zuvor 
müssen wiederum SETLFS und SETNAM als Vorbereitungs¬ 
routinen aufgerufen werden. Bei SAVE müssen folgende 
Parameter übergeben werden: 


1. Anfangsadresse des zu speichernden Bereichs. Hierzu 
muß in der Zeropage ein Zwei-Byte-Zeiger (Low/High) auf 
diese Adresse abgelegt werden. Bei Aufruf der Routine muß 
der Akku mit der Adresse geladen werden, an der sich der 
Zeiger befindet. 

2. Endadresse +1 (!) des zu speichernden Bereichs. 
Diese Adresse wird mit dem X- und dem Y-Register überge¬ 
ben (X=Adresse low, Y= Adresse high). 

Beispiele: 

1. $1000 bis $2000 unter dem Namen »test« auf Diskette 
speichern (Listing 17). 


lda 

#$02 

{logische Filenummer 

ldx 

#$08 

;Geräteadresse der Floppy 

ldy 

#$02 

{beliebige Sekundäradresse 

jsr 

$ffba 

{Fileparameter setzen 

lda 

#$04 

{Länge des Filenamens 

ldx 

#$5e 

{Adresse low 

ldy 

#$02 

{Adresse high 

jsr 

$ffbd 

{Filename setzen 

lda 

sta 

#$00 

$d8 

{Anfangsadresse low 

lda 

sta 

#$10 

$d9 

{Anfangsadresse high 

lda 

#$d8 

{Adresse des Zeigers 

ldx 

#$01 

{Endadresse+1 low 

ldy 

#$20 

;Endadresse+l high 

jsr 

$ffd8 

{SAVE-Routine 


Listing 17. »SAVE« auf Diskette 


2. $1234 bis $3456 unter dem Namen »testl« auf Data¬ 
sette speichern (Listing 18). 


lda 

#$02 

{logische Filenummer 

ldx 

#$01 

{Geräteadresse der Datasette 

ldy 

#$02 

{beliebige Sekundäradresse 

jsr 

$ffba 

jFileparameter setzen 

lda 

#$05 

{Länge des Filenamens 

ldx 

#$5e 

{Adresse low 

ldy 

#$02 

{Adresse high 

jsr 

$ffbd 

{Filename setzen 

lda 

sta 

#$34 

$d8 

{Anfangsadresse low 

lda 

sta 

#$12 

$d9 

{Anfangsadresse high 

lda 

# $d8 

{Adresse des Zeigers 

ldx 

#$57 

{Endadresse+1 low 

ldy 

#$34 

jEndadressetl high 

jsr 

$ffd8 

{SAVE-Routine 


Listing 18. »SAVE« auf Kassette 


Anwendung: hochauflösende Grafik speichern und laden. 
Als praktische Anwendung der LOAD- und der SAVE-Routine 
will ich Ihnen nun zeigen, wie Sie den Grafikbildschirm spei¬ 
chern und laden können, der den Speicher von $2000 bis 
$3FFF belegt. Wir benötigen hierzu ein Basic- und ein 
Maschinenprogramm. Beide sind in einer Disketten- (Listing 
19) und einer Kassettenversion (Listing 20) abgebildet. 

Geben Sie bitte zuerst die Maschinenroutine mit Hilfe des 
Monitors ein. Sie speichert den Grafikbereich unter dem 
Namen »GRAPHIK« auf Datasette beziehungsweise Diskette 
und lädt den Grafikbildschirm wieder in diesen Bereich. 



SONDERHEFT 3/1986 













GRUNDLAGEN 


C16 


Geben Sie nun bitte die Disketten- beziehungsweise 
Kassettenversion des benötigten Basic-Programms ein 
(Listing 21, 22). 


Das Basic-Programm besteht aus folgenden Teilen: 

1. Filename in ASCII-Förm ab 606 (=$025E) ablegen 

2. Grafik einschalten 

3. Rechtecke malen und ausfüllen 

4. SAVE-Routine aufrufen 

5. Grafik löschen 

6. Gespeicherte Grafik laden 
Zusätzlich enthält die Kassettenversion noch Hinweise zur 

Bedienung der Datasette (Zurückspulen vor dem Speichern, 
Zurückspulen vor dem Laden, Play beziehungsweise Re¬ 
cord + Play drücken). 

Sollten Sie eine Floppy besitzen, können Sie beobachten, 
wie sich die Grafik während des Ladevorgangs langsam auf¬ 
baut. Bei Verwendung einer Datasette wird bekanntlich der 
Bildschirm während Kassettenoperationen »weggeklappt«, 
so daß Sie die Grafik erst nach dem vollständigen Ladevor¬ 
gang auf dem Bildschirm sehen. Kassettenbesitzer sollten 
sich in Geduld üben, da das Speichern beziehungsweise 
Der einzige Unterschied zwischen der Disketten- und der Laden einen jeweils acht Kilobyte großen Speicherbereich 
Kassettenversion besteht in der unterschiedlichen Geräte- umfaßt und daher etwa fünf Minuten dauern wird, 
angabe bei Aufruf der Routine SETFLS. (S. Baloui/ah) 


10 A$=GRAPHIK:REM FILENAME IN ASCII- 
20 FOR 1=1 TO LEN(A$):REM FORM NACH 606 
30 P0KE 605+1,ASC(MID$(A$,1,1)) 

40 NEXT 
50 : 

60 GRAPHIC1,1 
70 BOX 1,10,10,200,100 
80 BOX 1,50,50,300,190 
90 PAINT 1,60,60 
100 : 

110 SYS 1015:REM GRAFIK SPEICHERN 
120 SCNCLR:REM SCREEN LOESCHEN 
130 SYS 1015+36:REM GRAFIK LADEN 
140 GETKEY Aa$ 

150 GRAPHIC0 

Listing 21. Grafik aufrufen und Maschinenroutine aufrufen 
(Diskette) 


10 A$=GRAPHIK:REM FILENAME IN ASCII- 
20 FOR 1=1 TO LEN(A$):REM FORM NACH 606 
30 POKE 605+1,ASC(MID$(A$,1,1)) 

40 NEXT 
50 : 

60 GRAPHIC1,1 
70 BOX 1,10,10,200,100 
80 BOX 1,50,50,300,190 
90 Pfc.'J 1,60,60 
100 : 

110 CHAR 1,0,24,ZURUECKSPULEN/RECORD+PLAY DRUECKEN 
120 SYS 1015:REM GRAFIK SPEICHERN 
130 CHAR 1,0,24,ZURUECKSPULEN/TASTE DRUECKEN 
140 GETKEY A$ 

150 SCNCLR:REM SCREEN LOESCHEN 
160 CHAR 1,0,24,PLAY DRUECKEN 
170 SYS 1015+36:REM GRAFIK LADEN 
180 GETKEY A$ 

190 GRAPHIC0 

Listing 22. Grafik erzeugen und Maschinenroutine aufrufen 
(Kassette) 


. 03 f7 

a9 

02 


lda 

#$02 

. 03 f9 

a2 

08 


ldx 

#$08 

. 03 fb 

aO 

02 


ldy 

#$02 

. 03 fd 

20 

ba 

ff 

jsr 

$ffba 

. 0400 

a9 

07 


lda 

#$07 

. 0402 

a2 

5e 


ldx 

#$5e 

. 0404 

aO 

02 


ldy 

#$02 

. 0406 

20 

bd 

ff 

jsr 

$ffbd 

. 0409 

a9 

00 


lda 

#$00 

. 040b 

85 

d8 


sta 

$d8 

. 040d 

a9 

20 


lda 

#$20 

. 040f 

85 

d9 


sta 

$d9 

. 0411 

a9 

d8 


lda 

#$d8 

. 0413 

a2 

00 


ldx 

#$00 

. 0415 

aO 

40 


ldy 

#$40 

. 0417 

20 

d8 

ff 

jsr 

$ffd8 

. 04 la 

60 



rts 


. 04lb 

a9 

02 


lda 

#$02 

. 04ld 

a2 

08 


ldx 

#$08 

. 04lf 

aO 

01 


ldy 

#$01 

. 0421 

20 

ba 

ff 

jsr 

$ffba 

. 0424 

a9 

07 


lda 

#$07 

. 0426 

a2 

5e 


ldx 

#$5e 

. 0428 

aO 

02 


ldy 

#$02 

. 042a 

20 

bd 

ff 

jsr 

$ffbd 

. 042d 

a9 

00 


lda 

#$00 

. 042f 

20 

d5 

ff 

jsr 

$ffd5 

. 0432 

60 



rts 


Listing 19. »SAVE LOAD 

< auf und von Diskette 







G-+GR 

. 03 f7 

a9 

02 


lda 

#$02 

. 03 f9 

a2 

01 


ldx 

#$01 

. 03 fb 

aO 

02 


ldy 

#$02 

. 03 fd 

20 

ba 

ff 

jsr 

$ffba 

. 0400 

a9 

07 


lda 

#$07 

. 0402 

a2 

5e 


ldx 

#$5e 

. 0404 

aO 

02 


ldy 

#$02 

. 0406 

20 

bd 

ff 

jsr 

$ffbd 

. 0409 

a9 

00 


lda 

#$00 

. 040b 

85 

d8 


sta 

$d8 

. 040d 

a9 

20 


lda 

#$20 

. 040f 

85 

d9 


sta 

$d9 

. 0411 

a9 

d8 


lda 

#$d8 

. 0413 

a2 

00 


ldx 

#$00 

. 0415 

aO 

40 


ldy 

#$40 

. 0417 

20 

d8 

ff 

jsr 

$ffd8 

. 04la 

60 



rts 


. 04lb 

a9 

02 


lda 

#$02 

. 04ld 

a2 

01 


ldx 

#$01 

. 04lf 

aO 

01 


ldy 

#$01 

. 0421 

20 

ba 

ff 

jsr 

$ffba 

. 0424 

a9 

07 


lda 

#$07 

. 0426 

a2 

5e 


ldx 

#$5e 

. 0428 

aO 

02 


ldy 

#$02 

. 042a 

20 

bd 

ff 

jsr 

$ffbd 

. 042d 

a9 

00 


lda 

#$00 

. 042f 

20 

d5 

ff 

jsr 

$ffd5 

. 0432 

60 



rts 


• 0433 

00 



brk 


Listing 20. »SAVE LOAD 

« auf und von Kassette 


20 
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Reaktionstest 


Mit diesem Einzeiler können Sie Ihre Reaktionszeit messen. 
Um die Länge einer Basic-Zeile nicht zu überschreiten, müs¬ 
sen einige Befehle in abgekürzter Schreibweise eingegeben 
werden. Nach dem Start des Einzeilers erscheint nach eini¬ 
ger Zeit das Signal »T= «. Nun müssen Sie so schnell wie mög¬ 
lich eine beliebige Taste drücken. Nachdem die Reaktionszeit 
(in Sekunden) auf dem Bildschirm erschienen ist, beginnt 
auch gleich der nächste Test. Etwaigem Schummeln wurde 
vorgebeugt: Beim frühzeitigen Drücken einer Taste wird der 
Test abgebrochen. 

2 F0RT=0T0RND (l) *2500+900:NEXT:GETA$:IFA$= 
""THENPRINT"T=";:T=TI:GETKEYA$:PRINT (TI-T) /60:RUN 

(Hannes Kaltenbach/tr) 

RESET ohne 


Nach langem Herumprobieren wurde im Betriebssystem die 
Routine gefunden, die einen Reset-Schalter überflüssig 
macht. Die Routine wird vom Basic aus mit dem SYS-Befehl 
wie folgt angesprungen: 

SYS 65529 

Bei diesem Befehl werden alle Zeiger für das Basic und für 
das Betriebssystem in den Ausgangszustand zurückgesetzt 
(Basic-Kaltstart). Alle Maschinenprogramme bleiben jedoch 
erhalten und können wie gewohnt aufgerufen werden. 

(J. Kunz/ah) 

-—- 

Grafik und Sound 
mit dem C16 


Reset-Schalter 


Tabellarische Übersicht 


Freie Speicherbereiche: 


Zeropage: SD8 

bis $E8 

(Anwendersoftware) 

$61 

bis $70 

(Fließkommaakkumulatoren) 

Sonstige Bereiche: 



$0200 bis $02AC (Basic-Eingabepuffer/DOS-Arbeitsbereich) 

$025D bis $02AC (aktuelle DOS-Parameter, zum Beispiel Filenamen) 

$0332 bis $03F6 (Kassettenpuffer) 

S03F7 bis $0436 (RS232-Putfer) 


$055F bis $05E6 (Funktionslastenbelegung) 

SpelcherberelchelZelger: 


Farbspeicher 


.S0800 bis SOBFF 

Bildschirmspeicher 


:$0C00 bis $0FFF 

Zeiger Basic-Anfang (Standard $1000) 

:$2B/$2C 

Zeiger Basic-Ende (Standard S3FFF) 

Betrlebssytemroutlnen: 

:$33/$34 

Adresse Label 

Funktion 

Übergabeparameter 

SFFE4 GETIN 

Zeichen holen 

keine; Zeichenübergabe im Akku 

$FFCF BASIN 

Zeichen holen 
bis RETURN 

keine; Zeichenübergabe Im Akku 

$FFD2 BS0UT 

Zeichen ausgeben 

Zeichen im Akku übergeben 

SFFFO PLOT 

Cursor setzen/ 

Zeile(X)/Spalte(Y)/Carry Clear 


Position holen 

Carry Set/Positionsübergabe in X/Y 

$FFBA SETLFS 

Fllepar. setzen 

Filenr.(A)/Gerät(X)/Sek.Adresse(Y) 

SFFBD SETNAM 

Filename setzen 

Länge Name(A)/Adresse Name(X/Y) 

SFFD5 LOAD 

Programm laden/ 

Load(0)-Verify(1)- Flag(A)/ 

Ladeadresse Verify durchführen 
(X/Y) bei relativem Laden, absolutes Laden 
bei Sek.-Adresse 1 (SETLFS) 

SFFD8 SAVE 

Programm speichern 

Zeropage-Adresse des Zeigers aut die 
Anfangsadresse(A)/ 

Endadresse+1(X/Y) 


Der beste Computer nützt einem wenig, wenn 
man seine Fähigkeiten nicht einzusetzen weiß. 
Wir zeigen, wie man mit dem C16 Grafik und 
Sound programmiert. 

A ls Commodore 1984 die beiden Computer C16/C116 
und Plus 4 auf den Markt brachte, ahnte wohl noch nie¬ 
mand, daß sich der C16 gegen seinen größeren 
Bruder durchsetzen würde. Doch es geschah noch mehr: 

Der Plus 4 verschwand schon nach kurzer Zeit wieder von 
den Ladentischen. Er war für seine mäßige Leistung einfach 
zu teuer. Der C16 hingegen konnte sich bis heute auf dem 
Markt halten. Dies liegt wohl an seinem geringen Preis: er ist 
im Moment schon für weit unter 300 Mark erhältlich. Für die 
Ausführung mit Gummitastatur des C116 sind sogar zirka 50 
Mark weniger zu berappen. Ob sich diese Einsparung jedoch 
lohnt, ist Ansichtssache. Wer zahlt nicht gerne 50 Mark mehr, 
um auf einer sehr guten und altbewährten Schreibmaschi¬ 
nentastatur ermüdungsfrei arbeiten zu können? 

Wenn im folgenden Artikel vom C16 die Rede ist, so ist 
damit natürlich ebenso der C116 gemeint. 

Der C16 eignet sich besonders für Einsteiger, die mal in die 
Computerei hineinschnüffeln wollen. Der geringe Preis des 
Gerätes setzt die Hemmschwelle für Anfänger weit herunter. 


Woran liegt es nun, daß der C16 trotz seines geringen Prei¬ 
ses nicht ein Renner wie beispielsweise der C64 wurde? 

Das einzige große Manko des C16 ist sein geringer Spei¬ 
cherplatz. Er stellt dem Benutzer nur ganze 16 KByte zur Ver¬ 
fügung. Schaltet man in den Grafikmodus, dann bleiben so¬ 
gar nur noch 2 KByte für das Programm. Abhilfen in Form von 
Speichererweiterungen sind vorhanden, aber nicht unbe¬ 
dingt billig. Von einigen Herstellern (außer Commodore) wer¬ 
den sie inzwischen angeboten. 

Ansonsten läßt der C16 kaum Wünsche offen (zumindest 
in seiner Preisklasse): Erstmals rüstet Commodore die Com¬ 
puter C16 und Plus 4 mit dem verbesserten Basic 3.5 aus. 
Endlose Programme mit PEEK und POKE-Sequenzen gehö¬ 
ren der Vergangenheit an. Sound und Grafik können bequem 
über Basic-Befehle programmiert werden (in diesem Punkt 
ist er sogar dem C 64 überlegen). In diesem Artikel wollen wir 
uns vor allem der Grafik- und Sound-Programmierung wid¬ 
men. 

Zur Grafik gehören natürlich auch die Farben. Der C16 bie¬ 
tet im Gegensatz zum VC 20 oder C 64 erstmals die Möglich¬ 
keit, 121 verschiedene Farbstufen darzustellen. Diese set¬ 
zen sich aus 16 Farben zusammen, von denen 15 in 8 Hellig¬ 
keitsstufen dargestellt werden können. Für die sechzehnte 
Farbe (Schwarz) gibt es keine Helligkeitsunterschiede. 
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CI 6/116 


Das Beispielprogramm »FARBDEMO« (siehe Listing 1) 
zeigt alle 121 Farben gleichzeitig am Bildschirm. Zur Farbpro- 
grammierung findet man im Befehlssatz den »COLOR«- 
Befehl. Ihm sollten drei Parameter folgen: 

COLOR Bereich, Farbe, Helligkeit 
Die Bereich- und Farb-Zuordnung können Sie den Tabellen 
1 und 2 entnehmen. Die Helligkeit kann zwischen 0 (sehr 
dunkel) und 7 (sehr hell) variiert werden. Ebenso, wie man bei 
den älteren Commodore-Geräten den jeweiligen Farbwert 
mittels »PEEK« wieder abfragen konnte, gibt es im neuen 
Basic 3.5 die Funktionen »RCLR(X)«, um die Farbe des Bild¬ 
schirmpunktes X auszugeben, und »RLUM(X)«, um die Hellig¬ 
keit der Farbe zu bestimmen. 

Die verschiedenen Grafikmodi 

Soviel zu den Farben. Mit den Grafiksymbolen des C16 las¬ 
sen sich zwar viele einfache Grafiken (Blockgrafiken) erstel¬ 
len, aber man stößt sehr schnell an die Grenzen des Machba¬ 
ren. Um auch komplexere Grafiken zu erstellen, muß in den 
Grafik-Modus umgeschaltet werden. Man unterscheidet 
zwei Grafik-Modi: zum einen hochauflösende Grafik, zum 


(C 16) FARBDEMO 


(116) 


10 REM ********************************* 
* 

* 

* CHRISTIAN QUIRIN SPITZNER 

* GRUBERSTR. 53, 8011 POING 

* TELEFON: 08121/81100 


20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
70 REM 
80 REM 

90 REM ********************************* 
100 COLQR0,4 
110 CQL0R4,4 

120 PRINT"<CLR,DOWN,BLACK,10SPACEJF A R 
B D E M 0 {CTRL—@>fE{DOWN,FLASHON,CTRL—@,L 
IG. GREEN > " ============== 

140 PRINT" HC2SPACE1S WRZPGBGOB 
G R B H D H {CTRL—<ä, HOME ,RVSON, LIG. RED,CT 
RL-<ä,LIG.GREEN>" E CEOYURLERR 
E 0 L E U E 

160 PRINT" L<2SPACE>H ITARUALAA 
L S A L N L€CTRL-@>£{RVSON>WCCTRL-@,LIG. 
GREEN > u L WE.NPEUBNUBAULK 
L 

180 PRINT" I{2SPACEJA S..UN..G. 

G . G B E G{CTRL-@>F{RVSON>V{CTRL-@,LIG. 
GREEN>" G RS..R...E.R.RLL 
R 

200 PRINT" K<2SPACE>Z . 

U . U A B U{CTRL-®,CTRL—O,HOME>Ä{CTRL—@, 

LIG. GREEN>" E.E.E 

ULE 

220 PRINT" I{2SPACEJ. 

N . N . A NCCTRL-@>,8{HOME>?{CTRL-@,LIG.G 

REEN}" T.U 

."{CTRL-@> ü. {HOME >W{CTRL—@,LIG.GREEN,CTRL 
-e> = {HOME>ß{CTRL—ORANGE >JTT7 @ 0 £. Ul { 
CTRL-@,F6,HOME,CTRL-D,CTRL-A >:{2SPACE,LI 
G.GREEN >"STOP" J ;{CTRL-@,LEFT,HOME,CTRL-N 
,CTRL-A>:{2SPACE,ORANGE >IW1 3 16{CTRL-8 
JBtHOME,CTRL—X,CTRL—A >:{2SPACE>W 1,1,J {C 
TRL—ei^HOME>" : PRINT" {SPACE,RVBQN,SPAC 
E,RVOFF J"; 

300 : NEXT I 
310 : PRINT 
320 NEXTJ 
330 GETKEYA* 

©64'«’ 


anderen Multicolor-Grafik. Im HiRes-Modus können 64000 
Punkte einzeln angesprochen werden (siehe Bild 1). Hier 
können jedoch in jeder Cursorposition (8x8 Einzelpunkte) 
nur zwei Farben dargestellt werden (Zeichen- und Hinter¬ 
grundfarbe). Bis zu vier Farben lassen sich im Multicolor- 
Modus darstellen, allerdings auf Kosten der Auflösung: Pro 
Zeichen können nur noch 4x8 Punkte dargestellt werden. 
Daraus ergibt sich eine Gesamtauflösung von 32000 Grafik¬ 
punkten (siehe Bild 2). 

Der Grund für diese Reduzierung der Auflösung läßt sich so 
erklären: 

Im HiRes-Modus genügt ein Bit, um einen Punkt zu setzen, 
da die Zeichenfarbe hier entweder ein- oder ausgeschaltet 
wird. Im Multicolor-Modus muß jedem Bildpunkt aber auch 
noch eine von vier Farben zugeteilt werden. Das heißt, man 
muß jedem Punkt einen Wert zwischen Null und Drei zuord¬ 
nen. Hierfür genügt aber nicht mehr ein Bit. Um vier unter¬ 
schiedliche Zustände darstellen zu können, benötigt man 
also 2 Bit (2 3 =4). Da aber im Multicolor-Modus nicht dop¬ 
pelt so viel Speicherplatz aufgewendet werden kann, muß 
man für Farbe die halbe Auflösung in Kauf nehmen. 

Die beiden Grafik-Modi lassen sich mit dem »GRAPHIC«- 
Befehl ein- und ausschalten. Dem Befehl sollten zwei Para¬ 
meter folgen, von denen der erste den Modus angibt (Tabelle 
3). Ist der zweite Parameter eine Eins, so wird der Grafik- 
Bildschirm gelöscht. Folgt kein zweiter Parameter oder ist 
dieser Null, so bleibt die Grafik erhalten. Wollen Sie im Pro¬ 
gramm erfahren, in welchem Modus Sie sich befinden, so gibt 
die Funktion »RGR(X)« den gegenwärtigen Modus aus 
(Tabelle 3). Befindet man sich schon im Grafikmodus und soll 
der Bildschirm gelöscht werden, so benützt man den 
»SCNCLR«-Befehl. Verläßt man den Grafikmodus mit »GRA¬ 
PHIC C*. so stehen dem Benutzer trotzdem nur 2 KByte 
Speicher zur Verfügung, da das Grafikbild bis zum erneuten 
Einschalten erhalten bleibt. Erst nach dem Befehl »GRAPHIC 
CLR« werden die restlichen 14 KByte freigegeben. In diesem 
Fall bleibt auch die Grafik nicht mehr erhalten. 

In beiden Grafik-Modi befindet sich der Koordinatensprung 
(0/0) links oben. Damit zum Beispiel beim Konstruieren eines 
Graphen nicht jedesmal überlegt werden muß, in welchem 
Modus man sich gerade befindet, gibt es den »SCALE«- 
Befehl. Schaltet man die Skalierung mit »SCALE 1« ein, so 
stehen, unabhängig vom Modus, auf den X- und Y-Achsen 
jeweils die Werte zwischen 0 und 1023 zur Verfügung. Das 
heißt aber nicht, daß sich auch die Auflösung auf 1048576 
(1024 x 1024) Punkte erhöht hat. Es wird vielmehr mit meh¬ 
reren benachbarten Adressen jeweils ein- und derselbe 
Punkt angesprochen. Abgeschaltet wird die Skalierung mit 
»SCALE 0«. 


WERT 

BEREICH 

0 

Bildschirm-Hintergrund 

1 

Vordergrund (Zeichen, Cursor) 

2 

Zusatzfarbe 1 (für Multicolor) 

3 

Zusatzfarbe 2 (für Multicolor) 

4 

Bildschirmrand 


Multicolor-Modus 


Listing. Dieses Demo-Programm bringt alle 121 Farben des 
C16 auf den Bildschirm (siehe auch Seite 76) 


WERT 

Farbe 

WERT 

Farbe 

1 

Schwarz 

9 

Orange 

2 

Weiß 

10 

Braun 

3 

Rot 

11 

Gelbgrün 

4 

Cyan 

12 

Rosa 

5 

Purpur 

13 

Blaugrün 

6 

Grün 

14 

Hellblau 

7 

Blau 

15 

Dunkelblau 

8 

Gelb 

16 

Hellgrün 


C16 darstellen 
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Genau wie im Textmodus, steht dem Benutzer im Grafik- 
Modus ein Cursor zur Verfügung. Dieser Pixel-Cursor bleibt, 
solange nicht gezeichnet wird, unsichtbar. Um ihn an eine 
beliebige Stelle des Bildschirms zu bewegen, benützt man 
den »LOCATE«-Befehl: 

LOCATE X-Koordinate, Y-Koordinate. 

Die X- und Y-Werte sind natürlich abhängig vom jeweiligen 
Modus beziehungsweise Skalierung. Der Pixel-Cursor bleibt 
jeweils auf dem zuletzt bearbeiteten Punkt stehen und kann 
mit der Funktion »RDOT(X)« abgefragt werden. Setzt man für 


HIRES-Aullösung 

8 * 8 - 64 Elnzelpunkte pro Blldschlrmpunkt 


0/0 

1/0 

2/0 








O/I 

1/1 

2/1 








0/2 

1/2 

2/2 
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25 Zeilen 
ä 8 Punkte 
= 200 


40 Spelten 
6 8 Punkte 
= 320 


GESAMT: 320 x 200 = 64000 Einzelpunkte 


Bild 1. Im HiRes-Modus lassen sich 64000 Punkte darstellen 


Bild 2. Im Multicolor-Modus reduziert sich die Auflösung auf 
32000 Einzelpunkte 


MULTICOt.ÖR-AuHösang 

4 x 8 = 32 Elnzelpunkte pro Cursorpunkt 



0/0 

I/O 

2/0 



1/0 

1/1 

1/2 
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2/0 

2/1 

2/2 
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40 Spellen 
& 4 Punkte 
= 180 


































25 Zeilen 1 

6 8 Punkte GESAMT: 160 x 200 = 32000 Elnzelpunkte 

= 200 

T 


X Null ein, so wird die X-Koordinate angegeben. Die Y-Koor¬ 
dinate kann für X gleich 1 in Erfahrung gebracht werden. 
Setzt man in die »RDOT«-Funktion die Zahl 2 ein, so wird die 
aktuelle Farbe des Pixel-Cursors ausgegeben. Ein Beispiel 
LOCATE 100,150:PRINT ROOT (1) ergibt 150. 

Grafikbefehle 


Gezeichnet wird mit Hilfe des »DRAW«-Befehls. Mit ihm las¬ 
sen sich Punkte, Linien und ganze Linienzüge darstellen. Für 
einen Punkt sind zusätzlich drei Parameter notwendig: Die 
erste Zahl gibt die Farbe an. Sie kann im HiRes-Modus maxi¬ 
mal zwei Werte annehmen: 

0 = Hintergrundfarbe (=Punkt löschen) 

1 = Zeichenfarbe (=Punkt setzen) 

Im Multicolor-Modus stehen zwei zusätzliche Werte zur 
Auswahl: 

2 = Zusatzfarbe 1 (siehe Color-Befehl) 

3 = Zusatzfarbe 2 (siehe Color-Befehl) 

Der zweite und dritte Parameter des »DRAW«-Befehls 
geben die X- und Y-Koordinaten des Punktes an. Der Befehl 
»DRAW 1,160,100« setzt im HiRes-Modus einen Punkt in 
der Bildschirmmitte. Soll eine Linie gezeichnet werden, so 
sind weiter zwei Parameter nötig, die die Koordinaten des 
Endpunktes angeben. Diese beiden Parameter werden mit 
»TO« abgetrennt: 

DRAW 1,0,0 TO 319,199 

Um eine Linienkette zu zeichnen, können weitere Punkte 
mit »TO« abgetrennt werden. 

DRAW 1,0,0 TO 319,0 TO 319,199 TO 0,199 TO 0,0 
Definiert man im »DRAW«-Befehl keinen Anfangspunkt, so 
wird e* n ' ; Linie von der letzten Cursorposition zum Endpunkt 
gezogen. 

DRAW 1 TO 100,100 

Mit der »DRAW«-Anweisung lassen sich also auch Recht¬ 
ecke und Quadrate zeichnen. Allerdings benötigt man die 
Koordinaten aller Eckpunkte. Rechtwinklige Vierecke lassen 
sich mit dem »BOX«-Befehl jedoch viel einfacher zeichnen. 
Hier müssen nur noch Farbe (O - 3) und die Koordinaten der 
gegenüberliegenden Eckpunkte angegeben werden. Diese 
Rechtecke können natürlich auch gedreht dargestellt wer¬ 
den. Zu diesem Zweck gibt man als sechsten Parameter noch 
den Drehwinkel in Grad ein. Soll das Rechteck zudem noch 
ausgefüllt werden, muß als siebter Parameter die Zahl 1 fol¬ 
gen. Mit folgendem Beispiel wird in der Mitte des HiRes- 
Grafikbildschirms ein auf der Spitze stehendes, ausgefülltes 
Quadrat dargestellt: 

BOX 1,110,50,210,150,45,1 
Ein weiterer nützlicher Befehl des Basic 3.5 ist die »CIR- 
CLE«-Anweisung. Mit ihr lassen sich Kreise, Ovale, Kreisseg¬ 
mente und Vielecke zeichnen. Für einen einfachen Kreis 
genügen schon vier Parameter: 

»CIRCLE (Farbzone), (X-Koordinate des Mittelpunkts), 
(Y-Koordinate des Mittelpunkts), (Radius)« 
zum Beispiel: CIRCLE 1,160,100,100 


WERT 

Modus 


0 

Textmodus 


1 

HiRes-Grafik 


2 

HiRes-Grafik 

(Zelle 1 - 20) 


8 Text 

(Zeile 21 -25) 

3 

Multicolor-Grafik 


4 

Multicolor-Graflk 

(Zelle 1 - 20) 


8 Text 

(Zeile 21-25) 


Tabelle 3. Fünf verschiedene Grafikmodi stehen dem 
Programmierer zur Verfügung 
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CI 6/116 


An einem Fernsehgerät sieht dieser Kreis eventuell nicht 
rund, sondern oval aus. Um auch hier einen Kreis zu zeich¬ 
nen, kann zusätzlich noch eine Zahl für die Höhe eingegeben 
werden. 

CIRCLE 1,160,100,100,84 

Kreissegmente lassen steh mit zwei weiteren Parametern 
darstellen, indem man noch Anfangs- und Endwinkel (in 
Grad) angibt. Soll das Ganze auch noch gedreht werden, so 
kann als achter Parameter noch der Drehwinkel angegeben 
werden. Aber der »ClRCLEs-ßefehl zeichnet nicht nur Kreise, 
Ovale oder deren Segmente. Es lassen sich ebensogut Drei¬ 
ecke, Vierecke und Vielecke darstellen. Als Zusatzangabe 
muß hier als neunter Parameter der Winkel in den Ecken des 
n-Ecks angegeben werden. Dieser Wert errechnet sich für 
ein n-Eck folgendermaßen: 

Wert = 360/n 

Mit der »PAINT«-Anweisung lassen sich geschlossene Flä¬ 
chen farbig ausfüllen. Dem »PAINT«-Befehl folgen maximal 
vier Parameter: »PAINT (Farbzone), (X-Koordinate), 
(Y-Koordinate), (Modus)«. 

Farbig gefüllt wird die Fläche, in der die angegebenen 
Koordinaten liegen. Die Grenzen müssen entweder dieselbe 
Farbe oder (falls Modus 1 gewählt wurde) eine der beiden 
Zusatzfarben besitzen. Hier ist jedoch jedoch Vorsicht gebo¬ 
ten, denn befindet sich irgendwo eine Lücke in der Begren¬ 
zung, so wird der gesamte Bildschirm gefüllt. 

Schriftzüge 


Die schönste Grafik ist ohne Beschriftung aber nur halb so 
schön. Um Grafiken mit dem nötigen Text zu unterlegen, steht 
die »CHAR«-Anweisung zur Verfügung. Sie funktioniert ähn¬ 
lich wie der PRINT-Befehl. Als zusätzliche Parameter sind 
Farbzone, Zeile, Spalte und eventuell Reverse-Flag gefragt: 
»CHAR (Farbzone), (Spalte (0-39)), (Zeile (0-24)), 
(STRING), (REVERS-Flag 0 = AUS; 1 = EIN)« 

Folgendes Beispiel schreibt in der fünften Spalte und zehn¬ 
ten Zeile in reverser Schrift »C16/116«: 

CHAR 1,4,9, "C 16/116",1 

Die Fülle dieser Grafik-Befehle ist bestimmt eine Grund¬ 
lage für kleine oder größere Experimente. Sie werden mit ein 
wenig Übung und Phantasie feststellen, daß mit geringem 
Aufwand erstaunliche Effekte erzielt werden können. Im 
nächsten Absatz werden wir uns mit den Shapes befassen. 

SHAPES 


Da der C16 im Gegensatz zum C64 über keine Sprites ver¬ 
fügt, versucht man sich beim C16 mit sogenannten »Shapes« 
zu behelfen. Shapes sind rechtwinklige Ausschnitte aus dem 
Grafikbildschirm, die einer Stringvariablen übergeben wur¬ 
den. 

Diese Ausschnitte lassen sich dann beliebig an jede Stelle 
des Bilschirms setzen. Das Shape kann nach Belieben in fünf 
verschiedenen Modi wiedergegeben werden. Das Shape 
kann entweder revers oder wie die Originalfläche dargestellt 
werden. Es läßt sich ebenso mit dem neuen Hintergrund 
»logisch« verknüpfen. Die entsprechenden Modi können Sie 
der Tabelle 4 entnehmen. 


WERT Wiedergabe-Modus 

0 Wie Original 

1 Revers 

2 Oder-Verknüpfung mit Grafikfläche 

3 UND-Verknüpfung mit Grafikfläche 

4 Exkluslv-Oder-Verknüpfung mit Grafikfläche 


Zur Shapehandhabung stehen dem Benutzer zwei Befehle 
zur Verfügung. Der »SSH APE«-Befehl übernimmt eine Recht¬ 
eckfläche aus dem Grafikbild in eine Basic-Stringvariable. 
Der Befehl hat folgende Syntax: 

»SSHAPE Stringvariable, X1.Y1.X2.Y2« 

Hierbei geben die vier Parameter die Eckkoordinaten des 
Shapes an. X2 und Y2 liegen diagonal gegenüber den Koor¬ 
dinaten XI und Y1. Auch hier sind »scalierte« Werte möglich. 
Da aber eine Stringvariable nur maximal 255 Zeichen lang 
sein darf, können die Shapes nicht beliebig groß sein. Die 
Größe eines Sprites (wie beim C64) kann jedoch spielend 
erreicht werden. Um ein Shape an einer anderen Stelle des 
Grafik-Bildschirms wiederzugeben, steht der »GSHAPE«- 
Befehl zur Verfügung. Dieser Befehl hat folgendes Format: 
»GSHAPE (Stringvariable), XI, Y1 (Modus) 

Weil die Größe des Shapes zu diesem Zeitpunkt schon 
feststeht, sind hier nur die Koordinaten des linken, oberen 
Eckpunktes des Shapes anzugeben. Der letzte Parameter 
bestimmt den Wiedergabemodus (Tabelle 4). 

Durch die verschiedenartigen Verknüpfungsmöglichkeiten 
stehen dem Programmierer erstaunliche Fähigkeiten zur Ver¬ 
fügung. Shapes sind zwar kein Ersatz für Sprites, können 
aber auch zu reizvollen Ergebnissen und Effekten führen. 


Sound 


Warum Commodore bei diesem Computer auf die altbwähr- 
ten Sprites verzichtet hat, ist ebensowenig zu verstehen wie 
der Verzicht auf den SID, den Sound-Chip des C64. 

Während man beim C64 noch von »Sound«-Programmie- 
rung sprachen konnte, begnügt sich der C16 mit »Tongenera¬ 
toren«. longenerator 1 erzeugt nur Töne, während Tongene¬ 
rator 2 auch Geräusche von sich geben kann. Generator 1 
wird über Stimme 1 gesteuert. Stimme 2 verwaltet den Ton¬ 
generator 2, während die dritte Stimme den Rauschgenera¬ 
tor des zweiten Tongenerators übernimmt. 

Da die Tongeneratoren weder Filter, Hüllkurven noch son¬ 
stige Effekte beherrschen, ist die Tonerzeugung auf dem 
C16 recht einfach: Die Lautstärke kann mit dem »VOL«- 
Befehl zwischen 0 (Lautstärke aus) und 8 (maximale Laut¬ 
stärke) geregelt werden. Der Befehl setzt sich aus dem 
Befehlswort einer Zahl zusammen: 

»VOL x (zwischen 0 und 8)« 

Die drei Stimmen werden mit dem »SOUND«-Befehl ange¬ 
sprochen. Hier müssen drei Parameter folgen. Der erste gibt 
Auskunft über die Stimme. Parameter Nummer 2 bestimmt 
den Notenwert, während der dritte Parameter die Länge des 
Tones angibt: 

»SOUND (Stimme), (Note), (Länge)« 

Der Wert für die Tonhöhe kann zwischen 0 und 1015 vari¬ 
iert werden. Die Länge des Tones wird in 1/50stel Sekunden 
angegeben und kann zwischen 0 und 65535 liegen. Es kann 
somit eine maximale Tonlänge von über 20 Minuten erreicht 
werden. 

Obwohl die Tongeneratoren mit dem SID des C64 nicht 
mithalten können, bieten sich genug Möglichkeiten, sie aus¬ 
zunutzen. Vor allem Stimme 3 eignet sich hervorragend zur 
Erzeugung schöner Effekte. 

Der C16 zeichnet sich dadurch aus, daß alle Möglichkeiten 
des Computers ohne die lästigen »PEEKs« und »POKEs« voll 
ausgeschöpft werden können. Das Basic 3.5 läßt kaum Wün¬ 
sche offen und Ist für Einsteiger bestens geeignet. 

Zur Programmierung schneller Spiele wird man aber auch 
hier kaum die Maschinensprache umgehen können. Es sei 
hier auf den Artikel »Maschinensprache auf dem C16« in die¬ 
sem Sonderheft verwiesen. 

(C. Q. Spitzner/tr) 



Tabelle 4. Shapes lassen sich mit Grafiken logisch verknüpfen 
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Das ist der C16 



Bild 1. Das komplette C16-System mit Computer, Datasette und Joystick ist der ideale Einstieg in die Programmierung 


Als Nachfolger des VC20 konzipiert und mit 
einem bemerkenswert komfortablen Basic verse¬ 
hen, ist der C16 inzwischen zum vielgekauften 
Einsteigermodell von Commodore avanciert - und 
das gleich doppelt, nämlich als C16 und C116. 

B ei dem C16/C116 von Commodore handelt es sich 
nicht nur um einen Computer, sondern um ein ganzes 
System (Bild 1, 6 und 7). Computer, Datasette und 
Joysticks präsentieren sich im schwarz-grauen »Profi-Look«, 
Drucker und Floppy-Laufwerk des VC 20/C 64-Systems pas¬ 
sen auch an den C16. 

Die beiden Geräte C 16 und C 116 sind hard-und software¬ 
mäßig völlig identisch. Der einzige Unterschied besteht bei 
Gehäuse und Tastatur. Während der C16 hier der durch 
VC 20 und C 64 vorgegebenen Linie folgt, ist der 116 mit sei¬ 
ner Radiergummi-Tastatur und dem Miniatur-Gehäuse eher 
als Billig-Version einzustufen. 

Doch sehen wir uns zunächst den C16 etwas genauer an. 
Ein erster Blick auf die Tastatur (Bild 2) offenbart schon einige 
Unterschiede zum VC 20/C 64. Aus den beiden Cursorta¬ 
sten des Vorgängers wurden beim C16 deren vier, die aber 
leider etwas ungünstig rechts oben in einer Reihe in den 
Tastaturblock integriert wurden. Um für diese Anordnung 
Platz zu schaffen, mußten einige andere Tasten verlegt wer¬ 
den. So findet der an die VC20-Tastatur gewöhnte Program¬ 
mierer die häufig benötigten Tasten »4-«, »-«, »*«, »t« und »=« 
nicht mehr an ihrem gewohnten Platz, was zu Anfang recht 
lästig ist. Insbesondere die Anordnung der »=«-Taste ganz 
rechts unten ist sehr unglücklich gewählt. 

HELP eingebaut 


Die unterste Funktionstaste ist mit »HELP* beschriftet und 
hat eine spezielle Bedeutung bei der Fehlersuche. Drückt 
man nämlich diese Taste, nachdem der Computer eine Feh¬ 
lermeldung angezeigt hat, dann wird die fehlerhafte Zeile 
sofort aufgelistet und der Abschnitt, in dem der Fehler auftrat, 
blinkt mit der Cursorfrequenz. Eine feine Sache bei der Pro¬ 


grammentwicklung, allerdings wäre es schön, wenn man das 
mit der Zeit doch etwas nervende Blinken auf irgendeine ein¬ 
fache Art abstellen könnte. 

Eine Restore-Taste gibt es nicht mehr, die Linkspfeiltaste 
des VC 20/C 64 ist jetzt mit »ESC« (mehr darüber später) 
beschult und im Vordergrund fallen zwei neu beschriftete 
Tasten, »FLASH ON« und »FLASH OFF«, ins Auge. Zusam¬ 
men mit der CTRL-Taste wird dadurch ein Blink-Modus ein¬ 
beziehungsweise ausgeschaltet (analog zu RVS ON/OFF). 

Die Funktionstasten sind mit Basic-Befehlen belegt. Sonst 
entspricht sowohl die Tastatur als auch der Zeichensatz dem 
»Commodore-Standard«, man wird als »Umsteiger« wenig 
Schwierigkeiten haben. 



Bild 2. Die Tastatur ist bewährt und gut. Erkennbar Ist die 
gegenüber dem VC 20 geänderte Belegung einiger Tasten. 



Bild 3. Der C16 von der Seite. Deutlich zu erkennen der weiße 
Reset-Schalter und die Mikro-Joystickbuchsen. Auch der 
Netzteil-Anschluß wurde geändert. 
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Ein Blick an die rechte Seite des C16, wo man ganz richtig 
den Einschaltknopf vermutet, und sofort fallen zwei Dinge ins 
Auge (Bild 3). Als erstes und zwar sehr positiv, ein kleiner 
Reset-Schalter - unverständlich, daß es Computer gibt, die 
keinen haben. Links daneben zwei winzige Buchsen, darüber 
steht etwas geschrieben. Man liest es, reibt sich die Augen, 
schaut nochmals hin - tatsächlich, es ist wahr: Die Mikro- 
Buchsen sind mit JOY 1 und JOY 2 beschriftet. Endlich ein¬ 
mal ein Computer, an den garantiert kein Joystick außer 
einem ganz speziellen Commodore-Stick mehr paßt. Diese 
Joystickanschlüsse sollen über eine verbesserte Abschir¬ 
mung verfügen, aber es bleibt die Frage, ob man den gleichen 
Effekt nicht auch mit Standard-Buchsen hätte erreichen 
können. 

Was macht nun jemand, der zum Beispiel vom VC 20 auf 
den C16 umsteigt, mit seinen vorhandenen Joysticks ? Nun, 
vermutlich das gleiche wie mit seiner Datasette, denn auch 
der Datasettenanschluß wurde geändert. Da hilft alles nichts, 
entweder wird im Eigenbau ein entsprechender Zwischen¬ 
stecker hergestellt, oder die alte Datasette wandert zusam¬ 
men mit dem Lieblingsjoystick in eine Verkaufsanzeige. 


merkenswert gute und umfangreiche Basic 3.5, das den C16 
zum idealen Computer für alle diejenigen macht, die wenig 
mit Maschinensprache im Sinn haben, aber trotzdem gute 
Programme schreiben wollen. 

Programmieren ohne POKEs 


Gute Programme für C64 und VC 20 zeichnen sich im 
wesentlichen dadurch aus, daß man sie nicht mehr lesen 
kann. Nach LIST flimmert dort, zumindest bei Programmen, 
die mit Grafik und Tonuntermalung arbeiten, ein unergründli¬ 
ches Gemisch von POKE, PEEK, SYS und sehr viel DATA 
über den Bildschirm, ab und zu auch einmal ein »normaler« 
Basic-Befehl (in der Regel ein »GOTO«). Wenn man sich ein¬ 
mal vor Augen hält, daß POKE, PEEK und SYS die Verbin¬ 
dung zwischen Basic und Maschinensprache hersteilen, 
dann kann man ruhigen Gewissens sagen, daß die bisherigen 
Commodore-Heimcomputer im wesentlichen in Maschinen¬ 
sprache programmiert werden mußten - unverständlich für 
den Einsteiger, schwer erträglich aber auch für den Profi, der 




Problemlos erweiterbar? 


Ein ängstlicher Blick auf die Rückseite des Computers (Bild 4) 
zeigt, daß wenigstens der serielle Bus nicht mit Spezialbuch¬ 
sen versehen wurde. Floppy und Drucker sind also weiterhin 
problemlos anzuschließen. Ein Video-Modulator ist wie beim 
C 64 fest eingebaut. Auffällig ist das Fehlen eines User-Ports, 
bisher Kennzeichen aller Commodore-Computer. Bild 4. Die Anschlußmöglichkeiten an der Rückseite (von links 

Der Expansion-Port dient zum Aufnehmen von Steckmodu- nach Expansion-Port, Antennenbuchse, Monitoraus- 


len mit fertiger Software, sowie zum Anschluß einer (noch 
nicht erhältlichen) Speichererweiterung. Zu diesem Thema 
wäre zu bemerken, daß das Betriebssystem mit zwei Spei- 
cherbanks arbeitet. Zwischen den 32 KByte ROM von 
Betriebssystem und Basic und den (noch) 16 KByte RAM 
wird mittels Bank-Switching hin- und hergeschaltet. Dadurch 
kann man mit PEEK nicht ins ROM »hineinschauen«, sondern 
bewegt sich nur auf der RAM-Ebene. Nach Einbau einer 64 
KByte-RAM-Erweiterung (siehe Testbericht in diesem Son¬ 
derheft) stehen daher tatsächlich fast 60 KByte für Basic- 
Programme zur Verfügung. 

Eine solche RAM-Erweiterung hätte übrigens auch noch 
bequem im Gehäuse des C16 Platz. Ein Blick dort hinein auf 
die Platine (Bild 5) offenbart ein sehr aufgeräumtes Innen¬ 
leben. Die großen integrierten Bausteine, insbesondere die 
flSo'j neue CPU 7501 (kompatibel mit 6502/6510) und der eben¬ 
so falls neuentwickelte TED 7360, stellen Eigenentwicklungen 
von Commodore dar und werden nicht frei gehandelt. Infor¬ 
mationen über diese Bausteine gibt es daher - ganz nach Art 
des Hauses - praktisch keine. 

Auffällig ist das Fehlen weiterer Peripheriebausteine wie 
VIA oder CI A. Die Funktionen dieser Bausteine wurden in den 
TED integriert, der sich auch um die Video-Darstellung und 
die Tonerzeugung kümmert und so den Prozessor entlastet. 

Betriebssystem und Basic sind in je einem 128 KBit ROM 
untergebracht, die 16 KByte RAM befinden sich in zwei TMS 
4416-Chips. Zur besseren Wärmeableitung und Abschir¬ 
mung ist über der Platine eine gelochte Metallplatte ange¬ 
bracht (im Bild 5 entfernt), von der ein Ausleger direkt mit dem 
besonders kühlungsbedürftigen TED-Baustein Kontakt hat. 

Besonders bemerkenswert: Bei unserem Testgerät waren 
alle hochintegrierten IC gesockelt. Es bleibt abzuwarten, ob 
diese gute Technik auch bei größeren Stückzahlen beibehal¬ 
ten wird. Und größere Stückzahlen wurden von diesem Com¬ 
puter bereits verkauft, dafür sorgte aller Inkompatibilität zu 
anderen Commodore-Computern zum Trotz schon das be- 


gang, serieller Port und Datasetten-Anschluß. 


Bild 5. Die Platine des C16. Im Gehäuse ist noch viel Platz. 


Bild 6. Die Datasette präsentiert sich auch im neuen Design 
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CI 


kostbare Programmierzeit damit vergeudete, sich seine 
eigene Basic-Erweiterung zu basteln, um überhaupt erst ver¬ 
nünftig arbeiten zu können. 

Mit dem Basic 3.5 hat Commodore ganz offensichtlich 
einen anderen Weg beschritten. Von der simplen Farbwahl 
über die Tonerzeugung bis hin zur hochauflösenden Grafik 
läßt sich alles mit entsprechend leistungsfähigen Basic-Be- 
fehlen programmieren. Daneben wird natürlich auch die 
strukturierte Programmierung unterstützt. Sprachkonstruk- 
tionen wie IF...THEN...ELSE, DO WHILE oder DO UNTIL 
machen die dem Programm zugrunde liegende Idee im 
Listing sichtbar und vermeiden umständliche (und langsame) 
GOTO-Sprünge. 

Natürlich ist Basic 3.5 vollständig aufwärtskompatibel zum 
altertümlichen V.2.0-Minimal-Basic des VC20/C64. Insge¬ 
samt ist das Basic 3.5 so leistungsfähig, daß alleine eine 
genaue Beschreibung aller Befehle und Funktionen leicht ein 
ganzes Sonderheft füllen würde (Tabelle 1). Beschränken wir 
uns daher auf die Betrachtung einiger wichtiger Aspekte. 


Die Grafik 


Der Bildschirm des C16 hat eine Aufteilung von 25 Zeilen zu 
je 40 Zeichen. Jedes Zeichen wird in einer 8x8-Matrix darge¬ 
stellt. Damit gibt es insgesamt also 320 Punktpositionen 
(40x8) pro Zeile, und 200 Punktpositionen (25x8) in vertika¬ 
ler Richtung. Genausoviele Punkte, nämlich 320 mal 200, 
können im hochauflösenden Grafik-Modus einzeln ange¬ 
sprochen werden. Mit insgesamt 64000 Einzelpunkten 
erreicht der C16 damit die Grafik-Auflösung des C 64, was in 
etwa einer Verdopplung gegenüber dem VC 20 gleichkommt. 

Daneben ist noch ein Mehrfarbenmodus mit halbierter Auf¬ 
lösung vorgesehen, bei dem jeder der dann 32000 Einzel¬ 
punkte eine von vier möglichen Farben annehmen kann. 

Bis hier herrscht noch eine völlige Übereinstimmung zum 
Grafik-Konzept des C64. Der große Unterschied ist nun, daß 
die C16-Grafik vom Basic voll unterstützt wird. 

Um beispielsweise mit dem C64 (ohne Erweiterung!) 
einen Kreis oder eine Ellipse in hochauflösender Grafik zu 
zeichnen und zusätzlich noch einen Text einzublenden, 
benötigt man neben fundierten Kenntnissen über die interne 
Organisation seines Computers und einigen Jahren Pro¬ 
grammiererfahrung mindestens einige Dutzend Basic-Zeilen 
und jede Menge Geduld - denn Basic-Grafik ist langsam, 
wenn die primitivsten Dinge mühselig simuliert werden müs¬ 
sen. So werden ganze Kurse und Bücher damit gefüllt, auf 


dem C64 das zu erreichen, wofür man beim C16 drei Basic- 
Befehle und - als absoluter Neuling - maximal einige Minuten 
blättern Im Handbuch braucht: 

10 GRAPHIC 1,1 : CIRCLE, 160,100,60,30 : 

CHAR,18,12, »HALLO« 

Mit GRAPHIC 1,1 wird in den hochauflösenden Grafikmo¬ 
dus geschaltet. Der erste Parameter gibt den gewählten 
Modus an (0 für Text, 1 für Hochauflösung, 2 für Hochauflö¬ 
sung mit Textfenster, 3 für Mehrfarben-Modus, 4 für Mehrfar- 
ben-Modus mit Textfenster). Als Textfenster sind dabei die 
untersten fünf Bildschirmzellen vorgesehen. Dieses Textfen¬ 
ster ist dann mit normalen PRINT-Befehlen ansprechbar. Will 
man Text direkt in die hochauflösende Grafik hineinmischen, 
dann bedient man sich des CHAR-Befehls. Der erste Parame¬ 
ter bestimmt im Mehrfarbenmodus die Textfarbe (und wird 
daher in unserem Beispiel für hochauflösende Grafik durch 
ein einzelnes Komma ersetzt). Die beiden folgenden Parame¬ 
ter kennzeichnen die Cursorposition, an welcher der Text 
ausgegeben werden soll. Als letztes muß noch ein Textstring 
angegeben werden, der dann ab der spezifizierten Position 
in die Grafik eingeblendet wird. Ein fünfter Parameter ist 
optional, nämlich die Angabe, ob der Text normal oder revers 
erscheinen soll. 

Bleibt nur noch der CIRCLE-Befehl, der mit bis zu neun 
Parametern sehr komplex sein kann. Der erste Parameter gibt 
wieder die Farbzone an und ist nur im Mehrfarbenmodus zu 
verwenden. Dann folgen die Mittelpunktkoordinaten und der 
Radius in X- und Y-Richtung. Die letzten beiden Werte sind bei 
einem Kreis natürlich gleich groß und daher reicht es, nur den 
ersten davon anzugeben. In unserem kleinen Beispiel haben 
wir jedoch eine Ellipse gezeichnet, und zwar mit Mittelpunkt 
in (160/ 7 00) und den Halbachsenabmessungen 60 bezie¬ 
hungsweise 30 Punkte. 

Aber der CIRCLE-Befehl ist noch weitaus leistungsfähiger. 
Weitere Parameter regeln das Zeichnen nur einzelner Seg¬ 
mente sowie eine Drehung der ganzen Figur um einen belie¬ 
bigen Winkel. Neben dem Zeichnen von Kreisen und Ellipsen 
kann der CIRCLE-Befehl auch für beliebige Vielecke verwen¬ 
det werden. 

Daneben steht noch eine Anzahl weiterer leistungsfähiger 
Grafik-Befehle zur Verfügung. DRAW zeichnet Einzelpunkte 
oder Linien, BOX zaubert blitzschnell alle möglichen Recht¬ 
ecke auf den Bildschirm. LOCATE dient zum Positionieren 
des Grafikcursors, mit PAINT werden geschlossene Flächen 
ausgefüllt. SCALE schließlich dient zur Skalierung der Zei¬ 
chenfläche und SCNCLR löscht den Bildschirm unabhängig 
vom eingestellten Grafikmodus. 
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Shapes statt Sprites 


Im Gegensatz zum C64 sind beim C16 keine Sprites vorge¬ 
sehen. Dafür gibt es jedoch leistungsstarke Basic-Befehle, 
um Bildausschnitte aus der hochauflösenden Grafik - soge¬ 
nannte »Shapes« - in Stringvariable abzuspeichern oder wie¬ 
der auf den Bildschirm zu bringen. Zum Beispiel wird mit 
»SSHAPE A$,100,100,120,130« der Inhalt des Rechtecks mit 
linker oberer Ecke (100,100) und rechter unterer Ecke 
(120,130) auf dem Grafikbildschirm in der Stringvariablen A$ 
abgelegt. Mit »GSHAPE A$, 60,70« wird die Grafikinforma¬ 
tion aus A$ wieder als Rechteck mit linker oberer Ecke 
(60,70) abgelegt. Über einen zusätzlichen (optionalen) Para¬ 
meter kann der Wiedergabemodus bestimmt werden: Shapes 
können genauso wie aufgenommen auch wieder eingeblen¬ 
det werden (und überschreiben dabei den Hintergrund), sie 
können revers dargestellt und schließlich wahlweise auch 
ODER, UND oder EXKLUSIV-ODER mit dem Hintergrund ver¬ 
knüpft werden. 

Der C16 hat eine Grundpalette von 16 Farben zur Verfü¬ 
gung, von denen jede (bis auf Schwarz) noch in acht ver¬ 
schiedenen Intensitätsstufen dargestellt werden kann. Das er¬ 
gibt insgesamt eine beachtliche Auswahl von 121 Farbtönen. 

Mit dem COLOR-Kommando können dabei die Farben für 
Bildschirmrahmen, Hintergrund, Mehrfarbenmodus und 
auch die Zeichenfarbe gewählt werden. 

Zur Tonerzeugung stehen zwei unabhängige Tongenerato¬ 
ren zur Verfügung, von denen einer auch für Geräusch¬ 
effekte eingesetzt werden kann. POKE-Befehle sind auch 
hier nicht nötig. Mit dem SOUND-Befehl werden sowohl der 
gewünschte Tongenerator angewählt als auch Tonhöhe 
(Notenwert) und Klangdauer angegeben, mit VOL wird die 
Lautstärke eingestellt. 

Das Besondere dabei ist, daß bis zu zwei SOUND-Befehle 
(einer pro Kanal) parallel zum Basic-Programm ausgeführt 
werden. Der Programmablauf wird durch einen SOUND- 
Befehl also nicht etwa aufgehalten, bis der Ton zu Ende 
gespielt wurde; das Programm läuft normal weiter, während 
der Ton entsprechend der gewählten Tondauer erklingt. Man 
kann sich wohl vorstellen, wie diese Fähigkeit ein Programm 
beschleunigt, wenn man sich vor Augen hält, daß Computer 
der Vorgängergeneration (VC20/C64) die Tondauer über 
leere FOR...NEXT-Schleifen bestimmten. 


Komfortable Programmierung 


Bei der Entwicklung von eigenen Programmen und der in der 
Regel notwendigen Fehlersuche kommen die eingebauten 
Programmierhilfen des 3.5 Basic erst richtig zur Geltung. 
Eine Reihe von Befehlen und speziellen Funktionen stehen 
zur Verfügung, die bisher bei Commodore-Computern unter 
der Abkürzung OGNV (oft gebraucht, nie vorhanden) liefen. 

Eine automatische Zeilennumerierung mittels AUTO ist 
ebenso selbstverständlich wie ein RENUMBER-Befehl zum 
Neunumerieren des Programms (wobei wahlweise auch nur 
Programmteile numeriert werden können und der Zeilenab¬ 
stand sowie die Startzeile natürlich frei wählbar sind). 

Diskettenkommandos, die man früher umständlich mit 
»OPEN 1,8,15...« an die Floppy senden mußte, sind jetzt als 
Basic-Kommandos integriert. SCRATCH löscht beispiels¬ 
weise ein File auf der Diskette. Das Laden und Speichern von 
Diskettenprogrammen geschieht jetzt mit DLOAD bezie¬ 
hungsweise DSAVE. DIRECTORY holt das Inhaltsverzeichnis 
der Diskette auf den Bildschirm, selbstverständlich ohne Pro¬ 
grammverlust. 

Für das häufig benötigto Warten auf einen Tastendruck gibt 


es den Spezialbefehl GETKEY A$, wodurch man sich das 
lästige »IF A$=""THEN...« spart. 

Hinter RESTORE kann eine Zeilennummer angegeben 
werden, was das einfache Hantieren mit mehreren unabhän¬ 
gigen DATA-Blöcken erlaubt. 

Formatierte Ausgabe ist mit PRINT USING möglich. Die 
dabei verwendeten Zeichen lassen sich mit dem PUDEF- 
Kommando umdefinieren. Beispielsweise kann man für die 
formatierte Ausgabe den (amerikanischen) Dezimalpunkt 
durch das in Europa übliche Komma ersetzen. Mit ZONE 
kann die Weite der TAB-Bereiche geändert werden. 

Die häufig gebrauchte INSTR-Funktlon (hat als Ergebnis 
die Position eines Teilstrings in einem anderen String) ist 
ebenso vorhanden wie die Funktion JOY zur einfachen Joy¬ 
stickabfrage. 

Bemerkenswert ist auch, daß die MID$-Funktion jetzt auch 
auf der linken Seite einer Wertzuweisung stehen kann. Sei 
beispielsweise A$="HALLO”. Nach Ausführung des Befehls 
*MID$(A$,2,1) = ”E”« ist A$ dann gleich der Zeichenfolge 
»HELLO«. 

Für die Umrechnung zwischen Dezimal und Hexadezimal 
sind die beiden Funktionen DEC und HEX$ vorhanden. 

Strukturierte Programmierung 


Basic 3.5-Programme sind in der Regel um einiges übersicht¬ 
licher (und dabei schneller) als VC20/C64-Programme. Der 
Grund ist einleuchtend: Durch zusätzliche Schleifenbefehle 
werden GOTO-Anweisungen eingespart und damit entfällt 
auch die Suchzeit, um die Zeilennummer zu finden. 

Dane^- n wurde auch die IF-Anweisung um die ELSE- 
Klausel erweitert, was die Programmierung in vielen Fällen 
vereinfacht. 


abs 

el 

log 

rnd 

and 

end 

loop 

run 

asc 

er 

mid$ 

save 

atn 

err$ 

monitor 

scale 

auto 

exp 

new 

scnclr 

backup 

fn 

next 

scratch 

box 

for 

not 

sgn 

char 

fre 

on 

sin 

chr$ 

get 

open 

sound 

circle 

getkey 

or 

spc( 

close 

get# 

paint 

sqr 

clr 

gosub 

peek 

sshape 

cmd 

goto 

poke 

st 

collect 

graphic 

pos 

stop 

color 

gshape 

print 

str$ 

cont 

header 

print# 

sys 

copy 

hex$ 

printusing 

tab( 

cos 

if 

pudef 

tan 

data 

input 

rclr 

ti 

dec 

input# 

rdot 

ti$ 

def 

instr 

read 

trap 

delete 

int 

rem 

troff 

dim 

joy 

rename 

tron 

directory 

key 

renumber 

until 

dload 

left$ 

restore 

usr 

do 

len 

resume 

val 

draw 

let 

return 

verify 

ds 

list 

rgr 

vol 

ds$ 

load 

right$ 

wait 

dsave 

locate 

rlum 

while 


Tabelle 1. Der leistungsfähige Befehlssatz des C16/116. 

Ein Großteil der Befehle ist beim VC20/CG4 nicht vorhanden. 
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Der Kern der neuen Schleifenstruktur besteht aus den 
Anweisungen DO und LOOP. Ähnlich wie FOR...NEXT 
umklammert DO...LOOP einen Programmteil. Die Wirkung ist 
die folgende: Bei Erreichen eines DO merkt sich der Basic- 
Interpreter die Adresse dieses DO-Befehls als Schleifenan¬ 
fang. Wird dann im weiteren Verlauf das zugehörige LOOP 
gefunden, erfolgt sofort ein Rücksprung zur Position des DO- 
Befehls. Das ergibt eine »unendliche« Schleife, was aller¬ 
dings in den meisten Fällen nicht erwünscht ist. Daher ist die 
EXIT-Anweisung vorgesehen, die ein Verlassen der Schleife 
und eine Fortsetzung des normalen Programmablaufs hinter 
dem LOOP-Befehl ermöglicht. In der Regel wird man das EXIT 
von einer bestimmten Bedingung abhängig machen. 
Beispiel: 

10 DO 

20 GET A$ : IF A$="X" THEN EXIT 
30 LOOP 

Dieses Programm wartet, bis die Taste X gedrückt wird. 

Die (unbedingte) DO...LOOP-Schleife kann unter Verwen¬ 
dung von UNTIL oder WHILE in eine bedingte Schleife abge¬ 
wandelt werden. DO WHILE (Bedingung)... LOOP wird aus¬ 
geführt, solange die (Bedingung) erfüllt ist. Durch UNTIL wird 
praktisch der umgekehrte Fall erzeugt. DO UNTIL (Bedin¬ 
gung) ... LOOP wird solange durchlaufen, bis die Bedingung 
erfüllt ist. Natürlich können auch bei bedingten Schleifen 
zusätzliche EXITs eingebaut werden. Das ermöglicht sehr 
effiziente Programme, insbesondere, wenn mehrere Bedin¬ 
gungen beachtet werden müssen. 

Gemäß der Parole »wer viel programmiert macht viele Feh¬ 
ler« ist jedes Basic nur so gut wie seine Hilfen zur Fehlersu¬ 
che und Fehlerbehandlung. Und hier hat der C16 einiges zu 
bieten. 


Die HELP-Funktion wurde bereits anfangs erwähnt und 
ermöglicht die schnelle Lokalisierung eines Fehlers innerhalb 
einer Programmzeile. 

Für den nicht seltenen Fall, daß keine Fehlermeldung 
erfolgt, das Programm jedoch unsinnige Sachen macht (also 
irgendwo noch ein logischer Fehler steckt) kann man mit 
TRON eine Trace-Funktion einschalten. Dabei wird die Zei¬ 
lennummer der gerade abgearbeiteten Zeile angezeigt, 
wodurch man so manchem Fehler leichter auf die Spur kom¬ 
men kann. TROFF schalten den Trace wieder ab. 


Debugging leicht gemocht 


Für die Fehlerbehandlung innerhalb des Programms ist der 
TRAP-Befehl vorgesehen. Zum Beispiel wird mit der Anwei¬ 
sung »TRAP 1000« beim Auftreten eines Fehlers das Pro¬ 
gramm nicht mit entsprechender Meldung abgebrochen, 
sondern es wird in eine Fehlerbehandlungsroutine gesprun¬ 
gen (hier ab Zeile 1000). Die Nummer der Zeile, in der der 
Fehler auftrat, wird dabei in der Systemvariablen EL gespei¬ 
chert. Die Variable ER enthält die Fehlernummer, und ERR$ 
die Fehlermeldung im Klartext. Mit diesen Informationen kann 
man in der Fehlerbehandlungsroutine entsprechende Maß¬ 
nahmen ergreifen und schließlich mit RESUME den normalen 
Programmablauf wieder aufnehmen lassen. Übrigens wird 
auch das Drücken der Stop-Taste mit TRAP abgefangen. 

Window-Technik 


(ESC) & Taste 

Funktion 

A 

Automatisch einfügen 

B 

(Set Bottom) Fixiert an der gegenwärtigen CURSOR- 
Position die rechte, untere Fensterecke 

C 

(Clear auto insert) Hebt automatisch Einfügen auf 

D 

(Delete) Loscht eine Zeile an der CURSOR-Position 

1 

(Insert) Fügt eine Zelle an der CURSOR-Position ein 

J 

CURSOR wird an den Anfang der CURSOR- 
Positionszeile gesetzt 

K 

CURSOR wird an das Ende der CURSOR- 
Positionszeile gesetzt 

L 

Schaltet SCROLLING-Modus ein 

M 

Schaltet SCROLLING-Modus aus 

N 

Schaltet zur normalen Bildschirmgröße zurück und 
löscht den Bildschirm 

O 

(Off) Hebt Einfüge-, Anführungszeichen-, Reverse- 
und Blink-Modus wieder auf 

P 

Löscht Bildschirmzeile vom Anfang bis zur CURSOR- 
Position 

Q 

Löscht Bildschirmzeile ab der CURSOR-Position bis 
zum Ende 

R 

Verkleinert das Bildschirmformat und löscht den 
Bildschirm 

T 

(Set Top) Fixiert an der gegenwärtigen CURSOR- 
Position die linke, obere Ecke des Fensters 

V 

SCROLLEN des Bildschirminhalts nach oben 

W 

SCROLLEN des Bildschirminhalts nach unten 

X 

(Exit ESC) Befreit Sie aus dem ESCAPE-Modus nach 
versehentlicher Betätigung der ESC-Taste 


64 cn onunap»» 

Bei soviel Licht fällt gelegentlich auch ein Schatten. Die für 
den C16/116 angekündigte moderne Window-Technik, also 
das Arbeiten mit verschiedenen Bildschirmfenstern, ist leider 
nicht in einer vollends überzeugenden Form implementiert. 


A 

Assemble 

Wandelt ein Mnemonic (Klartext-Befehl) in den ent¬ 
sprechenden Maschinencode des 6502 bezie¬ 
hungsweise 7501 

C 

Compare 

Vergleicht zwei Speicherbereiche und zeigt die 
Unterschiede 

D 

Disassemble Wandelt Maschinencode In Mnemonics (Klartext) 

F 

Fill 

Füllt einen Speicherbereich mit wählbarem Wert 

G 

Go 

Startet Maschinenprogramm an angegebener 

Adresse 

H 

Hunt 

Durchsucht einen Speicherbereich nach einem 
bestimmten Wert und zeigt alle Speicherplätze an, 
die diesen Wert enthalten 

L 

Load 

Lädt ein Programm von Kassette oder Diskette 

M 

Memory 

Zeigt alle Inhalte eines wählbaren Speicherbereichs 
in Hexdarstellung an 

R 

Register 

Ausgabe der aktuellen Registerinhalte 

S 

Save 

Speichert ein Programm auf Kassette oder Diskette 

T 

Transfer 

Blockkopierbefehl, kopiert einen bestimmten Spei¬ 
cherbereich In einen anderen 

V 

Verify 

Vergleicht ein Programm Im Arbeitsspeicher mit 
einem auf Kassette oder Diskette 

X 

Exit 

Zurück zu Basic 


(Punkt) 

Entspricht dem A (Assemble) 

> 

(größer als) 

Ändert bis zu 8 Byte ab bestimmter Speicherstelle 
(nach M-Befehl) 

; 

(Semikolon) 

Ändert die 7501-Registerinhalte (nach R-Befehl) 


Tabelle 2. Die ESC-Funktlonen 


Tabelle 3. Die TEDMON-Befehle 


sn 
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Es Kann überhaupt nur ein einziges Window erzeugt wer¬ 
den und das nicht etwa per Basic-Befehl (wie man es an sich 
erwarten würde), sondern über eine ESC-Funktion. Damit 
kommen wir gleich zur Bedeutung der ESC-Taste auf der 
Tastatur. 

Es gibt nämlich 26 ESC-Funktionen, die durch Drücken 
von ESC, gefolgt von einer Buchstabentaste, aufgerufen wer¬ 
den (Tabelle 2). 

Um das eine mögliche Fenster zu erzeugen, muß man den 
Cursor in die linke obere Ecke des vorgesehenen Windows 
bringen, dann ESC T drücken, anschließend in die rechte 
untere Ecke fahren und ESC B betätigen. Dadurch ist das 
Fenster definiert. Alle Ein- oder Ausgaben spielen sich jetzt 
ausschließlich hier ab. 

Durch zweimaliges Drücken der Home-Taste wird das Win¬ 
dow wieder gelöscht. 

So fortgeschritten das Konzept auch gegenüber dem 
VC20/C64 ist, es bleibt einiges zu wünschen übrig. Die 
Methode der Window-Definition ist viel zu umständlich und zu 
langsam, zumal ein Befehl zur direkten Cursorpositionierung 
nicht vorhanden ist. Das fällt um so schwerer ins Gewicht, als 
immer nur ein einziges Window definiert werden kann, was 
aber in der Regel nicht sehr sinnvoll ist. Wenn man den Bild¬ 
schirm aber in verschiedene Bereiche aufteilen will, dann 
wirkt sich das ständige umständliche Definieren der Fenster 
doch zum einen auf die Programmlänge, zum anderen auf die 
Abarbeitungsgeschwindigkeit negativ aus. 

Dennoch ist das Windowing ein Schritt in die richtige Rich¬ 
tung, hin zum benutzerfreundlichen Computer. Für eine 
übersichtliche Bildschirmaufteilung besteht jedenfalls in fast 
jeder Programmiersituation ein Bedarf. Wo man sich früher 
damit behalf, den gesamten Bildschirm bei jeder Verände- 
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rung neu aufzubauen, ist es jetzt möglich, nur den wirklich zu 
ändernden Bereich anzusprechen, ohne dabei die übrigen 
Informationen zu beeinflussen. 

Maschinensprache-Monitor eingebaut 


Für Maschinensprachefreunde - und solche, die es werden 
wollen - hält der C16 noch einen ganz besonderen Lecker¬ 
bissen parat. Er verfügt nämlich über einen fest im ROM vor¬ 
handenen Maschinensprache-Monitor, genannt TEDMON. 

TEDMON ist genau genommen sogar mehr als nur ein 
Monitorprogramm für Maschinensprache. Er enthält nämlich 
einen Disassembler und auch einen kleinen Assembler. 
Maschinenprogramme können mit TEDMON sehr komforta¬ 
bel entwickelt und anschließend als schnelle Unterroutinen 
von Basic aus aufgerufen werden. Tabelle 3 zeigt den 
TEDMON-Befehlssatz. 

Ein Schwachpunkt des C16 ist sicher der mit 16 KByte zu 
kleine Anwenderspeicher (nach Einschalten der hochauflö¬ 
senden Grafik bleiben noch exakt 2045 Byte zum Program¬ 
mieren). Man sollte aber nicht vergessen, daß man bei der 
Leistungsstärke des C16 Basic in 2 KByte etwa das gleiche 
an Grafik-Programm unterbringen kann wie beim C64 in 8 
KByte. 

Der C16 ist insbesondere vom Basic her in der Tat minde¬ 
stens eine ganze Generation weiter als der VC 20 und der 
C64. Durch sehr komfortable Programmierhilfen und ein 
umfangreiches, praxisnahes Basic ist er der ideale 
Einsteiger-Computer mit der Fähigkeit, seinem Besitzer das 
Tor zum Computer zu öffnen. (ev) 


Den C16 und 
VC 20 
dunhsdiaut 

Der VC 20 und der C16 besitzen - so erstaunlich 
das auch klingen mag - sehr viele Gemeinsamkei¬ 
ten. Im Rahmen dieses Kurses bekommen Sie 
einen Einblick in den inneren Aufbau und die Pro¬ 
grammierung beider Computer. 

D ieser Kurs wird »zweigleisig« abgehandelt. Die im nor¬ 
malen Text angeführten Adressen beziehen sich immer 
auf das Betriebssystem des VC 20. Die entsprechen¬ 
den Werte für den C16 sind in Klammern dahinter angege¬ 
ben. Oft wird es auch Vorkommen, daß nur eine Adresse 
genannt wird, da diese bei beiden Geräten gleich ist. 

Die Betriebssysteme des VC 20 und des C16 sind sehr fle¬ 
xibel gestaltet. Es gibt für den Benutzer viele Möglichkeiten, 
das Bestehende zu ändern oder zu ergänzen. 

Wie Basic den Speicher verwaltet 


Beginnen wollen wir mit der Organisation des verfügbaren 
RAM durch den Basic-Interpreter. 


Der Basic-Beginn liegt bei Adresse 4096, das Ende bei 
Adresse 7680 (16383) (die Werte beziehen sich auf die 
Grundversion). Unmittelbar ab dem Basic-Beginn wird das 
eigentliche Programm abgelegt. An dessen Ende beginnen 
die Variablen und Felder (Bild 1 und Tabelle 1). 


Speicher¬ 

stelle 

Bezeichnung 

VC 20 

Werte 

C16 



GV 

4096 

4096 

43 

Basic- 

+ 3K 

1024 

— 

44 

Beginn 

+ 8K 

4608 

— 

45 

Variablen- 

Abhängig von der 


46 

Beginn 

Programmlänge 




GV 

7680 

16383 



+ 3K 

7680 

— 

55 

Basic- 

+ 8K 

16384 

— 

56 

Ende 

+ 16K 

24576 

— 



+ 24K 

32768 

— 



+ 48K 

— 

65535 


Tabelle 1. Der Inhalt dieser Speicherzellen bestimmt die Auf¬ 
teilung des Basic-Bereichs 


Der Variablenbereich wächst beim Anlegen neuer Varia¬ 
blen von unten nach oben. Nur das Stringende wandert in 
entgegenlaufender Richtung. 

Die wichtigsten Zeiger, wie unter anderem Beginn und 
Ende von Basic und Variablen, sind in der Zeropage (Adresse 
0 bis 256) abgelegt (Tabelle 1). Dabei ist die Reihenfolge 
Low-Byte/High-Byte zu beachten (Adresse = High-Byte 
x 256 + Low-Byte). 

Um Speicherplatz für Maschinenprogramme oder Sonder¬ 
zeichen zu schaffen, hat man prinzipiell zwei Möglichkeiten. 
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Bild 1. Die Speicherbelegung des Basic-Bereichs 

Entweder man verschiebt den Basic-Anfang nach oben oder 
das Basic-Ende nach unten. Letztere Alternative ist in den 
meisten Fällen günstiger. 

Um zum Beispiel beim VC 20 das Basic-Ende von Adresse 
7680 nach 7168 (= 512 Byte) zu verlegen, gibt man ein: 
POKE 55,0:P0KE 56,28:CLR:REM(256 * 28 = 7168) 

Bei anderen Speichergrößen verfährt man analog. 

Der Befehl CLR ist nötig, damit sich verschiedene Hilfszei¬ 
ger (Stringbeginn und Felderende) anpassen können. 

Die andere Alternative der Platzbeschaffung ist etwas kom¬ 
plizierter und gilt sinnvollerweise nur für den VC 20. Sie wird 
nur bei erweitertem Speicher angewendet, um dort Sonder¬ 
zeichen abzulegen. Um den Anfang des Programmspeichers 
von 4608 nach 7680 zu schieben, gibt man: 

POKE 44,30:POKE 30 * 256,0:NEW 
ein, denn 30 x 256 ist gerade 7680. Der zweite POKE-Be- 
fehl ist nötig, da am Anfang des Basic-Bereichs immer ein 
Nullbyte stehen muß. 

Eine Besonderheit bietet hier der C16 (in der Grundver¬ 
sion). Wenn man mit dem Befehl GRAPHIC die hochauflö¬ 
sende Grafik des C16 einschaltet, dann verkleinert sich der 
Gesamtspeicher um 14 KByte. In diesem Teil des Speichers 
(siehe auch Bild 6b) werden dann die grafischen Informatio¬ 
nen festgehalten. 

Die Reservierung dieses Bereiches wird ebenfalls durch 
die Veränderung des Zeigerpaares (55/56) realisiert. 

Schaltet man in den Textmodus zurück, dann bleiben einem 
nur noch 2 KByte für Programme. Benötigt man den Platz für 
die Grafiken nicht mehr, so kann man den dafür freigehalte¬ 
nen Speicherbereich mit 


»POKE 55,0: POKE 56,63: CLR« 

fürs Basic wieder freigeben. 

Erste Hilfe - Basicprogramme retten nach 
NEW oder Reset 


Schon oft wurden Verfahren beschrieben, um nach einem 
versehentlichen NEW das Basic-Programm wieder zurück¬ 
zuholen. Doch wie funktionieren diese Verfahren? Um das zu 
verstehen, betrachten wir zunächst kurz den Aufbau eines 
Basic-Programms (Bild 2). 

Am Kopf des Programms steht immer eine Null. Dann folg¬ 
ten die Adresse der nächsten Programmzeile (Koppela¬ 
dresse) und die Zeilennummer. Danach kommt die eigentli¬ 
che Programmzeile, die sich aus den sogenannten Tokens - 
den Basic-Codenummern (Tabelle 2) - zusammensetzt. Am 
Ende dieser Zeile steht dann nochmals eine Null. Die nächste 
Zeile beginnt wieder mit einem Verbindungszeiger und der 
Zeilennummer. Das Programm wird mit drei Nullen abge¬ 
schlossen. Hieran schließen sich die Variablen an (vergleiche 
Bild 1). 

Durch NEW oder durch einen RESET wird nicht das ge¬ 
samte Programm, sondern nur der Variablenpointer (45/46) 
und die erste Koppeladresse gelöscht. Durch Rekonstruk¬ 
tion dieser beiden Zeiger kann das scheinbar verlorene 
Basic-Programm wieder benutzt werden. 

Hier nun das »Rezept« zur Rekonstruktion: 

• POKE (Basic-Anfang) +2,1 
Basic-Anfang in GV = 4096 (4096) 

+ 3K = 1024 (-) 

Qnunnp»' + 8K = 4608 (-) 

• SYS 50483:POKE 46,PEEK(35):P0KE 45, 

PEEK (781)+2:CLR 

• Die Besitzer des C16 geben statt dessen ein: 

SYS 34840 : SYS 34892 

Unbedingt wichtig ist hier die Reihenfolge der Befehle! Fer¬ 
ner darf während der gesamten Prozedur keine Variable defi¬ 
niert werden, da diese das gelöschte Programm überschrei¬ 
ben würde. 

Die Funktionsweise ist relativ einfach. Die Unterprogramm¬ 
routine in Adresse 50483 bindet die Programmzeilen neu 
und stellt dabei den ersten Verbindungszeiger wieder her. 
Sie übergibt dann in den beiden Speicherstellen 35 und 781 
die Adresse des Variablenbeginns -2. 



Bild 2. Aufbau eines Basic-Programms. Über die Koppeladres¬ 
sen sind die einzelnen Zeilen miteinander verbunden. 
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GRUNDLAGEN 


Code 

(Dezimal) 

Zeichen! 

Befehl 

Code 

(Dezimal) 

Zeichen/ 

Befehl 

Code 

(Dezimal) 

Zeichen! 

Befehl 

0 

Zellenende 

94 

1 

189 

EXP 

1- 31 

Leer 

95 

* 

190 

COS 

32 

Space 

96-127 

Leer 

191 

SIN 

33 

! 

128 

END 

192 

TAN 

34 

' 

129 

F0R 

193 

ATN 

35 

# 

130 

NEXT 

194 

PEEK 

36 

$ 

131 

DATA 

195 

LEN 

37 

% 

132 

INPUT# 

196 

STR$ 

38 

S 

133 

INPUT 

197 

VAL 

39 

' 

134 

DIM 

198 

ASC 

40 

( 

135 

READ 

199 

CHR$ 

41 

) 

136 

LET 

200 

LEFTJ 

42 

* 

137 

GOTO 

201 

RIGHTS 

43 

+ 

138 

RUN 

202 

MIDS 

44 


139 

IF 

203 

GO 

45 

— 

140 

RESTORE 

204 

RGR 

46 


141 

GOSUB 

205 

RCLR 

47 

/ 

142 

RETURN 

206 

RLUM 

48 

0 

143 

REM 

207 

JOK 

49 

1 

144 

STOP 

208 

RDOT 

50 

2 

145 

ON 

209 

DEC 

51 

3 

146 

WAIT 

210 

HEX$ 

52 

4 

147 

LOAD 

211 

ERRS 

53 

5 

148 

SAVE 

212 

INSTR 

54 

6 

149 

VERIFY 

213 

ELSE 

55 

7 

150 

DEF 

214 

RESUME 

56 

8 

151 

POKE 

215 

TRAP 

57 

9 

152 

PRINT# 

216 

TRON 

58 


153 

PRINT 

217 

TROFF 

59 


154 

CONT 

218 

SOUND 

60 

< 

155 

LIST 

219 

VOL 

61 

= 

156 

CLR 

220 

AUTO 

62 

> 

157 

CMD 

221 

PUDEF 

63 

? 

158 

SYS 

222 

GRAPHIC 

64 

@ 

159 

OPEN 

223 

PAINT 

65 

A 

160 

CLOSE 

224 

CHAR 

66 

B 

161 

GET 

225 

BOX 

67 

C 

162 

NEW 

226 

CIRCLE 

68 

D 

163 

TAB( 

227 

GSHAPE 

69 

E 

164 

TO 

228 

SSHAPE 

70 

F 

165 

FN 

229 

DRAW 

71 

G 

166 

SPC( 

230 

LOCATE 

72 

H 

167 

THEN 

231 

COLOR 

73 

1 

168 

NOT 

232 

SCNCLR 

74 

J 

169 

STEP 

233 

SCALE 

75 

K 

170 

+ 

234 

HELP 

76 

L 

171 

- 

235 

DO 

77 

M 

172 

t 

236 

LOOP 

78 

N 

173 

/ 

237 

EXIT 

79 

0 

174 

1 

238 

DIRECTORY 

80 

P 

175 

AND 

239 

DSAVE 

81 

Q 

176 

0R 

240 

DLOAD 

82 

R 

177 

> 

241 

HEADER 

83 

S 

178 

- 

242 

SCRATCH 

84 

T 

179 

< 

243 

COLLECT 

85 

U 

180 

SGN 

244 

COPK 

86 

V 

181 

INT 

245 

RENAME 

87 

w 

182 

ABS 

246 

BACKUP 

88 

X 

183 

USR 

247 

DELETE 

89 

Y 

184 

FRE 

248 

RENUMBER 

90 

Z 

185 

POS 

249 

KEY 

91 

1 

186 

SQR 

250 

MONITOR 

92 

£ 

187 

RND 

251 

USING 

93 

1 

188 

LOG 

252 

UNTIL 





253 

WHILE 


Blick in die Zeropage 


Die Zeropage - oder zu deutsch die Seite null - ist in Maschi¬ 
nensprache besonders einfach zu handhaben. Als Seite 
bezeichnet man im übrigen immer ein Paket von jeweils 256 
Byte. So entspricht Seite 0 den Adressen 0-255, Seite 1 
den Adressen 256-511 und so weiter. 

Eine Zeropage-Adressierung, zum Beispiel LDA $42, 
benötigt nur zwei Byte, eine absolute Adressierung, zum Bei¬ 
spiel LDA $1234, hingegen drei Byte im Speicher. Damit ver¬ 
bunden ist auch die Bearbeitungsgeschwindigkeit eines 
Maschinenprogramms. Denn die Zeropage-Adressierung Ist 
schneller als die entsprechende Drei-Byte-Methode. Bei klei¬ 
neren Programmen in Assembler fällt dieser Aspekt zwar 
nicht so sehr ins Gewicht, bei sehr umfangreichen Routinen 
(wie zum Beispiel beim Basic-Interpreter und bei Schleifen) 
spielt die Adressierungsart jedoch eine größere Rolle. 

In der Seite 0 legt der Computer also insbesondere die 
Daten ab, die er oft benötigt, wie zum Beispiel Vektoren, Para¬ 
meter etc. Die komplette Liste der Adreßbelegung zeigt 
Tabelle 3a (Tabelle 3b gilt für den C16). 

Wir wollen es jedoch nicht nur mit der Aufstellung alleine 
bewenden lassen. Die interessantesten Lokationen möchte 
ich hier herausgreifen und besprechen. Alle angeführten 
Adressen gelten, soweit nicht anders angegeben, sowohl für 
den VC 20 als auch für den C16. 

Adresse 43-56: Diese Adressen spielen, wie wir schon im 
ersten Teil gesehen haben, bei der Verwaltung von Basic- 
Programmen und -Variablen eine zentrale Rolle. Über sie 
erfolgt die Trennung zwischen Programm und den einzelnen 
Variablentypen. Auch für das Speichern und Laden von Pro- 
gTamrr-r liefern sie die Basisdaten. Die einzelnen Funktio¬ 
nen können Sie Tabelle 3 entnehmen. 

Eine interessante Gebrauchsmöglichkeit ergibt sich durch 
die Memoryroutine. Dies ist ein kurzes Basic-Programm, wel¬ 
ches die Aufgabe hat, den von Programmen, Variablen, 
Strings und Arrays belegten Speicherplatz festzustellen 
(Listing 1): 


10 rem *** memory dump *** 

20 rem 

30 a=46:b=44:qosub 100:prinf'programms";x 
40 a=48:b=46:gosub 100:print"variablen:“5x 
30 a=50:b=4B:gosub 100:print"arrays:"5x 
60 a=56:b=52:gosub 100:print"stringsi“5x 
70 a=56:b=44:gosub 100:print"speieherx 
B0 print -f re (0); "bytes free" 

90 end 

100 x=peek(a)*256+peek(a-1)-peek(b)*256-pe 
ek <b-l> 

110 return 

Listing 1. »Memory Dump« für VC 20 und C16 


Tabelle 2. Basic-Token des VC 20/C16. Die Codenummern 32 
bis 95 entsprechen den normalen ASCII-Zelchen. Nummern 
größer als 127 sind Token, also Abkürzungen für Basic-Befehle, 
die der Basic-Interpreter verwendet, um Speicherplatz zu spa¬ 
ren und die Verarbeitungsgeschwindigkeit zu erhöhen. 

Token ab Code 204 sind nur beim C16 vorhanden. 


Wie man nach dem Starten des Programms sehen kann, 
erhält man die Werte, indem man die Zeiger - nachdem sie in 
Dezimalzahlen umgewandelt worden sind - voneinander sub¬ 
trahiert. Den Speicherplatz, der durch Variablen belegt ist, 
erhält man beispielsweise durch Subtraktion des Hilfszei¬ 
gers, »Beginn der Variablen« (45/46) von dem Zeigerpaar 
»Beginn der Arrays« (47/48). 

Gerade bei stark limitiertem Speicherplatz (wie zum Bei¬ 
spiel in der Grundversion) kann dieses Hilfsprogramm Auf¬ 
schluß über die momentane Speicherverteilung geben. 
Adresse 59,60: Diese Speicherzellen enthalten die laufende 
Zeilennummer eines Basic-Programms. Sollte es im Pro¬ 
grammlauf unterbrochen werden, hat man hier die Möglich¬ 
keit, die Zeilennummer nachzulesen. 
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C16/VC 20 


7. 6. 5. 4. 3. 2. 1. 0. BIT 


128 

0 

32 

10 

8 

4 

0 

0 


1 

EOT 

= End ol Tape) 

Fataler 

Lese¬ 

fehler 

i 

kurzer 

Blook 

geladen 

' 

' ’ 

Programm 

korrekt 

geladen 


Prüfsummen- langer 

fehler Block 

geladen 


Bild 3. Darstellung des 
Status-Bytes, das verschie¬ 
dene Fehlermeldungen 
enthalten kann. Die Bits 0, 
1 und 6 werden bei Band¬ 
betrieb nicht genutzt. Sie 
sind daher auf Null 
gesetzt. Enthält das Sta¬ 
tusbyte den Wert Null, 
wurde das letzte Pro¬ 
gramm korrekt geladen. 


Zustandsbeschreibung: das Statusflag 


Adresse 144: Dieses Statusflag ist auch von Basic aus über 
die STATUS- beziehungsweise ST-Anweisung abfragbar. Es 
liefert das Computerstatus-Byte, dessen Inhalt aufgrund der 
letzten Input-Output-Operation gesetzt wurde. Bezogen auf 
den Kassettenport liefert es nach Bild 3 bestimmte Meldun¬ 
gen. Die Informationen über die geladenen Programme wer¬ 
den binär wiedergegeben. Die Null signalisiert ein ordnungs¬ 
gemäß geladenes Programm. 32 hingegen bedeutet, daß ein 
Prüfsummenfehler vorliegt. Es ist aber auch möglich, daß der 
Computer mehrere Meldungen in dieses Byte packt, bei¬ 
spielsweise 52 = 32 + 16 + 4: Hier wurde ein kurzer Block 
geladen, jedoch ist die Prüfsumme falsch, und ein fataler 
Ladefehler liegt vor. 

An dieser Stelle ist es angebracht, sich näher mit dem Auf¬ 
zeichnungsverfahren zu beschäftigen (Bild 4). 


aufs Band 


Jeder Speichervorgang beginnt mit dem Header. Dieser 
Kopf besteht aus dem Vorspann (das ist ein etwa acht Sekun¬ 
den langer Pfeifton) und dem eigentlichen Programmkopf. 

Dieser enthält vier wichtige Informationen, nämlich über Pro¬ 
grammtyp, Startadresse, Endadresse und Programmname. 

Diese Daten sind ebenfalls im Bandpuffer zu finden und kön¬ 
nen von dort abgerufen werden. 

Das erste Byte (Adresse 828 beziehungsweise 818 beim 
C16) gibt Auskunft über den Headertyp. Eine 1 zeigt an, daß 
es sich um ein Programm handelt, das verschoben geladen 
werden kann, also auch an eine andere Stelle als die, von der 
aus es gespeichert wurde. Das Gegenstück dazu ist die 
absolute Lademethode (Headertyp 3). Gemeint ist 
»LOAD"..",1,1«. Die Sekundäradresse 1 signalisiert dem Com¬ 
puter, daß er das Programm (unabhängig von den Zeigern 
43, 44) wieder in den gleichen Adreßbereich laden soll. Um 
Verwechslungen vorzubeugen, ist es wichtig, Headertyp und 
Sekundäradresse zu unterscheiden. Für den Headertyp gibt 
es drei Möglichkeiten: 

1. Laden mit Verschiebelader (die Anfangsadresse wird 
durch den Zeiger 43 und 44 bestimmt). 

2. Ein File - also Daten aus Variablen - wurde ge¬ 
speichert. 

Die Unterscheidung ist wichtig, denn Daten können 
nicht mit LOAD geladen werden. 

3. Ein Programm ist absolut zu laden. 

Die nächsten vier Byte geben die Anfangs- und End¬ 
adresse des geladenen Files an. Mit der Endadresse hat es 
eine besondere Bewandtnis. Sie wird nämlich nach korrek¬ 
tem Laden der Zeropage (Adresse 45, 46) übergeben. Bei Tabelle 3a. Die Zeropage beim VC20 


So kommen Programme 


Dezimal 

Hexadezimal 

Bemerkung 

0- 2 

00 - 02 

USR-Sprungvektor (Normal; JMP $0248) 

3- 4 

03 - 04 

Vektor lür Unterprogramm 'Fließkomma nach Integer' 

5- 6 

05 - 06 

Vektor (ür Unterprogramm 'Integer nach Fließkomma' 

7 

07 

Suchzeichen (sucht oder Zeilenende) 

8 

08 

Hochkommallag 

9 

09 

Spaltenspeicher beim TAB-Befehl 

10 

OA 

LOAD/VERIFY Flag (0 = LOAD/1 = VERIFY) 

11 

08 

Eingabepufferzeiger (Anzahl der Elemente) 

12 

OC 

Flag für Dim (enthält die lautende Variable) 

13 

0D 

Variablentyp (0 = Numerisch/128 = String) 

14 

0E 

Numerische Variable (0 = Fließkomma/128 Integer) 

15 

0F 

Flag bei DATA und UST 

16 

10 

Flag für FN 

17 

11 

Eingabetlag (0 = INPUT/64 = GET/152 = READ) 

18 

12 

Vorzeichen bei ATN 

19 

13 

Aktuelles Ein-ZAusgabegerät 

2Q- Si 

14 - 15 

Integerwert (zum Beispiel Zeilennummer 

22 

16 

Zeiger im Stringstapel 

23- 24 

17 - 18 

Zeiger aut den zuletzt verwendeten String 

25- 33 

19 - 21 

Stringstapel 

34- 37 

22 - 25 

Speicher tür div. Hilfszeiger 

38- 42 

26 - 2A 

Speicherbereich bei einer Multiplikation 

43- 44 

2B - 2C 

Zeiger auf Beginn des Basic-Speicherberelchs 

45- 46 

2D - 2E 

Beginn der Variablen (= Ende des Programms) 

47- 48 

2F - 30 

Beginn der Arrays (= Ende der Variablen) 

49- 50 

31 - 32 

Zeiger auf Ende der Arrays 

51- 52 

33 - 34 

Zeiger auf Beginn der Strings 

53- 54 

35 - 36 

Hilfszeiger für Strings 

55- 56 

37 - 38 

Zeiger auf Basic-Ende 

57- 58 

39 - 3A 

Momentane Baslc-Zeilennummer 

59- 60 

3B - 3C 

Vorherige Basic-Zeilennummer 

61- 62 

3D - 3E 

Zeiger auf lfd. Basic-Befehl (für CONT) 

63- 64 

3F - 40 

Momentane Zellennummer tür DATA 

65- 66 

41 - 42 

Momentane Adresse einer DATA-Zeile 

67- 68 

43 - 44 

Zeiger auf Elemenl In DATA-Zeile und INPUT-Vektor 

69- 70 

45 - 46 

Momentaner Variablenname 

71- 72 

47 - 48 

Adresse der momentanen Variablen 

73- 74 

49 - 4A 

Zeiger für FOR/NEXT Variable 

75- 76 

48 - 4C 

Zwischenspeicher für Programmzeiger (bei SAVE) 

n 

4D 

Speicher für Vergleichsaymbole 

78- 79 

4E - 4F 

Zeiger für FN 

80- 83 

50 - 53 

Verschieden genutzter Speicherbereich 

84- 86 

54 - 56 

FN-Sprungvektor (ähnlich USR) 

87- 96 

57 - 60 

Feld lür diverse arithmetische Zwecke 
(Arithmetik Akku #3 und #4) 

97 

61 

Fließkommaakku #1: Exponent 

98-101 

62 - 65 

Fließkommaakku # 1: Matisse 

102 

66 

Fließkommaakku #1: Vorzeichen 

103 

67 

Zeiger für Polynomauswertung 

.104 

68 

Überlauf von Akku #1 

105 

69 

Fließkommaakku #2: Exponent 

106-109 

6A - 6D 

Fließkommaakku # 2 : Mantisse 

110 

6E 

Fließkommaakku #2: Vorzeichen 

111 

6F 

Vergleichsbyte der Vorzeichen von Akku 1 und 2 

112 

70 

Rundung für Akku #1 und #2 
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GRUNDLAGEN 


Dezimal 

Hexadezimal 

Bemerkung 

113-114 

71 - 72 

Lange des Kassettenpuffers 

115-138 

73 - 8A 

CHRGET-Routlne 

139-143 

8B - 8F 

RND-Wert als Fließkommazahl 

144 

90 

Statusflag ST 

145 

91 

STOP-Flag 

150 

96 

Kassetten EOT (End of Tape) erhalten 

151 

97 

Zwischenspeicher für Register 

152 

98 

Anzahl der offenen Dateien 

153 

99 

Eingabegerät (Normal = 0: Tastatur) 

154 

9A 

Ausgabegerät (Normal = 3: Bildschirm) 

155 

9B 

Paritätsbyte) 

150 

96 

Kassetten EOT (End of Tape) erhalten 

151 

97 

Zwischenspeicher für Register 

152 

98 

Anzahl der offenen Dateien 

153 

99 

Eingabegerät (Normal = 0: Tastatur) 

154 

9A 

Ausgabegerät (Normal = 3: Bildschirm) 

155 

9B 

Paritatsbyte vom Band (Prüfsumme) 

156 

9C 

Flag für Byte erhalten (von Band) 

157 

90 

Flag für Direktmodus (= 128) oder Programm (= 0) 

150 

9E 

Band: erster Teil - Prüfsumme 

159 

9F 

Band: zweiter Durchlauf - Prüfsumme 

160-162 

AO - A2 

Interne Uhr (Stunde, Minute, Sekunde) 

163 

A3 

Bitzähler für serielle Ausgabe 

164 

A4 

Zähler für Band 

165 

A5 

Startsynchronisation bei Kassetten 

166 

A6 

Zeiger im Bandpuffer 

167-171 

A7 - AB 

Flags für Schreiben/Lesen bei Band 

172-173 

AC- AD 

Zeiger auf Kassettenpuffer und für scrolling 

174-175 

Ae - AF 

Zeiger auf Programmende bei LOAD 

176-177 

BO - Bl 

Bandzeitkonstanten 

178-179 

B2 - B3 

Startadresse des Bandpuffers 

180 

B4 

Bitzähler für Band 

181 

B5 

Band oder RS232: nächstes zu sendendes Bit 

182 

B6 

Übertragungsspeicher für RS232 

Länge des Filenamens 

183 

B7 

184 

B8 

Logische Filenummer 

185 

B9 

Sekundäradresse 

186 

Ba 

Gerätenummer 

187-188 

BB - BC 

Zeiger auf Filenamen 

189 

BD 

Ein-/Ausgabespeicher (für seriell) 

190 

BE 

Blockzähler für Band 

191 

BF 

Puffer für serielle Ausgabe 

182 

CO 

Bandmotor Flag 

193-194 

CI - C2 

Startadresse für Ein-/Ausgabe 

195-196 

C3 - C4 

Endadresse für Ein-ZAusgabe 

197 

C5 

gedrückte Taste (momentaner Wert Im Tastatur¬ 
matrixcode) 

198 

C6 

Anzahl der gedrückten Tasten (im Tastaturpuffer) 

199 

C7 

Bildschirm: negative Anzeige 

200 

C8 

Zeiger auf Zellenende bei Eingabe 

201 

C9 

Cursorzeile 

202 

CA 

Cursorspalte 

203 

CB 

Welche Taste? (64 = keine) 

204 

CC 

Cursorblinken 

205 

CD 

Cursor Blinkzähler 

206 

CE 

Zeichen unter dem Cursor 

207 

CF 

Flag lür Cursorblinken (0 = An/1 = Aus) 

208 

00 

Eingabe von Bildschirm/oder Tastatur 

209- 210 

Dl - D2 

Start der aktuellen Bildschirmzelle 

211 

D3 

Position des Cursors In der aktuellen Bildschirmzelle 

212 

04 

Flag für Cursor (0 = Direkt, sonst programmiert) 

213 

05 

Länge der Bildschirmzeile (21 od, 42 od, 63 od. 84) 

214 

D6 

Cursorzeile 

215 

D7 

Zeiger für diverse Zwecke 

216 

D8 

Anzahl der Inserts 

217-242 

D9 - F2 

High Bytes der Bildschirmzeilenanfängo 

243 - 244 

F3 - F4 

Zeiger im Farbspeicher 

245 - 246 

F5 - F6 

Zeiger in der Tastaturdekodiertabelle 

247 - 248 

F7 - F8 

Zeiger auf RS232 Eingabepuffer 

249 - 250 

F9 - FA 

Zeiger auf RS232 Ausgabepuffer 

251 -254 

FA - FE 

Freie Zoropageadrossen 

255-(266) 

FF - 10A 

Zwischenspeicher für Fließkomma nach ASCII 


Dezimal 

Hexadezimal 

Bemerkung 

0 

$0000 

Datenrichtungsregister des 7501 

1 

$0001 

Eln-/Ausgabe-Port des 7501 

2 

$0002 

Flag für Schleifen 

3- 4 

$0003-0004 

Neue Startadresse (Renumber) 

5- 6 

$0005-0006 

Schrittweite (Renumber) 

7 

$0007 

Gesuchtes Zeichen 

8 

$0008 

Flag für Anführungszeichen-Modus 

9 

$0009 

TAB-Spaltenzähler 

10 

$OOOA 

Flag: 0 = Load, 1 = Verify 

11 

$000B 

Zeiger für Eingabepuffer, Anzahl der Elemente 

12 

$000C 

Flag für Standard-DIM 

13 

$000D 

Datentyp: $FF=String, $00=Numerlsch 

14 

$000E 

Datentyp: $80=lnteger, $00=Flleßkomma 

15 

$000F 

Flag für DATA/UST 

16 

$0010 

Flag: Element/FNx-Flag 

17 

$0011 

Flag: $00=INPUT, $40=GET, $98=READ 

18 

$0012 

Flag: Vorzeichen des ATN 

19 

$0013 

Flag: Input-Prompt 

20- 21 

$0014-0015 

Int. Adresse 

22 

$0016 

Zeiger auf temporären Stringstapel 

23- 24 

$0017-0018 

Letzter temporärer Stringvektor 

25- 33 

$0019-0021 

Stapel für temporäre Strings 

34- 35 

$0022-0023 

Bereich für Hilfszeiger 1 

36- 37 

$0024-0025 

Bereich für Hilfszeiger 2 

38 

$0026 

Bereich für Produkt bei Multiplikation 

39 

$0027 

Bereich für Produkt bei Multiplikation 

40 

$0028 

Bereich für Produkt bei Multiplikation 

41 

$0029 

Bereich für Produkt bei Multiplikation 

42 

S002A 

Bereich für Produkt bei Multiplikation 

43- 44 

$002B-002C 

Zeiger auf Basic-Anfang 

45- 46 

$002D-002E 

Zeiger auf Variablen-Anfang 

47- 48 

$002F-0030 

Zeiger auf Beginn der Arrays 

49- 50 

$0031-0032 

Zeiger auf Ende der Arrays (+1) 

51-, 60 

$0033-0034 

Zeiger auf Stringspeicher 

53- oe 

$0035-0036 

Hilfszeiger für Strings 

55- 56 

$0037-0038 

Zeiger auf Speichergrenze 

57- 58 

$0039-003A 

Laufende Basiczeilennummer 

59- 60 

S003B-003C 

Textpointer 

61- 62 

$003D-003E 

Zeiger auf Basic-Statement für CONT 

63- 64 

S003F-0040 

Nummer der aktuellen DATA-Zeile 

65- 66 

$0041-0042 

Adresse des aktuellen DATA-Elementes 

67- 68 

$0043-0044 

Sprungvektor für INPUT 

69- 70 

$0045-0046 

Aktueller Variablenname 

71- 72 

$0047-0048 

Adresse der aktuellen Variablen 

73- 74 

$0049-004A 

Variablenzeiger für FOR...NEXT 

75- 76 

S004B-004C 

Zwischenspeicher für Basic-Zeiger 

77 

$004D 

Akkumulator für Vergleichssymbole 

78- 79 

S004E-004F 

Arbeitsbereich (Zeiger etc.) 

80- 81 

$0050-0051 

Arbeitsbereich (Zeiger etc.) 

82 

$0052 

Arbeitsbereich (Zeiger etc.) 

83 

$0053 

Grafik-Modus 

84- 86 

$0064-0056 

Sprungvektor für Funktionen 

87- 96 

$0057-0060 

Bereich für numerische Operationen 

97 

$0061 

Fließkomma-Akkumulator 1 
(FAC): Exponent 

98-101 

$0062-0065 

Fließkomma-Akkumulator 1 
(FAC): Mantisse 

102 

$0066 

Fließkomma-Akkumulator 1 
(FAC): Vorzeichen 

103 

$0067 

Zeiger für Polynom-Auswertung 

104 

$0068 

Flloßkomma-Akkumulator 1 Überlauf 

105-110 

$0069-006E 

Fließkomma-Akkumulator 2 Exponent etc. 

111 

S006F 

Vorzeichenvergleich Akku 1 mit Akku 2 

112 

$0070 

Fließkomma-Akkumulator 1 niederwertige Stelle 

113-114 

$0071-0072 

Kassettenpuffer Länge/Zeiger 

115-116 

$0073-0074 

Automatisches Zeileninkrement 0=AUS 

117 

$0076 

Grafik-Flag 0=Text 255=Grafik 

118-120 

$0076-0078 

Arbeitsbereich 

121-123 

$0079-007B 

Darstellung von DS$ 

124-125 

S007C-007D 

Basic-Pseudo-Stack-Polnter 

126-143 

S007E-008F 

Arbeitsbereich (Sound) 

144 

$0090 

Statuswort ST 


Tabelle 3a. Die Zeropage beim VC20 (Schluß) Tabelle 3k Die Zeropage beim C16 
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GRUNDLAGEN 


CI 6/VC 20 


Dezimal 

Hexadezimal 

Bemerkung 

145 

$0091 

Flag: Stoptaste / RVS-Tasle 

148 

$0094 

Flag: Serieller Bus — Ausgabe Zeichenpuffer 

149 

$0095 

Zeichenspeicher — Serieller Bus 

150 

$0096 

Zwischenspeicher 

151 

$0097 

Anzahl der geöffneten Flies 

152 

$0098 

Eingabegerät (Normalwerl: 0) 

153 

$0099 

Ausgabegeräf (Normalwert: 3) 

154 

$009A 

Flag: $80=Direkt-, $00=Programm-Modus 

157-158 

$009D-009E 

Zeiger auf Ende des Programms 

159-160 

$O09F-OOAO 

Temporärer Datenspeicher 

161-162 

$00A1-00A2 

Temporärer Datenspeicher 

163-165 

$00A3-00A5 

Echtzelt-Uhr 

166 

$00A6 

Register für seriellen Bus 

167 

$OOA7 

Register für Kassettenroutine 

168 

$00 A8 

Register für seriellen Bus 

169 

$OOA9 

Temporärer Färb-Vektor 

170 

S00AA 

Register tür Kassettenroutine 

171 

$OOAB 

Anzahl der Zeichen im Fllenamen 

172 

$00AC 

Aktuelle logische Flle-Nummer 

173 

$O0AD 

Aktuelle Sekundär-Adresse 

174 

$O0AE 

Aktuelle Geräte-Nummer 

175-176 

$OOAF-OOBO 

Zeiger auf Filenamen 

177 

S00B1 

Von Fehlerroutine benutzt 

178-179 

S00B2-00B3 

I/O Starladresse 

180-181 

SOOB4-OOB5 

Basis-Ladeadresse 

182-183 

S00B6-00B7 

Zeiger: Anfang Kasseltenpuffer 

186-187 

S00BA-00BB 

Zeiger auf Zeichen im Kasseltenpuffer 

190-191 

S00BE-00BF 

Register für Long-Fetch-Routine 

192-193 

S00C0-00C1 

Register für Scrolling 

194 

$00C2 

RVS-Flag (Bildschirm) 

195 

S00C3 

Zeiger: Ende der Zeile (Input) 

196-197 

$0GC4-00C5 

Cursorposition (Input), Reihe/Spalte 

198 

$00C6 

Tastaturabfrage ($40=keine Taste) 

199 

$00C7 

Flag: Eingabe Bildschirm/Tastatur 

200-201 

$OOC8-OOC9 

Zeiger auf Bildschirmzeile 

202 

$00CA 

Cursorposition in aktueller Bildschirmzeile 

203 

$00CB 

Flag: Anführungszeichen-Modus ($00=nein) 

204 

$OOCC 

Länge der aktuellen Bildschirmzeile 

205 

$00CD 

Zeile, in der sich der Cursor befindet 

206 

$00CE 

Letztes Zeichen (I/O) 

207 

$00CF 

Anzahl der Zeichen (Insert-Modus) 

208-215 

SOODO-OOD7 

Reserviert für Software 

216-232 

SOOD8-OOE8 

Reserviert für Anwendungssoftware 

233 

S00E9 

Arbeitsbereich 

234-235 

S00EA-00EB 

Bildschirm-Editor (Farbe) 

236-238 

S00EC-00EE 

Arbeitsbereich (Bildschirm) 

239 

$00EF 

Anzahl der Zeichen im Tastaturpuffer 

241-242 

S00F1-00F2 

Register für Monitor 

250 

$00FA 

Register für X bei Stoptastentest 

251 

$00FB 

Aktuelle Bank-Konfiguration 

264 

$00FE 

Arbeitsregister (Editor) 


Tabelle 3b. Die Zeropage beim C16 (Schluß) 


Load Error geschieht dies nicht; »PRINT FRE(O)« zeigt dann 
die volle Bytezahl an, obwohl sich ein Programm im Speicher 
befindet. Man darf das Programm - das vielleicht nur einen 
geringfügigen Fehler hat - dann nicht starten, weil die Varia¬ 
blen dieses überschreiben würden. Abhilfe schafft in diesem 
Fall 

POKE 45,PEEK(83l):POKE 46,PEEK(832):CLR. ■■ 

Für den C16 gibt man ein: 

POKE 45,PEEK(821):P0KE 46,PEEK(822): CLR ; 

Die Werte werden damit »von Hand« übertragen und ein 
normaler Programmablauf ist in den meisten Fällen wieder 
möglich. 

Jetzt aber wieder zurück zu Bild 3: Nachdem der Vorspann 
und der Programmkopf vor einem Trennzeichen (dies ist ein 
ganz kurzer Pieps) auf Band geschrieben worden sind, wird 
der Header gleich noch einmal gespeichert. 

Dies ist eine Eigenheit des Commodore-Systems, das der 
Datensicherheit dient. Denn nachdem der Programmkopf 1 
geladen hat, vergleicht er in einem zweiten Durchgang das 
bisher Geladene (welches sich ja schon im Speicher befin¬ 
det) mit Programmkopf 2. Eine Abweichung veranlaßt den 
Computer, eine Fehlermeldung auszugeben, in ganz schwe¬ 
ren Fällen wird der Ladevorgang gleich ganz unterbrochen. 
Diese Verfahrensweise gilt nicht nur für den Programmkopf, 
sondern auch für Programme und Daten - sie alle werden 
doppelt gespeichert. 

Beim C16 kommt noch eine spezielle Eigenheit hinzu. Da 
der recht komplexe TED-Chip (siehe separaten Artikel in die¬ 
sem Heft) den Prozessor bei dessen Ladearbeit - die ja sehr 
schnell vonstatten gehen muß - stark behindert, wird er ganz 
einfach abgeschaltet. Aus diesem Grund bleibt der Bild¬ 
schirm «ehrend des Ladevorganges dunkel. 

Nachdem also der Programmkopf erkannt worden ist, zeigt 
der Computer den Filenamen an, und das eigentliche Pro¬ 
gramm (oder die Daten) wird geladen. Ihnen ist wiederum ein 
kurzer Vorspann vorangestellt. Der Endblock besteht aus 
Endmarkierung und einem Nachspann. Er zeigt dem Compu¬ 
ter das Ende des geladenen Programms an, womit der Lade¬ 
vorgang beendet ist. 

Nach diesem Exkurs zum Kassettenaufzeichnungsformat 
nun wieder zur Zeropage. 

Adresse 145: Mit Hilfe dieser Speicherstelle kann man den 
Zustand der STOP- und der linken SHIFT-Taste abfragen: 
Wert = 

253: Linke SHIFT-Taste gedrückt 

254: STOP-Taste gedrückt 

255: Keine der beiden gedrückt 

Wenn man das Low-Byte des STOP-Vektors (Adresse 808, 



Startadresae des 
Programms 


Bild 4. Darstellung eines 
auf Band gespeicherten 
Programms. Die Angaben 
In Klammern beziehen 
sich wie Immer auf den 
C16. 


36 


SONDERHEFT 3/1986 





































CI 6/VC 20 


GRUNDLAGEN 


Eingabe: PRINT PEEK(43):LIST100-120 


80 

82 

76 

78 

84 

32 

80 

69 

69 

75 

40 

52 

51 

41 

58 

76 

73 

82 

83 

PRINT 


P E E K 

(43): 

LIST 


49 

48 

48 

45 

49 

50 

48 

0 

0 

0 

1 

0 

0 

_ 

1 

2 

0 





Bild 5a. Die Basic-Befehle Im Eingabepuffer vor der Umwandlung in Interpretercode 



beim C16: 806) mit POKE 808.PEEK (808)-2 ändert (bitte 
beim C16 Adresse 806 statt 808 verwenden), so ist man in 
der Lage, diese Taste von Basic aus abzufragen, ohne das 
laufende Programm anzuhalten. Ihr kann dann in der Routine 
eine besondere Funktion zugewiesen werden, beispiels¬ 
weise Anhalten des Programmablaufs für eine bestimmte 
Zeit. 

Der Weg einer Eingabezeile 


Programm wieder in die Warteschleife zurück, damit weitere 
Befehle entgegengenommen werden können. 

Nun möchte ich den weiteren Weg einer Direktmoduszeile 
beschreiben, denn der verläuft anders. Nachdem die Zeile 
mit Hilfe der CHRGET-Routine (Adresse 115-138 bezie¬ 
hungsweise beim CI6: 1139-1156) in Interpretercode (also 
Token) umgewandelt worden ist, wird der 2-Byte-Zeiger 
($7A-$7B) auf den Pufferanfang zurückgestellt und der 
Inhalt wie eine Programmzeile behandelt und abgearbeitet 
(wieder mit Hilfe der CHRGET-Routine). 


6*eR onuno* 


Wenn wir einen Basic-Befehl im Direktmodus (LIST. RUN, 
PRINT) oder eine Programmzeile mit Zeilennummer einge¬ 
ben, werden die Informationen - wie bekannt - auf den Bild¬ 
schirm geschrieben und gelangen gleichzeitig in den Basic- 
Eingabepuffer (Adresse 512-600/ $0200-$0258). Dort 
werden Programmzeilen oder direkte Befehle zunächst ein¬ 
mal im ASCII-Format gesammelt (Bild 5a). Dies geschieht 
solange, bis man die RETURN-Taste betätigt. 

Dieser Puffer hat eine Kapazität von 88 Zeichen - also den 
bekannten vier Bildschirmzeilen beim C20 beziehungsweise 
2 Bildschirmzeilen beim C16 . 

Drückt man die RETURN-Taste, so beginnt der Interpreter 
mit der Auswertung der Kommandos. Eingaben ohne Zeilen¬ 
nummer werden auf ihre Syntax hin überprüft und danach 
ausgeführt. 

Verfolgen wir nun einmal genauer den Weg einer Befehls¬ 
zeile. Die einzelnen ASCII-Zeichen werden von einer 
Maschinensprachen-Unterroutine namens »CHRGET« aus 
dem Puffer gelesen und mit den Befehlswörtern aus dem 
ROM verglichen. War die Überprüfung positiv - ist der Befehl 
also identifiziert worden -, so verkürzt der Computer die 
Kommandozeile, indem er die Befehle in Token (Tabelle 2) 
umwandelt. Diese Prozedur durchlaufen sowohl die Pro¬ 
grammzeilen (mit Zeilennummer) als auch die direkten Kom¬ 
mandos (Bild 5b). An dieser Stelle trennen sich nun aber die 
Wege dieser beiden Zeilentypen. 

Zunächst zu dem weiteren Weg einer Programmzeile. Die 
inzwischen komplett übersetzte Zeile im Basic-Puffer wird 
nun in einem zweiten Durchlauf vom Zwischenspeicher in 
den Programmspeicher übertragen, wobei sie auch gleich 
richtig eingeordnet wird (damit die Reihenfolge der Zeilen¬ 
nummern stimmt). Weil sich dadurch der Programmbereich 
im Basic-Speicher vergrößert, muß der Variablenbereich wei¬ 
ter oben angesiedelt werden. Die bis dahin gespeicherten 
Variablen werden dadurch natürlich überschrieben. Nach 
dem Übertragen der Programmzeile springt das Interpreter- 


Verbotenes 


Die Befehle INPUT und GET dürfen im Direktmodus nicht ver¬ 
wendet werden. Der Grund liegt darin, daß diese Eingabebe¬ 
fehle ebenfalls den Basic-Eingabepuffer zur Zwischenspei¬ 
cherung der Daten verwenden. Das »Direktmoduspro¬ 
gramm«, das sich zu dieser Zeit im Puffer befindet, würde 
dann überschrieben. Um das zu verhindern, sind diese Kom¬ 
mandos im Direktmodus verboten (Fehlermeldung »ILLEGAL 
DIRECT«), 

Der nächste größere Komplex, den wir hier behandeln wol¬ 
len, ist die Tastaturverwaltung. Wie Sie bestimmt schon öfter 
bemerkt oder gelesen haben, wickelt der VC 20 (und der 
C16) seine Tastaturoperationen ebenfalls über einen Puffer 
ab (vergleiche Tabelle 4). Dies wird beim LISTen von Basic- 
Programmen deutlich, denn während der Computer ein Pro¬ 
gramm ausgibt, können alle Tasten (mit Ausnahme des STOP- 
Keys) drücken - diese erscheinen aber nicht auf dem Bild¬ 
schirm. Erst wenn das Programm zu Ende gelistet ist, sieht 
man, daß keine Taste »vergessen« wurde, denn alle Eingaben 
wurden im Tastaturpuffer (Adresse 631-640, beim C16: 
1319-1328) zwischengespeichert. 

Mit Hilfe des Tastaturpuffers kann aber auch - und das ist 
das Interessante an diesen zehn Bytes - eine relativ unkon¬ 
ventionelle Art der Programmierung praktiziert werden. 


Dezimal 

Hexadezimal 

Bemerkung 

255- 266 

256- 318 
256- 511 
512- 600 
601- 610 

00FF- 01OA 
0100-013E 
0100- 01 FF 
0200- 0258 
0259- 0262 

Arbeitsspeicher für Fiielikomma nach ASCII 
Korrekturpuffer für Bandbetrieb 

Prozessor Stack 

Basic-Eingabepuffer 

Tabelle der logischen Filenummern... 


Tabelle 4a. Die Belegung der Seiten 2 bis 4 beim VC 20 
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GRUNDLAGEN 


CI 6/VC 20 


Dezimal 

Hexadezimal 

Bemerkung 

611- 620 

0263 - 026C 

....sowie der dazugehörigen Gerätenummem... 

621- 630 

026D - 0276 

..und der entsprechenden Sekundäradressen 

631- 640 

0277 - 0280 

Tastaturpuffer 

641- 642 

0281 - 0282 

Start des verfügbaren RAM-Bereichs 

643- 644 

0283 - 0284 

Ende des verfügbaren RAM-Bereichs 

645 

0285 

Timeout-Flag für den seriellen Port 

646 

0286 

Aktueller Farbcode 

647 

0287 

Farbe unter dem Cursor 

648 

0288 

High-Byte des Bildschirmspeichers (Information für 
das Betriebssystem) 

649 

0289 

Größe des Tastaturpulfers (Maximum 10) 

650 

028A 

Repeat-Flag (0: Cursor t Space/ 64: Keine Taste/128: 
Alle Tasten mit Repeat) 

651 

028B 

Repeat-Zähler (bestimmt die Wartezeit bis die Taste 
wiederholt wird) 

652 

028C 

Repeat-Verzögerung (bestimmt die Zeit, bis die Taste 
das erstemal wiederholt wird) 

653 

0280 

Kontrolltasten-Flag (1: SHIFT/2: CBM/ 4: CTRL. 

Es können auch 2 Tasten erkannt werden 
zum Beispiel 5: SHIFT + CTRL) 

654 

028E 

Letzte Kontrolltaste (Identisch mit 653) 

655- 656 

028F - 0290 

Vektor für Tastaturdecodierung 

657 

0291 

Flag lür SHIFT + CBM gesperrt (keine Groß-Klein- 
Schrift-Umschaltung. 0: Normal/128: Sperre) 

658 

0292 

Flag für Scrolling 

659- 670 

0293 - 029E 

RS 232 Register, Zeiger, etc. 

671- 672 

029F - 02A0 

Zwischenspeicher für IRQ bei Bandbetrieb 

673- 676 

02A1 - 02A4 

Diverse VIA-Zeiger 

677- 767 

02A5 - 02FF 

Zwischenspeicher einer Bildschirmzeile 

786- 769 

0300 - 0301 

Vektor für Fehlermeldung (C43A) 

770- 771 

0302 - 0303 

Vektor für Basic-Warmstart (C483) 

772- 773 

0304 - 0305 

Vektor für Umwandlung von ASCII in Token (C579) 

774- 775 

0306 - 0307 

Vektor für Umwandlung von Token in ASCII (C717) 

776- 777 

0308 - 0309 

Vektor für Basic-Befehlsadresse (C7E1) 

778- 779 

030A - 030B 

Vektor tür arithmetisches Element (CE83) 

780 

030C 

Akku für SYS-Befehl (Bei SYS wird 780 in den 

Akku geladen) 

781 

030D 

X-Reg für SYS-Befehl 

782 

030E 

Y-RegfürSYS-Befehl 

783 

030F 

Speicher für Status Register für SYS-Befehl 

788- 789 

0314 - 0315 

IRQ-Vektor (EABF) * ‘ * Kernal-Vektoren 

790- 791 

0316 - 0317 

BRK-Vektor (FED2) 

792- 793 

0318- 0319 

NMI-Vektor (FEAD) 

794- 795 

031A- 031B 

OPEN-Vektor (F40A) 

796- 797 

031C - 031D 

CLOSE-Vektor (F34A) 

798- 799 

031E - 031F 

Kanal für Eingabe (CHKIN, F2C7) 

800- 801 

0320 - 0321 

Kanal für Ausgabe (CHOUT, F309) 

802- 803 

0322 - 0323 

Kanäle initialisieren (CLRCH, F3F3) 

804- 805 

0324 - 0325 

Eingabe-Vektor (F20E) 

808- 807 

0326 - 0327 

Ausgabe-Vektor (F27A) 

808- 809 

0328 - 0329 

Vektor für STOP-Taste prüfen (F770) 

810- 811 

032A - 032B 

GET-Vektor (F1F5) 

812- 813 

032C- 0320 

Alle Files schließen (F3EF) 

814- 815 

032E - 032F 

User-Vektor (FED2) 

816- 817 

0330 - 0331 

LOAD-Voktor (F649) 

818- 819 

0332 - 0333 

SAVE-Vektor (F685) 

828-1019 

033C - 03FB 

Kassettenpulfer 


Tabelle 4a. Oie Selten 2 bis 4 beim VC 20 


Dezimal 

Hexadezimal 

Bemerkung 

256- 511 

$0100-01 FF 

Prozessorstack 

512- 600 

$0200-0258 

Eingabepuffer 

601- 604 

$0259-025C 

Basic-Puffer 

605- 684 

S025D-02AC 

Basic-/DOS-Arbeitsbereich 

605 

$025D 

DOS-Schlelfenzähler 

606- 621 

S025E-026D 

Bereich für Filenamen 

622 

S026E 

1, Filename (Länge) 

623 

S026F 

DOS (Laufwerk 1) 

624- 625 

$0270-0271 

1. Filename (Adresse) 

626 

$0272 

2. Filename (Länge) 

627 

$0273 

DOS (Laufwerk 2) 



Dezimal 

Hexadezimal 

Bemerkung 


628- 629 

$0274-0275 

2. Filename (Adresse) 


630 

$0276 

DOS logische Adresse 


631 

$0277 

DOS (Geräteadresse) 


632 

$0278 

DOS (Sekundäradresse) 


633- 634 

S0279-027A 

DOS (Dlsketten-ID) 


635 

$0278 

ID-Flag 


636 

$027C 

DOS (Ausgabepuffer) 


637- 684 

$027D-02AC 

DOS (Arbeitsbereich) 


685- 688 

$02AD-0280 

Grafik-Cursor 


689- 692 

S0281-02B4 

Grafik-Cursor (Register) 


693- 715 

S02B5-02CB 

Grafik-Register 


716- 739 

S02CC-02E3 

Prlnt-Uslng, Grafik-Arbeitsbereich 


740 

$02E4 

Hlgh-Byte-Adresse des Charakter-ROM 


747 

S02EB 

Trace-Flag 


752 

$02F0 

Anzahl der Grafik-Parameter 


753 

$02F1 

Parameter: Relativ (1), Absolut (0) 


754- 755 

$02F2-02F3 

Fließkomma-Vektor 


756- 757 

$02F4-02F5 

Integer-Vektor 


768- 769 

$0300-0301 

Sprungvektor: Fehlermeldung 


770- 771 

$0302-0303 

Sprungvektor: Basic-Warmstart 


772- 773 

$0304-0305 

Sprungvektor: Token-Generierung 


774- 775 

$0306-0307 

Sprungvektor: Keywort erzeugen 


776- 777 

$0308-0309 

Sprungvektor: Hauptschleife 


778- 779 

S030A-030B 

Sprungvektor: Eval 


780- 781 

$030C-030D 

Sprungvektor: Token-Generierung (User) 


782- 783 

$030E-030F 

Sprungvektor: Keywort erzeugen 


784- 785 

$0310-0311 

Sprungvektor: User-Token bearbeiten 


786- 787 

$0312-0313 

Sprungvektor: Interrupt (Uhr) 


788- 789 

$0314-0315 

Sprungvektor: Interrupt 


790- 791 

$0316-0317 

Sprungvektor: Break Interrupt 


792- 793 

$0318-0319 

Sprungvektor: Open 


794- 795 

$031A-031B 

Sprungvektor: Close 


796- 797 

S031C-031D 

Sprungvektor: Kanal für Eingabe öffnen 

■ (' ' 

■ «C 

S031E-031F 

Sprungvektor: Kanal für Ausgabe öffnen 

•mSI 

$0320-0321 

Sprungvektor: I/O zurücksetzen 


802- 803 

$0322-0323 

Sprungvektor: Input 


804- 805 

$0324-0325 

Sprungvektor: Ausgabe 


806- 807 

$0326-0327 

Sprungvektor: Abfrage der Stoptaste 


808- 809 

$0328-0329 

Sprungvektor: Getin-Routine 


810- 811 

$032A-032B 

Sprungvektor: Schließen aller Flies 


812- 813 

$032C-032D 

Sprungvektor: Monitor Break 


814- 815 

$032E-032F 

Sprungvektor: Lade-Routine 


816- 817 

$0330-0331 

Sprungvektor: Save-Routine 


818-1010 

$0332-03F2 

Kassettenpufler 


1011-1012 

$03F3-03F4 

Datenzähler (Write) 


1013-1014 

$03F5-03F6 

Datenzähler (Read) 


1015-1078 

S03F7-0436 

RS-232-lnput-Puffer (64 Byte) 


1079-1108 

$0437-0454 

System-Arbeitsbereich 


1109-1138 

$0455-0472 

System-Arbeitsbereich 


1139-1144 

$0473-0478 

Chrget-Routlne 


1145-1156 

$0455-0484 

Chrgot-Routlne 


1172-1244 

$0494-04DC 

Bankswitching-Routinen 


1255-1258 

$04E7-04EA 

Print-Using-Parameter 


1263-1270 

$04EF-04F6 

Trap- und Error-Flags 


1280-1282 

$0500-0502 

USR-Sprungbefehl 


1283-1287 

$0503-0507 

Startwert lür RND 


1288 

1289-1298 

$0508 

$0509-0512 

Flag für Kalt- oder Warmstart 

Tabelle der logischen Filenummern 


1299-1308 

$0513-0510 

Tabelle der Gerätenummem 


1309-1318 

$051D-0526 

Tabelle der Sekundäradressen 


1319-1328 

$0527-0530 

Tastaturpuffer 


1329-1330 

$0531-0532 

Basic-Anfang 


1331-1332 

$0533-0534 

Basic-Ende 


1337 

$0539 

Zeiger: Kassettenpuffer 


1338 

$053A 

Typ des Kassettenfiles 


1344 

$0540 

Tasten-Widerholfunktion $80=alle, $40=keine, 
$00=nur DEL, CUR, SPC 


1345-1346 

$0541-0542 

Zähler für Wiederholfunktion 


1347 

$0543 

Shift-Flag 


1348 

$0544 

Letztes Shlft-Zelchen 


1349-1350 

$0545-0546 

Sprungvektor: Keylog 


1351 

$0547 

Text-/Grafik-Flag 


Tabelle 4b. Die Belegung der Seiten 2 bis 4 beim C16 
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CI 6/VC 20 


GRUNDLAGEN 


Dezi mal 

Hexadezimal 

Bemerkung 

1352 

$0548 

Scroll-Flag 

1355-1372 

S054B-0551 

Cpu-Arbeitsbereich 

1362-1367 

$0552-0557 

Cpu-RegiBler 

1368-1372 

S0558-055C 

Cpu-Arbeitsbereich 

1373 

S055D 

Zähler für Funktionstasten 

1374 

S055E 

Zeiger: Text, Funktionstasten 

1375-1510 

S055F-05E6 

Speicher für Funktionstasten 

1516-1571 

S05EC-06EB 

1 Page, Bankingroutinen 

1516-1519 

$05EC-05EF 

Adreßtabelle 

1520-1521 

S05F0-05F1 

Lmg-Jump (Adresse) 

1522 

$05F2 

Long-Jump (Akkumulator) 

1523 

$05F3 

Ltng-Jump (X-Register) 

1524 

$05F4 

Long-Jump (Status-Register) 

1525-1629 

S05F5-065D 

RAM-Bereich für Bankswitching 

1630-1771 

S065E-06EB 

RAM-Bereich für Benutzersoftware 

1792-1967 

S06EC-07AF 

Basic-Pseudo-Stack 

1968-1996 

$07B0-07CC 

Kassetten-Arbeitsbereich 

1997-2000 

S07CD-07DO 

RS-232-Arbeitsbereich 

2001 

$07D1 

RS-232: Pointer auf Anf. Eingabepuffer 

2002 

$07D2 

RS-232: Pointer aut Ende Eingabepuffer 

2003 

$07D3 

Anzahl der Zeichen im Eingabepuffer 

2021 

$07E5 

Bildschirm: Unterer Rand 

2022 

$07E6 

Bildschirm: Oberer Rand 

2023 

S07E7 

Bildschirm: Linker Rand 

2024 

$07E8 

Bildschirm: Rechter Rand 

2026 

$07EA 

$FF= Automatisches Einfügen 

2030-2033 

$07EE-07F1 

Bit-Tabelle 

2034 

$07F2 

A-Register retten bei Sys-Kommando 

2035 

$07F3 

X-Reglster retten bei Sys-Kommando 

2036 

$07F4 

Y-Register retten bei Sys-Kommando 

2037 

$07F5 

Status-Register retten bei Sys-Kommando 

2038 

$07F6 

Register für Tastaturabfrage 

2039 

$07F7 

Flag: CTRL-S: $00=offen, $06=gesperrt 

2040 

$07F8 

RAM-ROM-Umschaltung für Monitor 0=RÖM, 
$80=RAM 

2044 

S07FC 

Motorsteuerung 


Tabelle 4b. Die Seiten 2 bis 4 beim C16 (Schluß) 


Um dies verständlich zu machen, habe ich ein Programm 
(Listing 2) geschrieben, welches DATA-Zeilen aus Maschi¬ 
nenprogrammen oder Sonderzeichen erzeugt. Die Proble¬ 
matik dabei ist folgende: Wenn ich DATA-Zeilen ins Programm 
schreiben möchte, so ist dies nur im Direktmodus möglich. 
Um dies automatisch zu tun, benötigen wir ein Programm. 
Also was tun? - Man bedient sich des Tastaturpuffers! 

Der »DATA-Erzeuger« 


Dazu nochmals die Durchleuchtung der Funktionsweise. 
Während des Systeminterrupts, der alle 60stel Sekunde 
durchlaufen wird, fragt der Computer die Tastatur ab. Ein ein- 

gegebenes Zeichen wird dabei im Tastaturpuffer abgelegt, 
wo es so lange verbleibt, bis ein Zeichen von der Tastatur 
benötigt wird. Dies ist zum Beispiel im Direktmodus der Fall 
(wenn der Cursor blinkt) oder im Programm - bei INPUT oder 
GET. Die Zeichen werden dann wieder aus dem Tastaturpuf¬ 
fer hervorgeholt, und zwar nach dem Prinzip »First in, First 
out«. Bei unserem Programm werden zunächst einmal sechs 
Speicherzellen initialisiert. Die ersten zwei Adressen enthal¬ 
ten die Anfangsadresse der abzuspeichernden Daten aus 
dem Speicher. Dieser Zeiger wird solange inkrementiert, bis 
er den Wert der Endadresse - der in den zwei folgenden 
Bytes abgelegt ist - erreicht hat. In den letzten zwei Spei¬ 
cherstellen (Adresse 252, 253 beziehungsweise 212, 213) 
steht die Zeilennummer in der Reihenfolge Low-/High-Byte. 
Bequemer wäre es natürlich, wenn man normale Variablen 
verwenden könnte. Dies ist jedoch nicht möglich, weil diese 
beim Einfügen einer DATA-Zeile gelöscht werden. Darum 


1 REM DATA-ERZEUGER 

2 REM 

5 B=24B:REM *B=208' BEI C 16 
10 INPUT"<CLR,2D0WN>STARTADRESSEs";SA 
20 INPUT"CDQWN>ENDADRESSEs“;EA 
30 A=SA:GQSUB 250:POKE B,Al:POKE B+1,A2 
40 A=EA: GOSUB 250sPOKE B+2,AlsPDKE B+3,A2 
50 PQKE B+4,44:POKE B+5,1:REM STARTZEILE 3 
00 

60 DEF FN Z < X)«PEEK < X)+256*PEEK(X+1) 

65 B=24B:REM B»208' BEI C 16 

70 AD=FN Z(B+4):REM AKTUELLE ZEILENNUMMER 

80 PRINT"{CLR>";ADj"DATA "j 

90 REM ** DATA-ZEILE MIT 8 ELEMENTEN ERZEU 
GEN *# 

100 FOR T=0 TO 7 
105 X-PEEK(FN Z(B)+T> 

110 B*=STR*(X):L=LEN(B*) 

120 B*=RIGHT*CB*,L-1> 

130 IF L=4 THEN 150 

140 FOR Y-L+l TO 4:B*«"0"+B*:NEXT 

150 B*»","+B* 

160 IF T=0 THEN B*-RIGHT*(B*,3> 

170 PRINT B*;:IF FN Z(B)+T=FN Z(B+2) THEN 
240 

180 NEXT 

190 A==AD+ 10s GOSUB 250: POKE B+4, A1: POKE B+5 
,A2 

200 A=FN Z(248> +8:GOSUB 2501POKE B,Al:POKE 
B+1,A2 

210 PRINT:PRINT"{DOWNJRUN 60" 

215 REM TASTATURPUFFER MIT <HOME>,<RETURN> 
,<CRSR DOWN> UND <RETURN> FUELLEN 
220 Z=631:REM •Z=1319 > BEI C 16 
225 POKE Z,19:POKE Z+l,13:POKE Z+2,17:POKE 
Z+3,13 

230 POKE 198,4:REM 'POKE 239,4' BEI C 16 
240 END 

250 A2=INT<A/256):A1=A-A2*256 
260 RETURN 

Listing 2. »Data-Erzeuger« für VC 20 (für C16 REM-Zeilen 
beachten) 


bleibt nur der Umweg über Speicherstellen, deren Inhalte 
durch Basic nicht überschrieben werden können. 

Als nächstes erzeugt das Programm - mit Hilfe der in 
252/253 beziehungsweise 212/213 gespeicherten Zwei- 
Byte-Zahl - eine Zeilennummer, welche auf den Bildschirm 
gePRINTet wird. Dann schreibt es das Befehlswort »DATA« 
und druckt acht dreistellige Zahlen (die Daten aus dem zu ver¬ 
arbeitenden Maschinenprogramm) aus. Nun haben wir eine 
fertige Programmzeile auf dem Bildschirm stehen, die sich 
allerdings noch nicht im Speicher befindet. Dies erledigt jetzt 
unser Tastaturpuffer. 

Vorher müssen wir uns jedoch genau überlegen, wie unser 

Bildschirm aussieht, denn dementsprechend muß der Cursor 

programmiert werden. 

Zuerst wird der Cursor mit HOME (=CHR$ (19)) an die 
linke obere Ecke befördert. Dort wird durch einen Druck auf 
die RETURN-Taste (=CHR$(13)) die Basic-Zeile in den Spei¬ 
cher übernommen. Nun befindet sich der Cursor in der drit¬ 
ten Zeile. Durch ein »Cursor down« (=CHR$(17)) bewegt er 
sich eine Zeile nach unten und steht nun auf dem Befehlswort 
RUN 60. Ein weiteres RETURN bewirkt den erneuten Start 
des Hilfsprogramms. 

Wir benötigen für die Cursorbewegung also vier Werte. 
Diese werden vor dem Ende des Programms mit 
»POKE 631,19: POKE 632, 13: POKE 633,17: 

POKE 634, 13: POKE 198,4« 

(beziehungsweise die oben angegebenen Werte für den 
C16) in den Tastaturpuffer geschrieben. Hierdurch simulie¬ 
ren wir eine gedrückte Tastenfolge: denn nachdem sich der 
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CI 6/VC 20 


HEX 

FFFF 


E000 

COOO 

AOOO 

9800 

9600 

9400 

9000 

8000 


2000 

1EOO 

1000 


0400 

0000 


8 KByte Betrebs- 
system-ROM 


8 KByte Basic-ROM 


8 KByte Steckmcxlul- 
bereich 


Irei lür 

I/O-Erweiterungen 


0.5 KByte Farb-RAM 


frei 


1 KByta SyslemkonltoOen 


4 KByte Zeichen- 
generator-ROI 


frei 


0.5 Kßyle Video-RAM 


3 5 KByte RAM 
(GnmdvwsKin) 


Efweilerung 
+3 KByte RAM 


1 KByte RAM Zeopege, Stank 


VC 20 

(Grundversion) 


DEZIMAL 

65535 


57344 


49152 


40980 

38912 

38400 

37888 

36864 

32768 


24576 

16384 

8192 

7680 

4096 


1024 

0 


syslem-ROM 


8 KByte 8as>c-R0M 


8 KByte StecKmoduF 
bereich 


frei lür 

I/O-Emelterungen 


frei 


0.5 KByte Farb-RAM 


1 KByte Systemkontrollen 


4 KByte Zeichen¬ 
generator-ROM 


8 KByte Erweiterung 3 
(+24 K) 


8 KByte Erweiterung 2 
(+16 K) 


8 KByte Erweiterung 1 
(+8K) 


0.5 KByte Video-RAM 


frei oder 3 KByte lür 
Maschinensprache 


l KByte RAM Zeropags, Stack 


HEX 

FFFF 


Bild 6a. Der Speicher- 
EOOO aufbau beim VC 20 


cooo 

AOOO 

9800 

9600 

9400 

9000 

8000 

6000 

4000 

2000 


HEX 

FFFF 

FOOO 


4000 


3,5 KByte RAM 
(Grundverslonl 


1000 


0400 

0000 


Bild 6b. Der Speicher¬ 
aufbau beim C16 ► 


1000 

ocoo 

0800 

0000 


I/O und TED 


Basic-RAM 
bei Plus 4 
oderC 16 
mit 

64 KByte- 
Enveltening 


Basic-RAM 
(bei 16 KByte Byte) 


Video-RAM 


Farb-RAM 


Systemspeicher 


DEZIMAL 


■ 65535 
64768 


■ 16384 


4096 

3072 

2048 


(ab 


VC 20 

8-KByte-Erweiterung) 


CI 6/CI 16/Plus 4 


Computer über den Befehl END wieder im Direktmodus 
befindet, wird zuerst der Tastaturpuffer geleert, wodurch der 
Cursor den vorbestimmten Weg nimmt. »POKE 198,4« 
(»POKE 239,4«) gibt an, wie viele Zeichen sich momentan im 
Puffer befinden. 

Jetzt möchte ich noch einen kleinen Einblick in die 
Speicherorganisation geben, was auch im Hinblick auf Grafik 
von Bedeutung ist. 

Bei Erweiterungen von mehr als 8 KByte verändert sich die 

Lage des Bildschirm- und Farbspeichers (die Einstellung 
nimmt die Reset-Routine vor). Anhand von Bild 6a soll erläu¬ 
tert werden, warum eine Verschiebung notwendig ist. 

Der Video-Interface-Chip VIC (daher auch der englische 
Name des VC 20), der vor allem für die Erzeugung des Fern¬ 
sehsignals und den Aufbau des Bildschirmes verantwortlich 
ist, kann hardwaremäßig nur Videospeicherplätze zwischen 
4096 und 8192 adressieren. Folglich muß das Bildschirm- 
RAM in diesem Bereich angesiedelt werden. 

In der Grundversion liegt es zwischen Adresse 7680 und 
8191 - also am Ende des verfügbaren Speichers, damit der 
Speicherbereich für Basic auch bei eingesteckter 3 KByte- 
Erweiterung durchgängig ist (läge der Bildschirmspeicher so 
wie bei einer 8-KByte-Erweiterung, wäre dies nicht der Fall). 

Ist ein Speichermodul von mehr als 8 KByte eingesteckt 
(egal ob der 3-KByte-Bereich zugeschaltet ist oder nicht), so 

AH 


legt das System den Videospeicher an die unterste adres¬ 
sierbare Stelle für den VIC, also Adresse 4096. Aus diesejn 
Grund kann die eingesteckte 3-KByte-Erweiterung nicht 
mehr für Basic benutzt werden, denn sonst wäre der Spei¬ 
cher nicht mehr durchgängig. 

Der C16 ist vom Speicheraufbau etwas anders organisiert. 
Die in beiden Geräten eingebauten Prozessoren (6502 und 
7501) können jeweils immer nur einen Adreßbereich von 

64 KByte (das entspricht den Adressen 0-65535) anspre¬ 
chen. Um Zugriff auf noch mehr Speicherplatz für Pro¬ 
gramme und Daten (sei es nun im ROM oder im RAM) zu 
haben, bedient man sich beim C16 eines Tricks: 

Der Computer schaltet einfach immer zwischen zwei Spei¬ 
cherblöcken zu je 64 KByte (siehe Bild 6b) hin und her. Der 
erste Block besteht - wenn der C16 voll ausgebaut ist - aus 
Schreib-/Lesespeicher, die andere Bank verwaltet das ROM. 
Diese Technik des »Bank-Switching« wird auch beim neuen 
Commodore-Flaggschiff C 128 verwendet. 

Damit ist unsere Einführung in die internen Geheimnisse 
des VC 20/C16 beendet. Es ist jetzt an Ihnen, die hier erwor¬ 
benen Kenntnisse durch'eigenes Experimentieren zu vertie¬ 
fen und in eigenen Programmen einzubauen. Zusätzliche 
wichtige Hintergrund-Informationen speziell über die The¬ 
mengebiete »Grafik« und »Zeichensatz« beim C16 finden Sie 
in diesem Sonderheft. (Christoph Sauer/ev) 
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HARDWARE 


6 


»60671 BYTES FREE« 

beim C16 


Wenn Sie größere Programme erstellen und auch noch Im Grafik-Modus 
arbeiten, dann sind Sie sehr schnell am Ende des Spei¬ 
cherbereichs angelangt. Wir haben für Sie zwei 
Speichererweiterungen getestet, die da 


Abhilfe 

H aben Sie ihren C16 eingeschaltet, so meldet er sich 
unter anderem mit »12277 BYTES FREE«. Für die 
ersten Programmierversuche reicht ein Speicherplatz 
von 12 KByte auch vollkommen aus. Wenn Sie allerdings 
schon einige Erfahrungen gesammelt haben und sich in die 
Grafik-Programmierung vorwagen, wird dies schlagartig 
anders. Bei eingeschaltetem Grafik-Modus stehen Ihnen 
nämlich nur noch 2 KByte für das Programm zur Verfügung. 
Das bedeutet, nach etwa 40 vollgeschriebenen Programm¬ 
zeilen ist Schluß. Sollten Sie auf die Idee kommen, am Anfang 
des Programms noch einige Variabienfelder zu dimensionie¬ 
ren, brauchen Sie gar nicht weiterzuprogrammieren. 

Die Firma Kingsoft setzt dieser Misere mit zwei Speicherer¬ 
weiterungen ein Ende. Sie haben die Wahl, Ihren Commodore 
16 auf 32 KByte oder sogar 64 KByte aufzustocken. Wollen 
wir uns zunächst der kleineren von beiden Versionen zu¬ 
wenden. 


schaffen. 

Die 16 KByte Erweiterung (Bild 1) wird bei ausgeschalte¬ 
tem Gerät einfach in den Expansion-Port eingesteckt. Die 
geschlossene Gehäuseseite muß dabei oben sein. Das 
Modul läßt sich zwar nicht verkehrt einstecken, aber um 
Ungewißheiten beim Käufer zu beseitigen, sollte dies auch in 
der sonst guten Einbauanleitung erwähnt werden. 

16 KByte Erweiterung 


»28661 BYTES FREE« ist nach dem Einschalten auf dem 
Bildschirm zu sehen. Damit haben Sie auch im Grafik-Modus 
einen größeren Speicherbereich zum Programmieren frei als 
vorher ohne Grafik-Aktivierung. Auch der fortgeschrittene 
Programmierer verfügt jetzt wieder über genügend Spei¬ 
cherplatz. Etwa 360 Programmzeilen können Sie jetzt von 
vorne bis hinten vollschreiben. 






■■ - 

■ 

1 

iw V v M 

- ••• 






El* , 



▲ 

Bild 1.16 KByte Erweiterung. 

Bel ausgeschaltetem Gerät In den 
Expansion-Port stecken. 

Die geschlossene Gehäuseseite 
muß dabei nach oben zeigen. 


Bild 2. Erweiterung auf 64 KByte. 

Diese Erweiterung muß in den Computer 
eingebaut werden. Beachten Sie dazu 
die Im Text beschriebenen Hinweise. 
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C16 


HARDWARE 


Gut sind die mitgelieferten Tips, denn es kann Vorkommen, 
daß einige Programme mit der Erweiterung nicht richtig lau¬ 
fen. Einige POKE-Befehle schaffen da Abhilfe: 

Statt: LOAD jetzt: POKE 65299,1V : LOAD 
statt: RUN jetzt: POKE 65299,17 : RUN 
Nicht nur bei dieser Erweiterung kann der geschilderte 
Trick helfen. Es gilt ebenso für die 64 KByte-Erweiterung und 
wenn C16-Programme auf dem Plus 4 laufen sollen. 

Ein Mangel zeigte sich bei dem Modulgehäuse. Da die Pla¬ 
tine nur durch kleine Nasen im Gehäuse gehalten wird, kann 
es bei mechanischer Belastung des Gehäuses Vorkommen, 
daß die Platine aus den besagten Halterungen springt. 

Mit 99 Mark kann man den Preis für diese Erweiterunng als 
durchaus akzeptabel bezeichnen. 

Erweiterung auf 64 KByte 


Eine Einschaltmeldung von »60671 BYTES FREE« läßt das 
Herz des Programmierers höher schlagen. Der C 64 kann da 
mit »38911 BYTES FREE« fast als kleiner Bruder bezeichnet 
werden. Über Platzmangel für Ihr Programm können Sie sich 
jetzt auf alle Fälle nicht mehr beklagen. 

Das dafür notwendige Erweiterungsmodul muß allerdings 
in den Computer eingebaut werden (Bild 2). Eine Arbeit, die 
Ihnen aber mit Hilfe der beigelegten Einbauanleitung leicht 
fallen wird. Sie müssen dafür den Computer aufschrauben (3 
Schrauben auf der Rückseite des Gerätes), die Stecker von 
der Tastatur und der LED für Netzspannungskontrolle abzie- 
hen (merken Sie sich, wie sie eingesteckt waren) und die 
Abschirmung zurückklappen. Jetzt liegt das Innenleben des 
Computers offen vor Ihnen. Das größte IC auf der ganzen Pla¬ 
tine ist der Video Interface Controller mit der Typenbezeich¬ 
nung 8360. Mit einem Schraubendreher, den Sie zwischen 
Sockel und IC ansetzen, können Sie diesen Baustein vorsich¬ 
tig nach oben abhebeln. Um ein Verbiegen der IC-Beinchen 
zu vermeiden, sollten Sie dies abwechselnd von der linken 
und rechten Seite des ICs tun. Den Video Interface Controller 
stecken Sie jetzt in den IC-Sockel der Zusatzplatine. Achten 
Sie unbedingt darauf, daß dabei die Kerbe am IC und die 
ebenfalls eingekerbte Sockelseite Übereinanderliegen müs¬ 
sen. Auf die gleiche Weise stecken Sie die Zusatzplatine in 
den freien Sockel des Computers. In der Anleitung werden 
Sie auch darauf aufmerksam gemacht, daß beim Aufstecken 
der Zusatzplatine einige Bauteile im Weg sein könnten und 
diese vorsichtig umgebogen werden müssen. Wir wollen Sie 
aber trotzdem darauf hinweisen, daß ein folgenschwerer 
Kurzschluß entstehen kann, falls Sie diese Anweisung nicht 
befolgen und das Gerät einschalten. 

Bedenken Sie jedoch, daß die Garantieansprüche durch 
diesen Eingriff erlöschen. Dennoch ist diese Speichererwei¬ 
terung ein sehr interessantes Angebot. Für 199 Mark können 
Sie den Speicher Ihres C16 auf 64 KByte auf rüsten und 
damit alle Möglichkeiten des Computers intensiv nutzen. 

Kingsoft bietet noch mehr 


Kingsoft hat einiges für C16-Besitzer auf Lager und gehört 
damit zu den wenigen Firmen, die sich bisher um diesen 
Computer gekümmert haben. Neben je einem Zeichen- und 
Musikprogramm werden zirka 50 Spiele angeboten. Eine 
recht interessante Kleinigkeit ist ein Joystickadapter für 12 
Mark, mit dem Sie C64-Joysticks an Ihren Computer 
anschließen können. (kn) 


Info: Kingsoft, Fritz Schäfer, Schnackebusch 4, 5100 Roetgen 


Drucker für C16 


Lohnt sich der Kauf eines Druckers für den C 16? 
Wir stellen Ihnen sechs Drucker unter 800 Mark 
zur Auswahl vor. 

D er Kauf eines Druckers sollte wohl überlegt sein, denn 
mit einem falschen Drucker sind schnell mehrere 100 
Mark aus dem Fenster geworfen. Dabei ist es keines¬ 
wegs gleichgültig, für welchen Drucker einer Preisgruppe 
man sich entscheidet, denn Leistungen und Druckerbild sind 
von Gerät zu Gerät so unterschiedlich, daß man sich vor dem 
Kauf über die Vor- und Nachteile genauestens informieren 
sollte. Wir haben für Sie einige Low-Cost-Drucker ln der 
Preislage unter 800 Mark getestet. 

Kleiner Epson ganz groß 


Was zunächst wegen seiner kompakten Maße wie ein verklei¬ 
nertes Modell aussieht, erweist sich in der Praxis schnell als 
ein recht vielseitiges und zuverlässiges Werkzeug. Der 
Epson P-40 (Bild 1) ist ein Kleindrucker mit einer Papierbreite 
von 11,2 Zentimetern, der ursprünglich für den HX-20 Hand- 
Held-Computer entwickelt wurde. Er arbeitet nach dem 
Thermo-Prinzip und ist deswegen extrem leise. Im flachen 
Gehäuse präsentiert er sich wie eine verkleinerte Ausgabe 
des bfckr, inten FX-80-Druckers. In der Tat teilt der P-40 mit 
seinem großen Bruder nicht nur die Centronics-Schnittstelle, 



Bild 1. Epson P-40, ein Thermo-Drucker 


EPSON P40 

PAPIERBREITE: 11 ZENTIMETER 
ZEICHENMATRIX! 5 X 9 
DRUCKGESCHWINDIGKEIT: 40 
ZEICHEN PRO SEKUNDE 
GRflFIKFAEHIGs JA, ZWEI PUNKTDICHTEN 
DOPPELTE BREITE 
UERSCHIEDENE ZEILENABSTAENDE 
KQNPRiniERTE SCHRIFT 

HERUORGEHOBENE SCHRIFT 
DEUTSCH UMLAUTE: 

HdO A 'äöüß (Schriftbild verkleinert) 


Bild 2. Klein, aber mit Leistungen der Großen ausgestattet — 
der Epson P-40 
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sondern auch einige Steuerbefehle. Für einen Drucker die¬ 
ser Preisklasse ungewöhnlich sind Befehle zum Einstellen 
der verschiedenen Schriftarten (Bild 2) wie komprimierter 
(80 Zeichen) und gedehnter (40 Zeichen) Schrift. Wer das 
gut strukturierte und umfangreiche Handbuch studiert, stößt 
sogar auf zwei Befehle für einfache und doppelte Grafik, die 
den Befehlen der »großen« Brüder entsprechen. Ganz 
erstaunlich ist auch der eingebaute Zeichengenerator. Er 
bietet die Möglichkeit zwischen verschiedenen internationa¬ 
len Zeichensätzen zu wählen, unter anderem auch einem 
deutschen. Dieser Zeichensatz enthält 96 ASCII-Zeichen, 
inklusive der Groß- und Kleinschreibung. Trotz seines guten 
Konzeptes ist der Betrieb des P-40 am C 16 nicht ohne Pro¬ 
bleme. In jedem Fall wird ein zusätzliches Interface notwen¬ 
dig, das mindestens 50 Mark kostet. Für eine riesige Auswahl 
solcher Schnittstellen ist allerdings gesorgt: Da der P-40 
über die gleiche Befehlssyntax wie seine »großen Brüder« 
verfügt, können alle für die RX-80/FX-80 konstruierten 
Schnittstellen verwendet werden: Mittels Batterien kann er 
auch ohne Netzteil betrieben werden. Insgesamt ist der P-40 
ein gelungenes Gerät, bei dem es allerdings am rechten Ein¬ 
satzgebiet fehlt. Für eine Textverarbeitung ist sein Papier zu 
schmal und als Listingdrucker fehlt ihm der Commodo- 
re-Zeichensatz. Mit einem Preis von 448 Mark (ohne Inter¬ 
face) ist der P-40 auch etwas teuer. 

Doppeltes lottchen 


Der Brother HR-5 (Bild 3) ist ein Thermo-Transfer-Drucker, 
den es in zwei verschiedenen Ausführungen gibt. An einem 
»C« hinter dem Namen erkenntlich, stellt sich die direkt an 
den C 16 anschließbare Version vor. Ein eingebautes Inter- 



Bild 3. Brother HR-5, ein Thermo-Transfer-Drucker 


BROTHER HR 5 THERMOTRANSFERDRUCKER 
PAPIERBREITE: 21 ZENTIMETER 
ZEICHENMATRIX: 9X9 
DRUCKGESCHWINDIÖKEIT 30 
ZEICHEN PRO SEKUNDE 
GRAFIKFAEHIQ: JA, ZWEI PUNKTDICHTEN 
D O R R E l_ T E t=: R R I T R “ 
VERSCHIEDENE ZEILENABSTAENDE 
KOMPRIMIERTE SCHRIFT 
HERVORGEHÜBENE SCHRIFT 
UNTERSTRICHENE SCHRIFT 

ELITE SCHRIFT MIT DEM HR-5 
DEUTSCH UMLAUTE: 

oöu A äöüß (Schriftbild verkleinert) 


Bild 4. Gute Leistung und fast nicht zu hören - der Thermo- 
Transfer-Drucker Brother HR-5 


face sorgt für alle Anpassungen, die für den Betrieb am C 16 
wichtig sind. Beim HR-5 ohne »C« stehen zwei Schnittstellen, 
Centronics parallel oder V.24 (RS232C) zur Verfügung. Das 
Druckverfahren des HR-5C ist etwas ungewöhnlich. Wäh¬ 
rend des Druckes fährt der Druckkopf am stillstehenden 
Farbband entlang und preßt es gegen das Papier. Dabei wer¬ 
den die angesteuerten Punkte auf dem Druckkopf erwärmt 
und die Farbpartikel bleiben auf dem Papier hängen. Nach 
dem Druck einer Zeile hält der Druckkopf an und es wird mit 
verhältnismäßig lautem Geräusch das Farbband weiterge¬ 
spult. Da der Druck bidirektional abläuft, wird die nächste 
Zeile in der Regel von rechts nach links gedruckt. Beim 
HR-5C können zwei verschiedene Papiersorten verwendet 
werden. Neben dem Druck auf normalem Papier mit Farbband 
(Bild 4) kann der Drucker auch direkt auf Thermopapier 
drucken. Man hat also die Wahl zwischen teurem Farbband 
und billigem Papier oder teurem Thermopapier. 

Der HR-5C ist zum Betrieb mit vier Monozellen vorgese¬ 
hen. Wahlweise kann auch ein Netzgerät, das aber mit 40 
Mark extra bezahlt werden muß, verwendet werden. Diese 
Anschaffung ist aber ratsam, denn bei einer Leistungsauf¬ 
nahme von 6 Watt sind Batterien natürlich schnell erschöpft. 

Sehr viel Fingerfertigkeit verlangt das Einstellen der unter 
der Führungsstange und dem Steuerriemen verborgenen 
DIL-Schalter und das Einlegen der Farbbandkassette. Das 
eingebaute Interface wurde in wesentlichen Punkten an die 
Steuerung der Commodore-Drucker angepaßt. Mit der 
Sekundäradresse 0 erfolgt der Ausdruck im Normalmodus 
(Großbuchstaben und Grafikzeichen). Mit der Sekundär¬ 
adresse 7 erreicht man den Zeichensatz mit großen und klei¬ 
nen Buchstaben. Zu den Fähigkeiten des HR-5C gehörtauch 
der Druck von reversen und vergrößerten Zeichen. Das um¬ 
fangreich Handbuch erleichtert die Einarbeitung in den 
HR-5C. 

Der HR-5C ist mit einem Preis von 298 Mark sicherlich kein 
schlechter Kauf für alle, denen es auf problemlosen Anschluß 
und niedrigen Geräuschpegel ankommt. Drei Dinge sind es 
aber, die den sonst guten Eindruck des HR-5C schmälern: 
Die relativ hohen Unterhaltskosten, die niedrige Druckge¬ 
schwindigkeit (10 bis 30 Zeichen pro Sekunde) und die 
unpraktische Handhabung. 


Die Hausmarke 


Seikosha und Commodore-Drucker sind zwei Worte für den 
gleichen Begriff. Drucker dieser Firma haben den C 64, und 
vorher den VC 20, auf weiten Strecken Ihrer Entwicklung 
begleitet. Seikosha war auch die erste Firma, die außer Com- 
modore selbst, direkt an den seriellen Port des C 16 
anschließbare Drucker anbot. Kein Wunder, denn die Com- 
modore 1525- und MPS 801 -Drucker werden eigentlich von 
Seikosha produziert (nur das Gehäuse stammt von Commo- 
dore). So kommt es auch, daß einige unserer Testkandidaten 
auffällige Ähnlichkeiten besitzen. 

Wir haben den MPS 801 und den Seikosha GP500A mit¬ 
einander verglichen. Die Mechanik beider Drucker ist iden¬ 
tisch und auch beim Gehäuse bestehen kaum Differenzen. 
Der Unterschied liegt im Verborgenen, denn der MPS 801 
wurde mit den gleichen Steuerbefehlen wie der seit langem 
bekannte 1525 (baugleich mit Seikosha GP100VC) ausge¬ 
stattet. Dazu aber später mehr. Betrachten wir zunächst den 
GP500A (Bild 5). 

Mit einer Centronics-Schnittstelle ausgestattet, ist der 
GP500A nicht direkt an den C 16 anschließbar. Es wird des¬ 
halb notwendig, zusätzlich ein Interface anzuschaffen. Ein¬ 
ziger Vorteil dieses Druckers gegenüber dem MPS 801 wäre 
der vorhandene deutsche Zeichensatz. Von dem kann der 
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Bild 5. Selkosha GP500A, der Nachfolger des GP100 


DER SEIKOSHA QP 560fl 
VERUEGT HEBER EINE PARIERBREITE 
VON 21 ZENTIMETERN 
ER BESITZT EINE 5X8 ZEICHENMRTRIX 
UND EINE DRUCKGESCHWINDIGKEIT VON 58 
ZEICHEN PRO SEKUNDE 
DER GP308B IST GRAF I Kl-REH IG 
DORREl_TE SCHR I F"TBREITE 
DURCH CHR*<14> 


(Schriftbild verkleinert) 


Bild 6. Schriftprobe vom MPS 801 und GP500A 



Bild 7. MPS 801 von Commodore 


C 16-Besitzer aber wenig Gebrauch machen, denn das 
Schriftbild (Bild 6) ist eigentlich nicht ausreichend. Der 
GP500A kann keine Unterlängen drucken. Buchstaben wie 
»p« oder »y« werden immer angehoben, was einem harmoni¬ 
schen Textbild nicht gerade zuträglich ist. Wer ihn zum Pro¬ 
grammieren verwenden möchte, stößt recht bald auf die 
Grenzen. Außer einer vergrößerten Schrift und einem Grafik¬ 
modus sind kaum Sonderfunktionen vorhanden. Der 
GP500A kostet 599 Mark. 

Dem GP500A ähnlich ist der GP50A. Er ist ebenfalls ein 
Nadel-Matrixdrucker, bei dem die Papierbreite allerdings hal¬ 
biert wurde. Auch er verfügt nur über eine Centronics- 
Schnittstelle. Das Haupteinsatzgebiet dieses Druckers wäre 
das eines preiswerten (398 Mark) Protokolldruckers beim 
Programmieren. Dazu fehlt ihm aber der Commodore-Zei- 
chensatz. Da er diese Fähigkeit erst zusammen mit einem 
Interface erlangt, geht leider einiges vom Preisvorteil verlo¬ 
ren. Die Handbücher zu den beiden Druckern sind ziemlich 
kurz gehalten und nicht auf das Commodore-Basic 
abgestimmt. 


Die Problemlosen 


Der MPS 801 (Bild 7) ist eine Weiterentwicklung des 1525 
(baugleich mit Seikosha GP100VC, der vom GP500C abge¬ 
löst wurde). Alle Steuerzeichen und Sekundäradressen des 
C 16 entsprechen denen des Druckers. Der Unterschied 
liegt im etwas modernisierten Gehäuse und einer anderen 
Druckmechanik (die des Seikosha GP500A). Das Farbband 
wurde gegenüber dem 1525-Drucker verkleinert und direkt 
auf dem Druckkopf in einer kleinen Kassette untergebracht. 
Durch die neue Mechanik ist der MPS 801 etwas schneller 
als sein Vorgänger geworden, er schafft jetzt 50 Zeichen pro 
Sekunde gegenüber 30 Zeichen pro Sekunde beim 1525. 
Der MPS 801 kostet 298 Mark, bietet aber nur wenig Vorteile 
gegenüber dem 1525, der nur noch auf dem Gebraucht¬ 
markt erhältlich ist. Er eignet sich vor allem als Grafik-Drucker 
oder zum LISTen von Programmen. Für die Textverarbeitung 
gilt das gleiche wie für den Seikosha GP500A. Die Zeichen¬ 
darstellung erreicht leider keine Briefqualität (Bild 6). Als 
Ergänzung zum MPS 801 bietet Commodore auch noch den 
MPS-803-Druckeran, der mit 398 Mark den gleichen techni¬ 
schen Standard bietet, aber teurer ist und weniger bietet. So 
fehlt ihm die Traktorführung, die gegen einen Aufpreis von 
100 Mark zu erhalten ist. 


Der leise Star 


Der Star STX 80 (Bild 8 und 9) ist einer der leistungsfähig¬ 
sten Drucker dieses Testes. Als Thermo-Drucker konstru¬ 
iert, iet or fast nicht zu hören. Der STX 80 schafft im bidirektio¬ 
nalen üi jck bis zu 60 Zeichen pro Sekunde. Alle Buchstaben 
haben Unterlänge und sogar deutsche Umlaute sind vorhan¬ 
den. Schade, daß der STX 80 nur mit Spezialpapier drucken 
kann, denn sonst wäre er der einzige auch zur Textverarbei- 



DIE FUNKTIONEN DES STPR STX &G I 

DRUCKER MIT CBM I NTERFfiCE 

AUSDRUCK IN HEXADEZIMALER FORM 

41 42 43 44 43 46 0D 

Gross und Kleinschreibung 

EIGENE GRAFIKZE1CHEN 

OCCCCOÖCCO 

DOPPELTE BREITE 


ALLE GRAF1K2EICHEN- 


(Schriftbild verkleinert) 


Bild 9. Das Schriftbild des vielseitigen und leisen Star STX 80 
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tung einsetzbare Drucker. Sein Schriftbild erfüllt die Mindest¬ 
anforderungen. Seine wahren Fähigkeiten zeigt der STX 80. 
wenn er mit dem Star-Interface an den C16 angeschlossen 
wird. Bild 9 zeigt die umfassenden Möglichkeiten, die dem 
Programmierer dann zur Verfügung stehen. Die Befehle des 
Interfaces erlauben sogar einwandfreie Listings in Klarschrift 
(Steuerzeichen werden übersetzt). 

Mit einem Preis von 595 Mark ohne Interface bietet der 
STX 80 viel für sein Geld. Er ist der ideale Drucker für alle, die 
gehobene Ansprüche stellen, denen aber Nadel- 
Matrixdrucker zu laut sind. Sein größter Nachteil sind die rela¬ 
tiv hohen Kosten für das Spezialpapier. Das Handbuch für 
den Drucker und das Interface kann als gelungene Produkt¬ 
beschreibung bezeichnet werden. 


Der Präsident 6313 C - 
das preiswerte Schwergewicht 


Mit rund sieben Kilogramm stellt sich der Präsident 6313 C 
als ein Schwergewicht unter den Druckern vor. Aber ist er 
auch ein Meister seiner Klasse? Wir haben es getestet. 

Der Präsident 6313 C (Bild 10) erweckt zunächst den Ein¬ 
druck, als ob er aus einer anderen Welt käme. Tatsächlich ist 
dieser Eindruck gar nicht so falsch, denn er ist ein ostdeut¬ 
sches Produkt, das versucht, mit dem westlichen Standard 
Schritt zu halten. 

Zwar ist ansprechendes Design (er wirkt etwas klobig) 
nicht gerade seine Stärke, aber ein praktisches Gerät wie 
einen Drucker kauft man ja nicht nur als Schmuckstück für die 
Wohnung. Wer möglichst lange etwas von seiner Investition 
haben möchte, wird vielmehr Wert auf andere Attribute legen. 
In dieser Hinsicht hat der Präsident 6313 C allerdings einiges 
zu bieten. Er besitzt ein Chassis aus zwei Millimeter starkem 
Stahlblech, das alle anderen ebenfalls äußerst robust ausge¬ 
führten Teile aufnimmt. Dieser Eindruck wird dann noch 
bestärkt, wenn man den Drucker das erste Mal hochhebt, 
denn im Vergleich zu fernöstlicher Konkurrenz mutet dieses 
Schwergewicht wie ein prähistorischer Dinosaurier an. Wer 
dabei nicht aufpaßt, findet übrigens das Unterteil des 
Druckers recht unsanft auf seinen Zehen wieder, denn das 
Gehäuseoberteil ist erstaunlicherweise nur mit einem Schar¬ 
nier befestigt. Bei diesem Gewicht ist das sicherlich kein 
Genuß. 

Hat man das Auspacken und Aufstellen bis hierher ohne 
Schaden an Leib und Drucker überstanden, wird man neugie¬ 
rig darauf, den leicht zu öffnenden Deckel wie die Kühler¬ 
haube eines Autos nach oben zu klappen und das Innenleben 
des Druckers zu inspizieren. 

Der Motor für den Druckkopf-Transport ist in einem Druck¬ 
gußgehäuse untergebracht, die Druckkopfführung besteht 
aus einem Vierkantprofil und auch sonst findet man Eisen, 
soweit das Auge reicht. 

Der Druckkopf scheint etwas überdimensioniert, was aber 
sicher nicht negativ zu bewerten, sondern eher Ausdruck 
östlichen Technologiestandards ist. 

Die Farbbandkassette hat die Maße 12 x 13 Zentimeter und 
läßt sich vorbildlich einfach einlegen, respektive wechseln. 
Die Finger behalten dabei ihre ursprüngliche Farbe, was letzt¬ 
endlich auch der Kleidung zugute kommt, denn Druckerfarbe 
gehört bekanntlich zu den hartnäckigsten Flecken. 

Die Einstellung der Anschlagstärke ist, wie man nun schon 
fast erwartet, mechanisch einwandfrei, aber nur mit schlan¬ 
ken Fingern problemlos zu verstellen. 

Der Antrieb des Druckwerkes erfolgt mit einem Stahiseil- 
zug, der sogar eine Spannvorrichtung in Form einer einfa¬ 
chen Feder aufweist. 



Bild 10. Der Präsident - robust, preiswert und Epson 
FX80-kompatibel 


Präsident 6313 C 

Schönschrift (NLQ) 

Norealschrift 
Brei t 
Fettschrift 
Doppeldruck 
NLfi+Fettschrift 
NLQ+Doppelschrift 
Br-ei -t /Fe-fc-fc 
und Ti.* 


Bild 11. ö^nriften, Made in DDR - der Präsident 


NLQ 


Bild 12. Die NLQ-Schrift in fünffacher Vergrößerung 

Der Präsident 6313 C verarbeitet sowohl Endlos- als auch 
Rollenpapier und Einzelblätter, die allerdings nicht automa¬ 
tisch eingezogen werden. Letztere werden ähnlich einer 
Schreibmaschine von oben hinter der Gummiwalze einge¬ 
führt und dann ausgerichtet. Der notwendige Papierlöser ist 
unmittelbar am Drehkopf angebracht. Bei Endlos- oder Rol¬ 
lenpapier wird der Einführschlitz an der Rückseite des Präsi¬ 
dent 6313 C benutzt. Sicher ungewöhnlich ist die Anordnung 
der Stachelwalzen auf einer Achse mit der Gummiwalze. Lei¬ 
der ist er so gestaltet, daß beim Abreißen des Papiers an der 
nicht besonders scharfen Abreißkante immer ein Teil des 
nächsten Blattes verlorengeht. 

Geradezu fortschrittlich erscheinen dagegen die 36 Mikro¬ 
schalter, die umübersehbar auf der Vorderseite des geöffne¬ 
ten Präsident 6313 C angebracht sind. Diese Fülle an Schal¬ 
tern löst sofort emsiges Blättern im (ost)deutschen Hand¬ 
buch aus. Dort findet man dann Erstaunliches: Der Präsident 
6313 C ist kompatibel zum Epson-Standard, zum IBM-PC, zu 
Commodöre-Computern und auch zu Schneider-Computern 
soll er passen. Sollte hier etwa doch ein Meister aller Klassen 
des Arbeiter- und Bauernstaates stehen? Es sei an dieser 
Stelle vorweggenommen: Der Präsident 6313 C zeigt, daß 
nicht nur im fernen, sondern auch im nahen Osten gute 
Drucker gebaut werden. Das Schnittstellenproblem ist durch 
das schon vom Epson GX-80 bekannte Modulkonzept gelöst 
worden. An der Rückseite des Druckers wird ein Modul ein- 
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geschoben, das die gesamte Elektronik für die jeweilige 
Schnittstelle enthält. Doch zurück zu den Schaltern. Mit 
ihnen wird zunächst die Wahl unter den verschiedenen 
Modul-Betriebsarten getroffen. Damit erhalten die restlichen 
Schalter völlig unterschiedliche Bedeutungen. Die Wahl aus 
zehn internationalen Schriftsätzen ist möglich, Pica, Elite, 
komprimierte- oder fette Schrift können hier fixiert werden 
(Bild 11). Auch die recht ansprechende NLQ-Schrift hat einen 
eigenen Schalter. Alle Auswahlmöglichkeiten sind auch mit 
dem CHR$-Befehl zu erreichen, außer Kraft zu setzen oder 
zu verändern. Der Präsident 6313 C ist mit 96 Zeichen pro 
Sekunde in der Normalschrift kein Meister der Geschwindig¬ 
keit, aber er nadelt zuverlässig seine Zeichen aufs Papier und 
auch vor der Grafik schreckt er nicht zurück. Im NLQ-Modus 
befindet er sich mit 23 Zeichen pro Sekunde in guter Gesell¬ 
schaft. Die Nadeln hämmern dabei mit einer Kraft aufs Papier, 
die ausreichend für bis zu drei Durchschläge ist. 


Empfehlenswert 


Der Drucker Präsident 6313 C ist ein gutes Beispiel dafür, 
daß preiswerte Computertechnik nicht immer nur aus dem 
fernen Amerika oder Japan kommen muß. Bedenkt man, 
unter welchen Schwierigkeiten dieser Drucker dort entstan¬ 
den sein muß, denn in der DDR gehört schon ein simpler 
EPROM zu den knappen Gütern, kann man die Konstruk¬ 
teure nur beglückwünschen. Mit einem Preis von 798 Mark 
ist er der derzeit preiswerteste Drucker mit NLQ-Fähigkeit, 
bei dem keinerlei Abstriche an der mechanischen Festigkeit 
gemacht wurden. Da der Präsident 6313 C nicht gerade als 
ausgesprochene Schönheit gelten kann, kommt es bei ihm 
viel mehr auf seine elektronischen und mechanischen Fähig¬ 
keiten an - und die stimmen rundum. 

Lohnt sich der Kauf eines 
Low-Cost-Druckers? 


Der Test hat gezeigt, daß bei Low-Cost Druckern der unteren 
Preislagen von 300 bis 700 Mark teilweise große Abstriche 
an Qualität und Leistungsfähigkeit gemacht werden müssen. 
Keines der getesteten Geräte in diesem Bereich erfüllte alle 
an einen Drucker zu stellenden Anforderungen in ausrei¬ 
chenden Maße. Die schwierigste Hürde, die Eignung zur 
Textverarbeitung, haben bis auf eine Ausnahme alle Testkan¬ 
didaten dieser Preisgruppe nicht überwinden können. Ent¬ 
weder reicht die Qualität der Schrift für heutige Ansprüche 
kaum aus, oder die Papierbreite, beziehungsweise Papierart, 
behindert eine sinnvolle Anwendung. Trotzdem haben Low- 
Cost-Drucker ihren Markt, sind sie doch oft die einzig 
erschwinglichen Alternativen. Dennoch sollte jeder überprü¬ 
fen, ob er nicht doch etwas mehr anlegen kann, denn ab zirka 
700 Mark gibt es heute schon Drucker, deren Schriftbild und 
Leistungsfähigkeit ausreichend sind, wie der im Test aufge¬ 
führte »Präsident 6313«. 

Der Wiederverkaufswert eines Druckers sinkt wegen der 
vielen mechanischen Teile schneller als bei einem Computer, 
daher solte man Drucker lieber eine »Nummer größer« kau¬ 
fen, denn mit steigender Programmierfähigkeit wachsen 
auch die Ansprüche hinsichtlich des Druckers. 

(do/aw) 

Info: 

Brother International, Im Rosengarten 14, 6368 Bad Vilbel, Tel. (061 93) 8050; 

Star, Frankfurter Allee 1-3, 6236 Eschborn/Ts., Tel. (06169) 701 80; 

Coinmodore, Lyonerstr. 38, 6000 Frankfurt 71, (069) 66380; 

Epson, Am Seestern 24, 4000 Düsseldorf, Tbl. (0211) 6962110; 

Mlcroscan, (Seikost'a-Drucker), Oberseering 31, 2000 Hamburg 60, Tel. (040) 6320030. 
Horst Grubert, Import + Agentur, 8110 Riegsee, Tel. (08841) 8011 



Markt- 

übersidit: 

Matrixdrucker 

Ständig steigt das Angebot von Matrixdruckern 
für Heimcomputer. Ein Grund, den Druckermarkt 
zu durchleuchten und Ihnen eine Einkaufshilfe zu 
geben. 

I mmer mehr Besitzer von Heimcomputern entscheiden 
sich zum Kauf eines Matrixdruckers. Die Möglichkeiten 
dieser Drucker gehen vom einfachen Listingsdruck bis 
zur Korrespondenz in Schönschrift. Sie müssen also ent¬ 
scheiden, wozu Sie den Drucker verwenden wollen. Zum 
Druck von Listings gibt es inzwischen sehr günstige Geräte, 
deren Schriftbilder durchaus akzeptabel sind. Achten Sie 
darauf, daß der Drucker zu diesem Zweck auch die Grafikzei¬ 
chen des C 16 beherrscht. Der Anschluß des Druckers kann 
auf verschiedene Arten erfolgen. Commodore-Drucker wer¬ 
den über den seriellen Bus des C16 angeschlossen. 
Centronics-kompatible Drucker haben einen parallelen 8 Bit 
breiten Eingang. Ein spezielles Interface ist also zusätzlich 
nötig. Der Preis dafür liegt zwischen 50 und 300 Mark. 

Wollen Sie HiRes-Bilder (HiRes = hochauflösende Grafik) 
des CG-, zu Papier bringen, muß der Drucker grafikfähig sein. 
Das heißt, seine Nadeln müssen einzeln ansteuerbar sein. 

Zum Druck von langen Listings und viel Korrespondenz ist 
eine hohe Druckgeschwindigkeit von Vorteil. 30 Zeichen pro 
Sekunde, das hört sich beim Studieren von Katalogen recht 
schnell an, wird aber schon beim zweiten Ausdruck zur Lang¬ 
weilerei. 

Die Geräuschentwicklung des Druckkopfes sollte nicht 
außer acht gelassen werden. 70 dB(A) um Mitternacht sind 
für Mietwohnungen einfach zu laut. 

Wie Sie sehen, Drucker ist nicht gleich Drucker. Ein hoher 
Qualitätsstandard muß zwar bezahlt werden, aber es gibt 
durchaus erschwingliche Drucker, die über eine hohe Druck¬ 
qualität in den verschiedensten Schriftarten verfügen. 

(do/hm) 


Worauf sollten Sie beim Kauf achten? 

Wenn Sie folgende Punkte beim Kauf eines Druckers berücksichti¬ 
gen oder zumindest In Ihre Überlegung einbeziehen, können Sie 
nicht viel falsch machen. 

Schriftbild: 

* Der Drucker sollte möglichst Unterlängen auch als Unterlängen 

drucken. 

* Auch deutsche Umlaute dürfen für Ihn keine Hürde sein. 

* Der Commodore-Zeichensatz erleichtert das Lesen von Listings. 
Technischer Standard: 

* AnschluBfähig für den C64. 

* Die Steuerung muß über DIL-Schalter und softwaremäBig als 
»PRINT CHR$(n)«-Anwei8ung ausführbar sein. 

* Er sollte Einzelblatt und Endlospapier verarbeiten können. 

* Ein stabiles und handliches Qehäuse wäre wünschenswert. 

* Farbband und DIL-Schalter sollten leicht zugänglich sein. 
Bedienung und Handhabung: 

* Einfaches Einlegen des Papiers. 

* Eine Druckbreite von mindestens 80 Zeichen pro Zeile Ist emp¬ 
fehlenswert. 

* Er sollte Normalpapier verarbeiten, denn Thermopapier ist 
ziemlich teuer. 
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a. 

a) Commodore 

MPS 801 

7 

6x7 

ja 

7 Punkte/ 

1 

50 

a) 1 

min. 

a) 3 

k A. 

0 

13,6x42,5x23,5 

3 

a) ja 

— 

298,- 





Spalte 



b)2 

11,43; 

bl- 





b) ja 












max. 25,4 






c) nein 



b) Commodore 

MPS 803 

7 

6x7 

ja 

k. A. 

k. A. 

60 

a) 1 

max, 25,4 

a) 3 

k. A 

0 

7x33x19 

3 

a) ja 

— 

398,- 







b) 2 


b) k. A 





b) ja 


















c) nein 



a) C. ITOH 

Riteman C 

9 

9x9 

ja 

60, 120 

4/- 

105 bei 10 

a) 1 , 2 

min. 10,4; 

a)2 

<60 

2 

7.3x35.6x26,8 
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a) ja 

— 

998,- 

Electronics 
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max. 25 
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Präsident 
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ja 

k.A. 
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a ) 2 
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k.A 
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a) ja 
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798,- 

bert, Import + 

6313 
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b) k.A. 
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b) 
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ja 

72-144 
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100 

a)1, 2 

min. 10 ; 

a) 4 

58 

2-4 

14,0x38,0x29,5 

1.2.3 

a ) ja 

— 

1007.- 
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100-80 
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c) ja 
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b) Shinwa 





1280 x 8 



b) 1, 2 

max. 25,4 
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8/4 
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a) ja 
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ia 
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— 

599,- 


AVC 





ASCII 


b) 1, 2 

max. 25,4 

b) 139 





b) ja 
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— 
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1. 2. 3. 

a) ja 

— 

748,- 

Electronic 








b) 1, 2 

max. 25,4 

b) 142 


Bytes 


IEEE488 

bl ja 



b) Miiwakf-BMC 















c) Aufpreis 




BX 100 

9 

9x9 

ja 

60, 120, 80, 

8/32 

100 

a) 1, 2, 3 

min. 10 : 

a) 2 

<59 

132 

12,0x40,0x30,0 

1. 2, 3. 
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a) — 
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a) nein 
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HARDWARE 


C16 und Diskette 

Geschwindigkeit ist Trumpf. Deshalb haben wir für Sie 
die entscheidenden Unterschiede zwischen 
Datasette und der schnelleren Diskettenstation 
zusammengestellt 


U m die Effektivität des C 16 zu steigern, ist es notwen¬ 
dig, sich zum Computer und der eventuell schon vor¬ 
handenen Datasette auch noch ein Diskettenlaufwerk 
anzuschaffen. 

Passend zum C16 wäre die 1541 von Commodore, deren 
Preis etwa um 500 Mark liegen dürfte, zuzüglich einiger Dis¬ 
ketten, zwischen 5 und 10 Mark das Stück. Mit dieser 
Zusammenstellung steht dem C 16 die gesamte Programm¬ 
welt auf Diskette zur Verfügung, solange ein RAM von 16 
KByte ausreichend ist. ( Bild 1 ) 

Die Vorteile 


Welche Vorteile bietet nun die Diskette gegenüber einer 
Datasette? 

1. schnellere Zugriffzeiten 

2. wahlfreier Zugriff auf alle Daten 

3. größere Datenmengen 

4. Inhaltsverzeichnis GtSR 

5. Erweitern und-Kürzen von Datenblöcken 

6. direkter Zugriff auf Datenblöcke 

7. Suchroutinen für das Inhaltsverzeichnis 

8. Aufräumroutinen 



Geschwindigkeit ist keine Hexerei 


Die um den Faktor 8 schnellere Busgeschwindigkeit erspart 
dem Benutzer lange Wartezeiten, die er von seiner Datasette 
her gewohnt ist. Somit kann der Benutzer auch längere Pro¬ 
gramme oder größere Datenmengen schnell laden oder spei¬ 
chern. Die Geschwindigkeitssteigerung wird einerseits 
durch die höhere Übertragungsrate (gemessen in Bits pro 
Sekunde) von 1200 gegenüber 300 bit/s bei der Datasette 
erreicht. Des weiteren entfällt bei der Diskettenstation die 
doppelte Aufzeichnung, die zur Sicherheit der einzelnen 
Datenblöcke dient. (Ein Datenblock ist eine 256 Byte lange 
Informationseinheit. Ein Programm oder eine Datei besteht in 
der Regel aus mehreren dieser Datenblöcke). 


Bild 1. Commodore-Floppy-Laufwerk 1541 

onunap »» 1 

tierprogramm nach den Altersangaben realisiert werden. 

Um die gleiche Datenmenge, die auf einer Diskettenseite 
(174848) Byte gespeichert werden können, mit einer Data¬ 
sette auf Kassetten zu speichern, würde man zirka vier Kas¬ 
setten benötigen. Davon abgesehen, benötigen vier Kasset¬ 
ten erheblich mehr Platz als eine »halbe« Diskette. 

= Eine Diskette ist in mehrere Spuren und Sektoren unterteilt, 
auf denen die Daten gespeichert sind (Spuren sind die Spei¬ 
cherzellen, die ähnlich wie auf einer Schallplatte konzen¬ 
trisch um den Mittelpunkt angelegt sind. Diese sind des 
weiteren unterteilt in Blöcke oder Sektoren, in denen jeweils 
256 Byte in Datenblöcken gespeichert sind (Bild 2, Grafik)). 


Direktnnwnhl per Menü 


Wahlfreier Zugriff 


Ein weiterer Vorteil ist der ständige und wahlfreie Zugriff auf 
alle Programme und Dateien, die auf der Diskette gespeichert 
sind. Damit erspart man sich, das Band ständig vom Anfang 
herabsuchen zu müssen, bis das entsprechende Programm 
oder eine Datei gefunden ist. Über eine besondere Befehls¬ 
form (Relative Datei) ist es möglich, auch auf Daten innerhalb 
einer Datei zuzugreifen, gegenüber dem Einlesen einer gan¬ 
zen Datei (serielle Datei) und deren späterer Zerlegung. Zum 
Beispiel kann aus der Datenmenge »Otto Meier 24 Jahre« auf 
das Alter »24« direkt zugegriffen werden. Somit kann ein Sor- 


Auf der Spur 18 befindet sich das Inhaltsverzeichnis, das bei 
einer für die 1541 formatierten Diskette (Formatierung ist die 
Einteilung einer werkfrischen Diskette in die notwendigen 
Spuren und Sektoren vor dem ersten Gebrauch) das soge¬ 
nannte »Directory« beherbergt. In diesem sind die Benen¬ 
nung sowie die Ortsangabe vermerkt, wo die Daten auf der 
Diskette gespeichert sind. Dafür wird zusätzlich noch ver¬ 
merkt, ob es sich um eine Programmdatei ».prg« (lauffähiges 
Programm), serielle Datei ».seq« (gesamte Datenlänge einle¬ 
send) oder relative Datei ».rel« (ausschnittweise lesend) han¬ 
delt. 

Mit Hilfe des Directorys läßt sich eine umfangreiche und 
übersichtliche Programmbibliothek aufbauen, die es ermög¬ 
licht, einen wahlfreien Zugriff auf alle Dateien zu realisieren. 

Ein weiteres Leistungsmerkmal stellt der direkte Zugriff 
dar; er ermöglicht es, gezielt auf bestimmte Spuren und Sek¬ 
toren zuzugreifen, um begrenzte Datenmengen zu lesen, zu 
schreiben oder zu ergänzen (siehe Listing). 
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Bild 2. Technisches Aufzeichnungsformat 


0 ui m staima e» si a i b es» sj=i a i saiamraitaBiie;^* 

l 

"PROGRAMM-BANK" 

PRG 

32 

"BANK.EPSON" 

PRG 

13 

"BANK.SORT" 

PRG 

1 

"BANK.DIR" 

PRG 

2 

"WRITE-PROTECT" 

PRG 

303 

"BANK.REL" 

REU 

13 

"BANK.INDEX" 

SEQ 

1 

"MASTER-SLAVE! 1 

USR 

298 

BLOCKS FREE. 


READY. 



Listing des Dlrectorys 


Reparaturwerkstatt eingebaut 


Gelöschte Dateien lassen sich durch ein entsprechendes 
Programm oder eine spezielle Befehlsfolge wieder voll 
restaurieren (nur die mit scratch gelöschten Dateien), indem 
die Kennung wieder mit ».prg« = Programmdatei, ».seq« = 
Sequentielle Datei, ».rel« = Relative Datei, ».usr« = User 
Datei vervollständigt wird, so daß die Datei wieder voll verar¬ 
beitungsfähig ist. 


Eingebaute Intelligenz 


Mit Hilfe der festeingebauten Firm-Software im sogenannten 
DOS (Disk Operating System) ist die Diskettenstation in der 
Lage, Programme zu überschreiben, zu löschen, zu verlän¬ 
gern, ohne andere Dateien oder Programme zu überschrei¬ 
ben oder zu zerstören, wie es bei der Datasette unvermeid¬ 
bar ist. Dazu schaut das DOS im Directory nach, ob und wo 
noch Platz ist, und legt die Dateien/Programme entspre¬ 
chend dort ab. 


Sortierroutine fest eingebaut 


Mit einem Befehl zum Abfragen des Directorys ist es möglich, 
Dateinamen mit gleichen Anfangsbuchstaben, Anfangssil¬ 
ben oder Wortendungen auflisten zu lassen. Damit läßt sich 
eine Dateiauswahl schnell und komfortabel erstellen. Diese 
DOS-gebundenen Routinen können von einem versierten 
Programmierer in seine Software voll eingebunden werden. 
Ebenso ist die gesamte Diskettenstation auch per Maschi¬ 
nensprache ansprechbar und steuerfähig. Es ist möglich, 

eigene Routinen in das Hauptprogramm einzuketten und mit¬ 
laufen zu lassen, ausgenommen von 2 KByte RAM, die nur 
unter Maschinensprache ansprechbar sind. 

Diskstation mit eingebauter Müllabfuhr 


Nicht mehr gebrauchte Dateien werden vom DOS mit einem 
».del« = gelöscht (scratch) im Directory gekennzeichnet. Das 
DOS behandelt die gelöschten Dateien so, daß beim Erstel¬ 
len eines Inhaltsverzeichnisses dieser Eintrag überlesen 
wird. 

Auf Anforderung führt das DOS eine Validate-Routine 
durch, die alle gelöschten Dateien aus dem Directory ver¬ 
bannt und deren Platz wieder als frei kennzeichnet. 


Die Empfehlung 


Anwender, die häufiger mit einem C 16 arbeiten möchten, 
sollten sic’ unbedingt eine Diskettenstation zulegen. Diejeni¬ 
gen, die mit dem Computer größere Dateimengen verwalten 
wollen, kommen ohne die Möglichkeit des Direktzugriffes 
fast nicht mehr aus, wenn sie nicht mit den umständlichen 
sequentiellen Dateien arbeiten wollen. Des weiteren ersetzt 
die Diskstation den fehlenden RAM-Bereich. Deshalb emp¬ 
fehlen wir, wenn es der Geldbeutel erlaubt, sich eine Disket¬ 
tenstation zum C 16 zuzulegen. 

(do) 
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BÜCHER 


CI 6/VC 20 


ßüdier zum 

C16 und VC20 

Das Buchangebot für den C16 und VC 20 ist leider bei wei¬ 
tem nicht so umfangreich wie beispielsweise beim C 64. Spe¬ 
ziell für den C16 gibt es neben einigen Büchern, die nicht 
mehr Information als das Original-Handbuch enthalten, kaum 
wirklich informationsreiche Literatur. Die beiden hier bespro¬ 
chenen Bücher zum C16 können dem Computer-Neuling zur 
Lektüre empfohlen werden, denn sie enthalten neben einem 
Überblick über die Datenverarbeitung allgemein auch vieles, 
was zum Erlernen von Basic mit dem C16 nützlich ist. 

Zum VC 20 finden Sie eine Auswahl empfehlenswerter 
Bücher, die sich in erster Linie mit fortgeschrittener Program¬ 
mierung und Tips & Tricks beschäftigen. 

Basic-Wegweiser für den 
Commodore 116, Commodore C16 
und Commodore Plus/4 


Dieses Buch mit dem Untertitel »Datenverarbeitung mit Basic 
3.5« zeigt dem Einsteiger in die Welt der Computerprogram¬ 
mierung anschaulich die vielfältigen Einsatzmöglichkeiten 
der Computerserie rund um den C16. Das 300 Seiten umfas¬ 
sende Werk läßt sich in drei große Abschnitte gliedern, die 
vom Umfang her jeweils etwa ein Drittel des Buches bean¬ 
spruchen. S46R C 

Der erste Abschnitt befaßt sich mit den Grundlagen der 
Datenverarbeitung ganz allgemein, leider ohne speziell auf 
den C16 einzugehen. 

Diejenigen Leser, die sich konkret für die Bedienung und 
Programmierung ihres C16 interessieren, aber an den theo¬ 
retischen Grundlagen der Computer-Technologie weniger 
Interesse haben, können die ersten hundert Seiten getrost 
überschlagen, denn erst im zweiten Abschnitt geht es kon¬ 
kret um den C16, das dann allerdings sehr ausführlich und 
dank vieler Beispiele auch gut verständlich. Man erfährt eini¬ 
ges über den allgemeinen Umgang mit seinem Computer und 
über den Aufbau von Basic-Programmen. Alle Befehle des 
Basic 3.5 werden anhand von kurzen Beispielen vorgestellt 
und erläutert. 

Der dritte Abschnitt des Buches enthält schließlich einen 
kompletten Basic-Programmierkurs, speziell abgestimmt auf 
den C16. 

Erfreulicherweise erschöpft sich dieser Kurs nicht mit 
einer nochmaligen Darstellung der Basic-Befehle, sondern 
stelltauch die grundlegenden Methode der Planung und Ent¬ 
wicklung von Software vor. Spezielle Kapitel befassen sich 
hier mit Text- und Tabellenverarbeitung, mit Suchen und Sor¬ 
tieren von Daten, mit maschinennaher Programmierung 
sowie mit Dateiverarbeitung und Grafik-Programmierung. 

Insgesamt ein für den an der anwendungsorientierten 
Basic-Programmierung interessierten C16-Besitzer sehr 
empfehlenswertes Buch. Leiderfindet man in dem gesamten 
300 Seiten umfassenden Werk weder Angaben über die 
Speicherbelegung des C16 (Zero-Page, Betriebssystem 
etc.) noch überhaupt Informationen über das Betriebssystem 
und dessen Nutzung per Maschinensprache oder Basic. 
Auch wer Spiele für seinen Computer entwerfen möchte, ist 
mit diesem Buch leider nicht richtig bedient. 

(Christoph Sauer/ev) 

Info: Dr. Ekkehard Kaior: Basic Wegweiser für den Commodore 116, Commodore 16 und Commo¬ 
dore Plus 4. Vieweg-Verlag, 300 Selten, ISBN 3-528-04337-7, Preis 48 Mark 


Commodore 16 mit 116 


Wer zu denjenigen gehört, die sich einen C16 zugelegt 
haben, wird sich über jedes Buch freuen, das sich mit seinem 
Computer beschäftigt; denn bisher sind nur einige wenige 
Werke über dieses Gerät erschienen. Dieses Buch über den 
»Einsteigercomputer mit Aufsteigerqualitäten« (Untertitel) 
gehört zu den ersten Büchern zum C16. 

Die ersten zwei Kapitel enthalten Allgemeines über Daten¬ 
verarbeitung und »Software von der Stange«, sind also nicht 
auf den C16 ausgerichtet. Erst im dritten und vierten 
Abschnitt stellt man überhaupt fest, daß dies ein C16-Buch 
ist, denn hier geht der Autor auf die Tastaturbedienung, Dis¬ 
kettenbefehle und die Toolkitfunktionen (wie zum Beispiel 
RENUMBER) ein. 

Das neunte Kapitel ist der unbestrittene Glanzpunkt des 
ganzen Buches. Die Beschreibung der einzelnen Grafikbe¬ 
fehle des Basic 3.5 ist sehr gut gelungen. Zahlreiche Bei¬ 
spiele ermöglichen auch dem Neuling die schnelle Einarbei¬ 
tung in die Welt der Computergrafik. Insgesamt ein für den 
Einsteiger durchaus empfehlenswertes Buch, das von den 
allgemeinen Grundlagen der Datenverarbeitung bis zur Gra¬ 
fikprogrammierung mit dem C16 führt. Für den schon mit 
etwas Computerwissen vorbelasteten Umsteiger, der viel¬ 
leicht schon mit einem VC20 programmiert hatte, ist das 
Buch dagegen nur bedingt geeignet: Die Erklärungen bezüg¬ 
lich des Basic 2.0 (also der »alten« Befehle) und des neuen 
3.5 Basic stehen in keinem richtigen Verhältnis zueinander. 
So kann man ruhigen Gewissens behaupten, daß teilweise 
sogar das Handbuch ausführlicher ist. Wirklich gut gelungen 
und empfehlenswert ist dagegen die Beschreibung der 
neuer. Crafik-Befehle. (Christoph Sauer/ev) 

Info: Hans Riedl, Commodore C16 mit 116: Der Einstelgercomputer mit Aufsteigerqualitäten, Kiehl 
Verlag 1985,160 Seiten. ISBN 3-470-80481-8, 32 Mark. 


VC 20 Intern 


Obwohl das Haus Data Becker in den letzten Jahren den 
Computer-Literaturmarkt mit einer Vielzahl von Werken über¬ 
schwemmt hat, gehört eines der ersten zu den besten. 
»VC20 Intern« war zu einer Zeit, als kaum jemand den Com¬ 
modore kannte (beziehungsweise kaufte, weil er zu teuer 
war), das einzige Buch, das den mit seinem Handbuch alleine 
gelassenen VC 20-Besitzer von seinem Informationsdefizit 
befreien konnte. 

Ähnlich einem Systemhandbuch aufgebaut, soll »VC 20 
Intern« durch gute Beschreibung der Hardware und ihrer Pro¬ 
grammierung ein ständiger Begleiter beim Programmieren 
sein. Diesen Anspruch unterstreicht das kommentierte 
ROM-Listing (in hexadezimaler Form) am Ende des Buches. 
Die wichtigsten Kapitel dieses Buches sind: 

- Hardware (CPU, Speicherbelegungspläne, User-Port, 
Expansion-Port) 

- Tonprogrammierung 

- Grafik (Der VIC, Registerbeschreibung, Betriebsarten, 
Schnittstellen zum Prozessor) 

- Ein/Ausgabebausteine (Register-Plan, Ports, Timer, die 
VIAs, Joystickprogrammierung) 

- Der Basic-Interpreter (Erweiterung des Basic, Monitor- 
Programm, wichtige Kernal-Adressen, RS232, serieller 
Bus) 

- ROM-Listing 

Man darf ruhigen Gewissens behaupten: Dieses Standard¬ 
werk zum VC 20 ist für den fortgeschrittenen Programmierer 
nahezu unverzichtbar. 

Info: Angorshausen, BrOckmann, Englisch, VC20 Intern, Data Becker, 1983, 200 Sellen, 

Preis: 39 Mark 
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CI 6/VC 20 


BÜCHER 


VC 20-Anwenderhandbudi 


Ein Buch über den VC 20, das gleichermaßen den Anfänger 
wie den fortgeschrittenen Anwender anspricht. Neben einer 
ausführlichen und leicht verständlichen Einführung in die 
Basic-Programmierung findet der Anfänger hier auch eine 
Fülle von Tips und Tricks, um die Hard- und Softwareeigen¬ 
schaften des VC 20 optimal für eigene Programme zu nutzen. 
Ein ganzes Kapitel beschäftigt sich mit den Möglichkeiten zur 
Steuerung von Spielen mittels Joystick, Paddle oder Tastatur. 
Ein anderer Abschnitt beschreibt Entwurf und Realisierung 
benutzerfreundlicher Inputroutinen. 

Ist man mit den Grundlagen seines VC20 einigermaßen 
vertraut, dann bieten die Kapitel über die Erzeugung von Gra¬ 
fiken und Tönen einen tieferen Einblick in das Innenleben des 
Volkscomputers. Erklärt und anhand von Beispielprogram¬ 
men demonstriert werden die Erzeugung selbstdefinierter 
Zeichen und - als Anwendung hiervon - die Programmierung 
der hochauflösenden Grafik und des Vielfarben-Modus. Sehr 
ausführlich dargestellt ist auch die Realisierung spezieller 
Toneffekte wie Schwebungen, Vibrato oder Tremolo. Bemer¬ 
kenswert ist die recht umfangreiche Behandlung der wichtig¬ 
sten Peripheriegeräte. Der Bogen spannt sich hier vom Farb¬ 
bandwechsel beim VC 1515-Grafikdrucker bis zum Direktzu¬ 
griff auf einzelne Sektoren bei der 1540-Floppy. 

Zahlreiche Tabellen, Diagramme und Fotos tragen einiges 
zum guten Verständnis des dargebotenen Stoffes bei. Ein 
umfangreicher Anhang enthält die Speicherbelegung des 
VC 20, die Funktionen des 6560-Video,-Chips, alle Basic- 
Statements und Funktionen (auch für Diskettenbetrieb) und 
andere Tabellen. 

Nach näheren Informationen über die verschiedenen 
Speicher- und Spracherweiterungsmodule sucht man im 
VC20-Anwenderhandbuch jedoch vergebens. Ebenfalls 
nicht behandelt wird der Zugriff auf die Maschinenebene. 

Alles in allem handelt es sich bei dem Buch jedoch um eine 
recht gute Einführung für den Anfänger, aber auch der fortge¬ 
schrittene Benutzer wird hier wahrscheinlich noch einiges an 
neuem Wissen finden. In jedem Fall Ist das Buch als umfan¬ 
greiches Nachschlagewerk zum VC20-System zu empfeh¬ 
len. (ev) 

Info: John Hellborn / Ran Talboil: VC 20 Anwenderhanäbuch, 388 Seilen, McGraw-HIII Book Com¬ 
pany, Hamburg 1983, ISBN 3-89028-004-8, 32 Mark, 

Das Kassettenbuch 


Das Kassettenbuch von Data Becker beschreibt in aller Aus¬ 
führlichkeit (als Ergänzung zum Commodore-Handbuch) das 
Zusammenarbeiten zwischen Computer und dem Datenre¬ 
corder (Datasette). Da ist zunächst die Beschreibung aller 
Befehle, die mit dem Zugriff des VC 20 oder C64 auf die auf 
Band abgespeicherten Daten und Programme zu tun haben. 
Dies bezieht sich sowohl auf Basic als auch auf die entspre¬ 
chenden Kernalroutinen, die das Arbeiten mit Maschinenpro¬ 
grammen ermöglichen. Natürlich fehlt es auch nicht an guten 
Ratschlägen, die sich auf den Recorder selbst beziehen, wie 
zum Beispiel die Pflege der Andruckrollen oder das Nachju¬ 
stieren des Schreib-/Lesekopfes. Auch eine Mithörkontrolle 
und ein Selbstbau-Kassetteninterface werden, wenn auch 
etwas kurz, beschrieben. 

Der zweite Teil des Buches bezieht sich auf ein Fasttape- 
Programm (ein ähnliches ist im 64’er, Ausgabe 12 erschie¬ 
nen), mit dem es möglich sein soll, Programme und auch 
Daten 10-bis20mal schneller abzuspeichern. Für den VC20 
(und dies betrifft viele Käufer dieses Buches) ist eine Pro¬ 
grammversion abgedruckt, die nur bei einem voll ausgebau¬ 
ten (28 KByte) Speicher funktioniert. Um die Routinen in 


einem andern Speicherbereich laufen zu lassen, müssen sie 
vom Leser (!) umgeschrieben werden. 

Auf diese Routinen aufbauend werden dann einige andere 
Programme wie beispielsweise ein Kassettenverzeichnis 
oder ein Backup-Programm entwickelt. Diese Routinen sind 
alle ausführlich beschrieben und kommentiert. Was den Profi 
jedoch enttäuschen wird, ist das fast gänzliche Fehlen einer 
Beschreibung der im Betriebssystem verankerten Kasset¬ 
tenroutinen. Auch eine in diesem Zusammenhang notwen¬ 
dige Beschreibung der Ein-/Ausgabebausteine fehlt. Dafür 
findet man einen Hinweis auf andere Data Becker-Bücher - 
eine sicherlich nicht sehr befriedigende Situation. 

Auch bezüglich des Aufzeichnungsformats sind die Aus¬ 
führungen des Autors sehr knapp gehalten und obendrein 
scheinbar direkt den »Tips & Tricks«-Handbüchern des glei¬ 
chen Verlages entnommen. 

Wegen der gut lesbaren und informativen Einführung in das 
Arbeiten mit der Datasette, ist das Kassettenbuch mit seinen 
zahlreichen Programmen trotz einiger Schwächen eine ren¬ 
table und empfehlenswerte Anschaffung für den fortge¬ 
schrittenen Einsteiger. 

(Christoph Sauer/ev) 

Into: Dirk Paullssen, Das Cassettenbuch zu C64 und VC20, Data Bockor 1984, 

ISBN 3-89011-030-4, 192 Saiton, 29 Mark. 


Die Floppy 1541 


Hier plaudert ein Profi aus seiner Trickkiste. Denn bei diesem 
Floppy-Buch wurde der Schwerpunkt auf die Themen gelegt, 
bei denen andere aufhören. Und so erfährt man dann in 
lockerem Stil, was in dem Diskettenlaufwerk wirklich abläuft 
und wie man es geschickt manipulieren kann. Kein Blatt vor 
den Mund genommen wird, wenn es um Software- 
Schutzmethoden geht: Vielleicht ein Ärgernis für den einen 
oder anderen Softwarehersteller, aber nützlich für den ambi¬ 
tionierten Anwender, der seine selbstgeschriebene Soft¬ 
ware kopiersicher machen will. Dennoch ist das vorliegende 
Buch nicht nur für Profis geeignet: Wer bisher nur die Befehle 
LOAD und SAVE mit seiner 1541 in Verbindung bringen 
konnte, der erfährt hier, wie man sequentielle, relative und 
Direktzugriffs-Dateien realisieren und ausnutzen kann. 

Einige der weiteren Themen: Fehler im Commodore-DOS 
werden schonungslos offengelegt. Der serielle Bus wird 
unter die Lupe genommen und nach Hypra-Load-Manier 
beschleunigt. Methoden zur Rettung von verlorengegange¬ 
nen Daten und fehlerhaften Blöcken werden vorgestellt. Und 
dies sind längst nicht alle der angesprochenen Bereiche. 

Das Allerbeste an diesem Buch ist allerdings das dokumen¬ 
tierte Listing des 1541-ROMs. Es ist fast zu schön um wahr 
zu sein, wie gründlich die Dokumentation vorgenommen 
wurde, denn sie läßt sich fast schon wie ein zusammenhän¬ 
gender Text lesen. Praktisch jeder einzelne Maschinenbefehl 
wurde mit einem erläuternden Text versehen, weiter gibt es 
zu jeder der rund 400 Einzelroutinen des DOS einen kleinen 
einleitenden Text, dem dann die ausführliche Dokumentation 
neben dem Assembler-Listing folgt. 

Die Dokumentation, die fast die Hälfte des Buches in 
Anspruch nimmt, wird von einer ebenso ausführlichen RAM- 
Belegung ergänzt. Mehrere nützliche Programme und ein 
ausführliches Stichwortverzeichnis runden das äußerst posi¬ 
tive Gesamtbild ab. In Vorbereitung ist eine Diskette mit allen 
abgedruckten und einigen zusätzlichen Programmen. Das 
eindeutige Urteil: Ein Floppy-Buch, wie man es sich besser 
kaum vorstellen kann. Von seiner Qualität her gesehen hat es 
gute Chancen, das Standardwerk über die 1541 zu werden. 

(Boris Schneider/ev) 

Info: Karaten Schramm. Die Floppy 1541, Markt a Technik 1985,430 Seiten, ISBN 3-89090-098-4, 
49 Mark. 
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GRAFIK 


C16 


Schnelle 
Spielegrafik 
beim C16 

Diese Einführung in die »Innereien« des C16 
zeigt, wie schnelle, anspruchsvolle (Spiele-) Grafi¬ 
ken mit einem Zehntel des bisher nötigen Spei¬ 
cherbedarfs realisiert werden können. 

I nzwischen hat es sich unter C16-Besitzern wohl schon 
herumgesprochen, daß es Schwierigkeiten bei der Kom¬ 
bination von Spielprogrammen mit der hochauflösenden 
Grafik gibt. Hier soll nun eine alternative Möglichkeit zur 
Grafikerzeugung aufgezeigt werden, die besonders für die 
Spieleprogrammierung geeignet ist. Die Rede ist von einem 
selbstdefinierten Zeichensatz als Ersatz für Hochauflösung 
und Shapes, der nur 1 KByte Speicher (statt 10 KByte bei 
Hochauflösung) belegt. 

Auch der C16 hält, wie seine Vorgänger, einen Färb- und 
einen Videospeicher für die Bildschirminformationen bereit. 
Dieser liegt im Speicherbereich zwischen $0800 (2048) 
und $0FFF (4095), wobei das erste KByte dem Farbspei- 
cher zugeordnet ist. In der Struktur der einzelnen Bits inner¬ 
halb einer Farbspeicherstelle hat sich jedoch - um wieder die 
anderen beiden Computer (C 64 und VC 20) zum Vergleich 
heranzuziehen - etwas geändert. Die untersten 4 Bit jeder 
Speicherstelle geben nach wie vor die jeweilige Farbe an der 
dazugehörigen Bildschirmspeicherposition wieder. Zusätz¬ 
lich ist es jetzt beim C16 möglich, auch den Helligkeitswert 
jedes Zeichens individuell zu bestimmen. Dieser sogenann¬ 
ten Luminanz sind die Bits 4-6 (also 7 Helligkeitsstufen) 
zugeordnet. Bit 7 entscheidet schließlich noch darüber, ob 
das Zeichen normal oder blinkend dargestellt wird. 

Reverse Zeichen werden im Gegensatz zu VC 20 und C 64 
hardwaremäßig (durch Setzen des Bit 7 in der entsprechen¬ 
den Videospeicherstelle) vom TED erzeugt. Somit benötigt 
der C16 nur noch 2 KByte Speicherplatz für die Zeichen¬ 
informationen im ROM. 

Natürlich ist es auch denkbar, die Daten in den RAM-Spei¬ 
cher zu übertragen, um dort Änderungen am Zeichensatz 
vorzunehmen. Dies geschieht prinzipiell genauso wie beim 
VC 20 oder C 64. Man muß lediglich die neue Adresse des 

Zeichensatzes im Register 14 ($FF13, 65299) vermerken 

und auf RAM-Zugriff schalten (Bit 2 in Register 13). Das ist 
in der Praxis alles viel einfacher, als es im ersten Moment den 
Anschein hat. Dazu möchte ich zunächst eine kurze 
Beschreibung des beim C16 verwendeten »Bankswitching« 
vorausschicken: Der C16 kann hardwaremäßig 128 KByte 
Speicher verwalten: 64 KByte ROM und nocheinmal soviel 
RAM-Speicher. Da die Adreßleitungen nach wie vor aber nur 
für 64 KByte Gesamtkapazität ausgelegt sind, bedient man 
sich eines Tricks - dem Bankswitching. Das bedeutet, es wird 
je nach Bedarf zwischen 64 KByte ROM und RAM hin- und 
hergeschaltet. Dazu ist sowohl die CPU als auch der TED- 
Chip in der Lage. Ob er auf den Zeichensatz im ROM oder auf 
einen im RAM zugreifen soll, entscheidet ein Registerbit 
($FF13 Bit 2). Somit ist genau dieses bei der Umschaltung 
auf den RAM-Zeichensatz zu ändern. 


Zum besseren Verständnis zunächst ein kleines Beispiel. 
Dazu verwenden wir den eingebauten Monitor des C16. Als 
erstes wird der Zeichensatz aus dem ROM - er liegt bei 
Adresse $D000 - mittels des Transferbefehls (T D000 D800 
1000) in den normalen Speicher kopiert. Danach ändern wir, 
damit man die beiden (im Moment noch identischen) Zei¬ 
chensätze unterscheiden kann, das erste Zeichen (es ist der 
»Klammeraffe« @ in Adresse $1000 bis $1007. Dazu kann 
man ihn beispielsweise abwechselnd mit $00 und $FF füllen. 

Als nächstes müssen die Registerinhalte so abgeändert 
werden, daß der TED nur noch auf unseren eigenen Zeichen¬ 
satz zugreift. Dazu wird zunächst in Register 13 ($FF12) Bit 
2 ausgeschaltet, damit von nun an auf RAM zugegriffen wird. 
In unserem Beispiel ersetzt man derzeitigen Wert $C4 durch 
$C0. Danach ist noch die Zugriffsadresse für den Zeichen¬ 
generator von ursprünglich $D000 auf $1000 (der neuen 
Adresse) zu ändern; dazu wird das High-Byte der Zugriffs¬ 
adresse in Bit 4-7 dieses Registers eingetragen (statt $D1 
jetzt also $11). Nun kann man anhand des Klammeraffen- 
Zeichens kontrollieren, ob man den richtigen Zeichensatz vor 
sich hat. 


Ein Zeicheneditor 


Mit Hilfe des Programms »Matrix-Editor« (Listing) kann man 
nun komfortabel am Zeichensatz »herumpfuschen«. Dazu 
kurz noch einige Erläuterungen. Das vorliegende Basic- 
Programm (Listing) wird einfach in den Speicher geladen und 
gestartet. Eine der integrierten Maschinenroutinen ver¬ 
schiebt das ganze Programm automatisch so im Speicher, 



äter 1 

Bit 0-2 

Bitweise vertikale Verschiebung des Bildschirms 

Bit 3 

24 oder 25 Zeilen 

Bit 4 

Bildschirm abschalten 

Multiregister 2 

Bit 0-2 

: Bitweise horizontale Verschiebung des Bildschirms 

Bit 3 

: 38 oder 40 Spalten 

Bit 4 

: Multicolor-Flag 

Bit 6 

: PAL- oder NTSC-Norm 

Bit 7 

: Hardwaremäßige Invertierung ein/aus 

Multiregister 3 

Bit 1 

: Rasterinterrupt 

Bit 2 

: Lichtgriffelinterrupt 

Bit 3 

: Timer 1 interrupt 

Bit 4 

: Timer 2 interrupt 

Bit 6 

: Timer 3 Interrupt 

Bit 7 

: Interrupt-Flag 

Multiregister 4 

Bit 1 

: Rasterinterrupt verhindern 

Bit 2 

: Lichtgriffelinterrupt verhindern 

Bit 3 

: Timer 1 abschalten 

Bit 4 

: Timer 2 abschalten 

Bit 6 

: Timer 3 abschalten 

Multiregister 5 

Bit 0-3 

: Lautstärke 

Bit 4 

: Tongenerator 1 einschalten 

Bit 5 

: Tongenerator 2 einschalten 

Bit 6 

: Tongenerator 2 Rauschen 

Multiregister 6 

Bit 0-1 

: Frequenz von Tongenerator 1 (Bit 8 und 9) 

Bit 2 

: Zeichensatzzugriff (ROM oder RAM) 

Bit 3-7 

: Adresse des Bitmapping-Speichers 

Multiregister 7 

Bit 2-7 

: Adresse des Zeichengenerators 


Tabelle 1. Die Multiregister im TED 
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GRAFIK 


Reg. Nr. 

Adresse 

Funktion 

Erläuterung 

1 

$FF00 

Timer 1 

(Low-Byte) 

2 

SFF01 

Timer 1 

(High-Byte) 

3 

SFF02 

Timer 2 

(Low-Byte) 

4 

SFF03 

Timer 2 

(High-Byte) 

5 

$FF04 

Timer 3 

(Low-Byte) 

6 

SFF05 

Timer 3 

(High-Byte) 

7 

SFF06 

Multiregister 1 


8 

$FF07 

Multiregister 2 


9 

$FF08 

Tastatur 


10 

$FF09 

Multiregister 3 


11 

$FF0A 

Multiregister 4 


12 

$FF0B 

Rasterinterrupt 


13 

$FF0C 

Hardware Cursor Position 

(Bit 8 und 9) 

14 

$FF0D 

Hardware Cursor Position 

(Bit 0 bis 7) 

15 

$FF0E 

Tongenerator 1 


16 

$FF0F 

Tongenerator 2 

(Bit 0-7) 

17 

$FF10 

Tongenerator 2 

(Bit 8 und 9) 

18 

$FF11 

Multiregister 5 


19 

SFF12 

Multiregister 6 


20 

SFF13 

Multiregister 7 


21 

SFF14 

Adresse des Färb- und 
Videospeichers 


22 

$FF15 

Hintergrundfarbe 


23 

$FF16 

Vordergrund 


24 

$FF1 7 

Multicolor 1 


25 

$FF1 8 

Multioolor 2 


26 

$FF19 

Rahmenfarbe 


27 

SFF1A 

Bitmapping-Register 


28 

SFF1B 

Bitmapping-Reglster 


29 

$FF1C 

Abgetastete Rasterzeile 

(Bit 8) 

30 

SFF1D 

Abgetastete Rasterzeile 

(Bit 0-7) 

31 

$FF1 E 

Rasterspalte 


32 

$FF1 F 

Vertikal-Adresse 



r C 


Tabelle 2. Die Register des TED 

daß der zu editierende Zeichensatz ab Adresse $1000 (wo 
sich eben normalerweise das Programm befindet) geladen 
werden kann. 

Mit dem Cursor sucht man sich dann ein zu bearbeitendes 
Zeichen aus, wobei man sich wahlweise die Originalzeichen 
oder den geänderten Zeichensatz zeigen lassen kann. Durch 
einen Druck auf die RETURN-Taste wählt man das entspre¬ 
chende Zeichen an. Dieses wird nun 8-fach vergrößert, damit 
man es - ebenfalls mit dem Cursor - editieren kann. Dabei 
sind die Funktionstasten das wichtigste Hilfsmittel; Mit Fl 
kann ein Punkt gesetzt werden (der Cursor bewegt sich 
dabei eine Position nach rechts), F2 löscht einen Matrixpunkt 
an der Zeigerposition. Mit der dritten Funktionstaste wählt 
man die Copy-Routine an. Damit läßt sich ein zweites Zeichen 
(wahlweise aus den beiden Original-Zeichensätzen oder aus 
dem zu editierenden) selektieren, das in das gerade bearbei¬ 
tete Zeichen kopiert wird. 

Übrigens kann man sich bei eventueller Fehlbedienung 

(egal in welchem Programmteil) mit der Escape(ESC)-Taste 

von dieser Funktion wieder befreien. Auch in das eigentliche 
Auswahlmenü (welches nach dem Programmstart erscheint) 
gelangt man durch Drücken der ESC-Taste. 

Selbstverständlich ist auch das Laden und Speichern des 
Zeichensatzes möglich (diese Funktionen wählt man mit F6 
und F7 an). Ferner ist ein Hilfsschirm, der über die wichtig¬ 
sten Funktionen informiert, mittels der HELP-Taste abrufbar. 
Damit kann man sich noch über einige zusätzliche Funktio¬ 
nen des »Matrix-Editors« informieren, die daher hier nicht im 
einzelnen besprochen werden müssen. 

Nun will man den gespeicherten Zeichensatz natürlich 
auch in seinen eigenen Programmen benutzen. Dabei ist zu 
beachten, daß man den Basic-Anfang (Adresse 44) vor dem 
Laden des Zeichensatzes verschieben muß, denn dort, wo 
normalerweise der Anfang des Basic-Speichers ist (bei 

Oats? 


$1000 beziehungsweise dezimal 4096), soll ja später der 
Zeichensatz abgelegt werden. Die Verschiebung wird mit 
»POKE 44,20 : POKE 20*256,0 : NEW« durch¬ 
geführt. Damit sind die Zeichendaten vor dem Zugriff des 
Basic-Interpreters geschützt und können von diesem nicht 
mehr überschrieben werden. 

Wenn das Programm fertig erstellt ist, kann man Programm 
und Zeichensatz auch gleichzeitig abspeichern. Dazu muß 
zunächst ein kleiner Vorspann zu dem eigentlichen Pro¬ 
gramm hergestellt werden: 

10 POKE 44,20 

20 LOAD "TEIL 2" ,8,1 : REM " ,1,1" bei Datasette 
Dieser wird nun zuerst gespeichert. Als nächstes wird der 
Basic-Anfang wie oben beschrieben verschoben. Dann wird 
der Zeichensatz mit »LOAD "Zeichensatz",8,1« von Disk 
oder Band (»,1,1«) nachgeladen. Schließlich und endlich lädt 
man dann das eigentliche Programm in den Basic-Speicher. 
Somit ist alles komplett. Diese Mischung von Zeichendaten 
und Programm wird nun hinter den zuvor generierten Vor¬ 
spann gespeichert. Dazu gibt man ein: 

»POKE 44,16 : SAVE "TEIL 2"« (»,8« für Diskette). 

Damit kann man nun die mit dem »Matrix-Editor« erzeugten 
Zeichen in eigene Programme übernehmen. 

Statt in hochauflösender Grafik mit Shapes zu arbeiten, 
kann man mit dieser Methode im normalen Textmodus blei¬ 
ben und dennoch beliebige Grafiken auf den Bildschirm brin¬ 
gen, entweder mit PRINT-Anweisungen oder über POKEs in 
den Bildschirmspeicher. Das bringt nicht nur einen 
Geschwindigkeitsvorteil, sondern schont vor allem den 
begrenzten C16-Speicher. Mit über 11000 freien Bytes 
sollte sich schon einiges anfangen lassen. 

(Christoph Sauer/ev) 


10 PRINT"{CLR>"; 

20 CHAR1,6,2,"{RVSON,FLASHQFF >BITTE WART 
EN !•!!!!" 

30 POKE56,62:POKE55,223s CLR 
40 TRAP 2570 
50 PRINTCHR*( 8 ) 

60 ZA=4096:E*=CHR*(27) 

70 FORT=1TOB:KEYT,CHR*(T+34)«NEXT 
B0 IFPEEK(44)=20THEN140 
90 FORT"16096TQ16301 
100 READD*:D=DEC< D* > : S=S+D 
110 POKET, DiNEXT 

120 IFS<>351B2THENPRINT"CCLR,FLASHON>PRU 
EFSUMMENFEHLER ! '. {FLASHOFF > " s END 
130 SYS 16278:RUN 
140 W=0:X1=0 

150 POKE16174,109:POKE16271,64:SYS16128 
160 COLOR 0,2,6:COLOR 4,5,3:PRINT"{CLR,P 
URPLE,RVSON >"; 

170 FORT =1TO40:PRINT"<5SPACE>" 5 iNEXT 
180 CHAR 1,5,2,"{WHITE,2SPACE>M A T R I 
X{4SPACEJE DITO R<2SPACE>” 

190 CHAR 1,10,4,“{BLACK»<C) 19B5 BY C. S 
AUER{RVOFF J” 

200 SYS 16096 

210 CHAR1,0,14,"DARSTELLUNG:" 

220 CHAR1,0,16,"{RVSON >F1{RVOFF,3SPACE >1 
STANDARD{3SPACE> ZEICHENSATZ" 

230 PRINTsPRINT"{RVSON,FLASHONJF2{FLASHO 
FF,RVOFF,3SPACEJ: UMDEFINIERTER ZEICHENS 
ATZ" 

240 PRINT"{RVSON>F3{RVOFF,3SPACEJ 5 ZEICH 
EN ZUR BEARBEITUNG LADEN" 

Llsting »Matrix-Editor« für den C16. 

Bitte beachten Sie die Eingabehinweise auf Seite 76. 
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250 CHAR1,0,21,"{RVSON >CLEAR{RVOFF >":PRI 


:P0KEZA+C*8+T,255:NEXT:GOTO3B0 

NT:PRINT"{RVSONJHOME{SPACE,RVOFF>: ZEICH 


740 IFA*="("THEN1580 

ENSATZ INITIALISIEREN" 


750 IFA*= " )"THEN1720 

260 X=SX:Y=SY 


760 IFA*="*”THEN1370 

270 GOSUB2670 


770 FA=0 

280 IFA*= " 7." THENFA= 1: SYS16122: GOTO 1590 


780 GOSUB2B00 

290 IFA*="{CLR>"THEN320 


790 IFFA=0THEN820 

300 IFA*=CHR*(13)THENC=W:PQKE2368+X1,113 


800 IF A*="{HOME>"THENX=0:Y=0:GQTO820 

:SX=X:SY=Ys GDTO370 


810 GOTO650 

310 GOTO270 


820 IFD=1THEND=0:X=0:Y=0:AX=0:AY“0:Z=PEE 

320 COLGR 0,7,1:COLOR 1,7,1 


K(3157) 

330 CHAR1,0,21,"{WHITE>CLEAR" 


830 IFX>7THENX=0:Y=Y+40 

340 CHAR1,0,22,"HOME :{SPACE,RVSON,FLASH 


840 IFX<0THENX=7:Y=Y-40 

0N,5SPACE>SIND SIE SICHER ?{5SPACE,RVOFF 


850 IFY>280THENY=0 

,FLASHOFF>" 


860 IFY<0THENY=280 

350 GETKEYA*!IFA*="J"THENSYS16349 


870 P0KE3157+AX+AY,Z 

360 GOTO160 


880 Z=PEEK(3157+X+Y) 

370 GOSUB2850:P0KE6529B,196 


890 IFZ=81THENP0KE3157+X+Y,209:G0T0910 

380 FQRT=0TQ7 


900 PQKE3157+X+Y,190 

390 BE(T)=PEEK(ZA+T+C*8) 


910 AX=X:AY=Y 

400 BN=BE<T):GQSUB950 


920 IFP=0THENGOSUB1020:X-X-l:Z=32:GOTOB2 

410 NEXT 


0 

420 COLOR 0,2,6:COLOR 4,4,5:PRINT"{CLR>" 


930 IFP“1THENGQSUB1020:X=X+1:Z=81:G0T082 

Dl 

430 PRINT"{WHITE,4RIGHTJ•F+V+V+V+V+" 


940 GOTO650 

440 PRINT"{4RIGHT>T{GREEN >76543210{WHITE 


950 BO*(T)="" 

>T" 


960 F0RB=1T08 

450 FORT“1TOB 


970 BN=BN/2 

460 PRINT""T"{LEFT>. TTBLACK>";BO*(T-1); 


980 IF BN= I NT (BN) THENBO* (T )•= " "+BO$(T):E 

"{WHITEJT ";BE(T—1) 


LSEBO*(T)="fi"+BO*(T) 

470 NEXT 


990 BN=INT(BN) 

480 PR I NT " {4RIGHT > 


1000 NEXT 

490 CHAR 1,22,6,"{RVSON,BLUEJSTANDARD ZE 


1010 RETURN 

ICHEN" 


1020 T=Y/40 

500 CHAR 1,21,11,"{RVSQNJSELBSTDEF. ZEIC 


103w ON P+lGOTO1040,1050 

HEN" 


1040 BE(T)=BE(T)AND255—2T(7—X):GOTO1060 

510 POKE16271,106:P0KE16174,123:SYS 1612 


1050 BE(T)=BE(T)0R2t(7—X) 

8 :REM RASTERINTERRUPT 


1060 BN=BE(T):GOSUB950 

520 P0KE239S,60:PQKE3422,C 


1070 CHAR 1,0,T+2,"":P=2 

530 POKE2598,60:PQKE3622,C 


1080 PRINT"{WHITE>"T+1"{LEFT>.{RIGHT>T{B 

540 CHAR 1,21,11,"{RVSONJSELBSTDEF. ZEIC 


LACK >"BO*(T)"{WHITE >?{6SPACE,5LEFT>"BE(T 

HEN" 


) 

550 PRINTER"M" 


1090 P0KEZA+C*8+T,BE(T) 

560 CHAR 1 .0.17. 11 {LIG. BLUE > 


1100 RETURN 

**J^**J&*****J&*****#*.***X" 


1110 POKE16174,109:POKE16271,64:SYS16128 

370 PRINT"—{4SPACEJF UNKTIONSTA 


1120 COLOR 0,7,5:COLOR 4,13,2:PRINT"{CLR 

S T E N{5SPACE> = " 


»PURPLE,RVSON>"; 

580 PRINT" V****Mt*M*Jt****j&jMV»ju^***jt*. 


1130 PRINT"{WHITE,RVSON,4SPACEJZ EICH 

*.*>>>.*_*_*Jfcg" 


E N{5SPACEJK 0 P I E R E N{3SPACE,RVOFF 

590 PRINT" — {RVSON >F1{RVQFF >: PUNKT SETZE 


>" 

N{3SPACE > = {RVSON >F4{RVQFF>: DARSTELLUNG{ 


1140 SYS16096 

3SPACE>=;" 


1150 CHAR1,0,14,"KOPIEREN VON:" 

600 PRINT" —{RVSON >F2{RVOFF >: PUNKT LOESC 


1160 CHAR1,0,16,"{RVSON >F1{RVOFF,3SPACE> 

HEN ^{RVS0N>F5{RVOFF>: ENDE{10SPACE> = " 


: ST ANDARD{3SPACE > ZEICHENSATZ" 

610 PRINT" = {RVBON>F3{RVOFF>: KQPIEREN{7S 


1170 PRINT:PRINT"{RVSON,FLASHON >F2{FLASH 

PACE>zi{RVS0N>F6 {RVOFFJ i Z. SATZ {2SPACEJLA 


OFF,RVOFF,3SPACEJ: UMDEFINIERTER ZEICHEN 

DEN -" 


SATZ" 

620 PRINT"ciTRVSON>HE {RVOFF >: HILFSCHIRM { 


11B0 PRINT"{RVSON>F3{RVOFF,3SPACEJ:" 

5SPACE>-{RVS0N>F7{RVOFFJ: ZS. SPEICHERN 


1190 FL=2:ZS=0 

_ll 


1200 GOSUB2670 

630 PRINT" 


1210 IFFL“1THENCHAR1,0,18,"{RVS0NJF3{RVO 

*********R"; 


FF,3SPACE>: UMSCHALTUNG GROSS/KLEIN" 

640 P=2:D=1 


1220 IFFL=2THENCHAR1,0,18,"{RVSON>F3{RVO 

650 GETKEY A* 


FF >":FORT=1T035:PRINT" ";:NEXT 

660 IFA*=CHR*(27)THEN150 


1230 IFA*=CHR*(13)THENP0KE2368+X1,113:BO 

670 IFA*="8<"THEN1990 


SUB2850:GOTO1280 

680 IFA*=.THEN2110 


1240 IFA*=CHR*(27)THEN420 

690 1FA*="#"THENP“1:GOTOB20 


1250 I FA*= " •/." ANDFL= 1 ANDZS=0THENPR INTCHR* 

700 IFA*="*"THENP=0:GOTO820 


(14):ZS=4:GOTO1200:ELSE1200 

710 IFA*="7."THENU10 


1260 IFA*= " y." ANDFL“ 1 ANDZS=4THENPR INTCHR* 

720 IFA*="{CLR>"THENFORT=0TO7:GOSUB2B50: 


(142):ZS=0 

PQKEZA+C*8+T,0:NEXT:GOTO3B0 


1270 GOTO1200 

730 IFA*="{INST>"THENFORT=0TQ7:GOSUB2850 


1280 IFFL=1THENAD=20B+ZS:GOTO1300 
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1290 AD=ZA/256 


FF>AND ODER{SPACE,FLASHON>F{FLASHOFF >LOP 

1300 W1=W*8:C1=C*B:W2=INT(Wl/256):C2=INT 


PY ?{RVOFF,2SPACE}"; 

(Cl/256) 


1750 GETKEYA* 

1310 W1=W1-W2*256:POKE16115,AD+W2 


1760 IF A*="B"THENGN=1:PRINT"BAND“:GOTO1 

1320 C1=C1-C2*256:POKE16118,ZA/256+C2 


790 

1330 POKE16114,W1:P0KE16117,C1 


1770 IF A*="F"THENGN=BSPRINT"FLOPPY":GOT 

1340 SYS16111s PRINTCHR*(142) 


01790 

1350 6OTO380 


1780 IF A*=CHR*(27)THEN420ELSE1750 

1360 PRINT"{CLR,BLUE,SPACE,4RIGHT> ZEICHE 


1790 GOSUB1830 

NSATZ:":FF «6 


1800 POKE157,0:POKE158,20:POKE178,0:POKE 

1370 SYS16122 


179,16:SYS61857 

13B0 PRINT M {CLR,RVSON,5SPACE >H C2SPACE JI{ 


1810 GOSUB1930 

2SPACE>L {2SPACE1F C2SPACEJS{2SPACE >S {2SPA 


1820 IFFF-1THENRETURN s ELSEGOTO420 

CE JC C2SPACE >HC2SPACE11{2SPACE >R12SPACE}M 


1830 IFGN-1THENINPUT"{2D0WN,RVSON >FILENA 

{4SPACE}” 


ME{RVOFF}"j F*: GOTO1860 

1390 PRINT“ C2D0WN,3SPACE}äfltCTRL-e>'5tRIB 


1840 INPUT"{2D0WN,RVSON>FILENAME{RVOFF > 

HT}AtWHITE,LIG.GREEN >" THENFN 


(?=DIR> ";F* 

EWA IT 


1850 IFF*=" ■7 "THENPRINT"{CLR >":DIRECTORYl 

1410 PRINT" NHU11VK21 SPACE>iUUUU 8 UJUUUtJ.T 


GOTO1830 

CTRL-@>Y{GREEN,FB,WHITE,LIG.GREEN>" RCLR 


1860 IFLEN(A*)>16THENF*=LEFT*(F*,16) 

TAB(MIDIGOTAB(END ODER SWAIT DWAIT 0 


1870 P0KE174,GN:POKE171,LEN(F*) 

DER PUDEF "S*" PUDEF 


1880 F0RT=1T0LEN(F*) 

1430 PRINT" {3SPACEJWr?{23SPACE>JJüüüüütJOt* 


1890 POKE1630+T,ASC(MID*(F*,T,1)) 

ÄJ5.{CTRL-@>7 CGREEN, SHFT-SPCE , WH I TE, LIG. GR 


1900 NEXT 

EEN}" RCLREND XWAIT 


1910 P0KE175,95:P0KE176,6 

1450 PRINT"{2D0WN,RVSON>ESC<RVOFF>: RUEC 


1920 RETURN 

KSPRUNG IN EINE HOEHERE EBENE" 


1930 IF GN< >BTHENRETURN 

1460 PRINT"{DOWN,RVSON>CLEAR{RVOFF,SPACE 


1940 IF DS=0THENRETURN 

,RVSON}SHIFT{RVOFF}: ZEICHEN(SATZ) LOESC 


1950 PRINT"{2D0WN,FLASHONJFLOPPYFEHLER:{ 

HEN" 


FLASHOFF VDS* 

1470 PRINT"{RVSON >HQME{SPACE,RVOFF, 6 SPAC 


1960 PRINT"{DOWN,RVSON}WEITER MIT TASTE! 

E>: CURSOR IN LINKE OBERE ECKE" 


RVOFF}" 

1480 PRINT"{DOWN,RVSON>INS{RVOFFJ: ZEICH 


1970 GETKEY A* 

EN FUELLEN" 


1930 RETURN 

1490 PRINT"{DOWN,RVSON>F3{RVOFF>: EIN GE 

Of 

199m j RI NT"{CLR,RVSON,3SPACE}D A R S T E 

WAEHLTES ZEICHEN WIRD KOPIERT" 


LLUNGSMODU S{4SPACE}" 

1500 PRINT"{RVS0NJF4{RVOFFJ: SCHREIBMODU 


2000 FOR T=4T035: CHAR1 ,T,5, "3t" s NEXT 

S (AUSPROBIEREN DES ZS.)" 


2010 FOR T=6TO19:CHAR1,4,T," = {30SPACE> = " 

1510 PRINT"{RVSONJF5{RVOFF>: BEENDEN DES 


sNEXT 

PROGRAMMS" 


2020 FOR T=4T035: CHAR1, T ,20 , " : NEXT 

1520 PRINT"{RVSON >F 6 {RVOFF >: ZEICHENSATZ 


2030 CHAR1,4,5,"ü":CHAR1,35,5,"1" 

VON BAND ODER DISK LADEN" 


2040 CHAR 1,4,20, " &" : CHAR 1,35,20," 

1530 PRINT"{RVSON>F7{RVOFF>: ZEICHENSATZ 


2050 CHAR1,10,23,"ENDE MIT{SPACE,RVSON}R 

ABSPEICHERN" 


ETURN{RVOFF}" 

1540 PRINT"{DOWN,11SPACE,RVSONJZURUECK M 


2060 POKE2021,19:POKE2022,6:POKE2023,5:P 

IT{SPACE,FLASHON >ESC{FLASHOFF,RVOFF >"; 


OKE2024,34 

1550 GETKEYA* 


2070 SYS16122:P0KE65298,PEEK(65298)AND25 

1560 IFA*< >CHR*(27) THEN1550 


1 

1570 GOTO420 


2080 OPEN1,0SPRINT"{HOME }"5 

1580 SYS16122 


2090 INPUT#1,A* 

1590 PRINT"{CLR,RVSON,3SPACE1Z EICHE 


2100 PRINT"{2H0ME}":CLOSE1:GOTO420 

N S A T Z{4SPACEJL ADE N{3SPACE>" 


2110 PRINT"{CLR,RVSON,12SPACE}E{3SPACE}N 

1600 PRINT"(3DQWN,RVSON,FLASHON}B{FLASHO 


{3SPACE}D{3SPACE}E{15SPACE}":FF-0 

FF>AND ODER{SPACE,FLASHON}F{FLASHOFF >LOP 


2120 PRINT"{3DOWN}WOLLEN SIE DEN ZEICHEN 

PY ?{RVOFF,2SPACE}"; 


S. ABSAVEN ? "j 

1610 GETKEYA* 


2130 GETKEYA* 

1620 IF A$=”B"THENGN=1;PRINT"BAND":GOTO1 


2140 IF A*-CHR*(27)THEN420 

650 


2150 IF A*="J“THENPRINT"J A":FF—1:GOSUB17 

1630 IF A*="F"THENQN= 8 SPRINT"FLOPPY":BOT 


20 

01650 


2160 IF A*< >"N"THEN2130 

1640 IF A*«CHR*(27)THEN420:ELSE1610 


2170 P0KE65298,PEEK(65298)0R4:SYS16122 

1650 GOSUB 1830 


2180 COLOR 0,7,5:COLOR 4,13,2 

1660 PRINT"{2D0WN,RVSON,FLASHONJSIND SIE 


2190 PRINTE*"L{CLR,BLACK}" 

SICHER ?{FLASHOFF,RVOFF>“ 


2200 END 

1670 BETKEY A*:IFA*<>"J"THEN420 


2210 DATA A2,7F,BA,9D,40,0D,A9,0A 

1680 LOAD F*,GN,1 


2220 DATA 9D,40,09,CA,10,F4,60,A2 

1690 GOSUB1930 


2230 DATA 07,BD,34,12,9D,00,10,CA 

1700 IFFA=1THENFA=0:GOTO150 


2240 DATA 10,F7,78,20,CE,F2,58,60 

1710 GQTO420 


2250 DATA 78,A9,0D,8D,14,03,A9,3F 

1720 SYS16122 


2260 DATA 8D,15,03,58,60,AD,09,FF 

1730 PRINT"{CLR,RVSONJZ EICHENSA 


2270 DATA 29,02,F0,3D,AD,IC,FF,29 

T Z{2SPACEJS P E I C H E R N" 

1740 PRINT"{3DOWN,RVSON,FLASHON>B{FLASHO 


Listing «Matrix-Editor« für den C16 (Fortsetzung) 
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2280 DATA 01,D0,2C,AD,1D,FF,C9,91 
2290 DATA B0,19,A9,C0,8D,12,FF,BD 
2300 DATA 19,FF,AD,ID,FF,C9,93,90 
2310 DATA F9,A9,C4,8D,12,FF,8D,19 
2320 DATA FF,D0,0C,C9,B1,90,00,A9 
2330 DATA C0,8D,12,FF,BD,19,FF,AD 
2340 DATA 09,FF,29,02,F0,03,20,60 
2350 DATA CE,2C,DB,07,10,0E,AD,01 
2360 DATA FD,8D,D4,07,10,06,20,95 
2370 DATA EA,20,5B,EA,20,E4,E3,AD 
2380 DATA 09,FF,29,02,F0,25,8D,09 
2390 DATA FF,2C,0B,FF,A9,C3,50,18 
2400 DATA 20,BF,CF,20,CD,CE,A5,FB 
2410 DATA 48,A9,00,85,FB,08,58,20 
2420 DATA 11,DB,28,68,85,FA,A9,62 
2430 DATA 8D,0B,FF,4C,BE,FC,A6,2D 
2440 DATA 86,5A,A4,2E,B4,5B,20,D0 
2450 DATA 3F,86,58,86,2D,84,59,84 
2460 DATA 2E,A6,2B,B6,5F,A4,2C,B4 
2470 DATA 60,20,D0,3F,86,2B,86,A6 
2480 DATA 04,2C,84,A7,20,C0,8B,20 
2490 DATA 1B,8B,A5,A6,D0,02,C6,A7 
2500 DATA C6,A6,A9,00,A8,91,A6,60 
2510 DATA 84,AB,18,8A,69,00,AA,A5 
2520 DATA A8,69,04,A8,60,A9,00,85 
2530 DATA A6,85,A8,A9,D0,85,A7,A9 
2540 DATA 10,85,A9,A2,04,A0,00,B1 
2550 DATA A6,91,A8,C8,D0,F9,E6,A7 
2560 DATA E6,A9,CA,D0,F0,60 
2570 IF ER-4THENRESUMENEXT 

2580 IF ER=35THEN2110 

2590 IF ER=30THEN2110 

2600 IF ER—5THENPRINT"C2DQWN,FLASHGN>FLQ 

PPY EINSCHALTEN !!!":FORT=1TO1000: IMEXT: R 

ESUME1700 6-tER 

2610 PRINTERR*(ER)" IN "EL 

2620 GOTO 2110 

2630 X=SX:Y=SY 

2640 POKE2368+X1,10 

2650 POKE2368+W,241:X1=W 

2660 RETURN 

2670 P0KE2368+X1,10 

2680 POKE2368+W,241:X1=W 

2690 GETKEYA* 

2700 GOSUB2B00 

2710 IFX >40THENX=0:Y—Y+40 

2720 IFX<0THENX=40s Y=Y—40 

2730 IFY >120THENY=120 

2740 IFY<0THENY=0 

2750 W=Y+X 

2760 IF W>127THENW—127 

2770 IFA$=”#”THENSYS16122:CHAR1,0,16,"IR 

VSON,FLASHON >F1CFLASHOFF,RVOFF >":PR X NT t P 

RINT"IRVSON JF2{RVOFF >":FL=1 

2780 IFA*="*"THENSYS16128:CHAR1,0,16,"{R 

VSON >F1{RVOFF J■:PRINT:PRINT"{RVSON,FLASH 

ON >F2{FLASHOFF,RVOFF >":FL=2 

2790 RETURN 

2800 IFA*="{DOWNJ"ORA*="X"THENY-Y+40:RET 
URN 

2810 IFA*="{RIGHT >"ORA*-"D"THENX-X+1:RET 
URN 

2820 IFA*-"{UP >"ORA*—"E"THENY—Y—40:RETUR 
N 

2830 IFA*=" {LEFT} ,, ORA*= ,, S"THENX—X—1: RETU 
RN 

2840 FA=0:RETURN 

2850 CHAR1,32,4,"{RVSON,FLASHON>WORKING{ 
RVOFF,FLASHOFF}" 

2860 RETURN 

6G4'w 

Listing »Matrix-Editor« für den C16 (Schluß) 


Grafikbeispiel 

für den Clo 

Unsere »Blockgrafik« ist ein Beispiel dafür, daß 
Sie auch mit dem vorhandenen Zeichensatz fan¬ 
tastische Bilder erzeugen können. 

E s muß nicht immer HiRes sein. Gerade beim C16 ist die 
Verwendung der hochauflösenden Grafik (HiRes) kri¬ 
tisch, weil ein erheblicher Speicherbereich für die Pro¬ 
grammierung verloren geht. Diese Blockgrafik (Bild) zeigt, 
wie es auch anders geht. Das untenstehende Listing ist das 
dazugehörige Basic-Programm. (Jörg Gerjets/kn) 


10 

REM 

********************************* 

15 

REM 

** 


** 

20 

REM 

## 

•BLOCKGRAPHIK - 

** 

25 

REM 

** 


*# 

30 

REM 




35 

REM 

** 


** 

40 

REM 

** 

FUER C 16/116 & C 64 

** 

45 

REM 

** 


** 

50 

REM 




55 

REM 

** 

JOERG GERJETS / 29B0 NORDEN 

** 

60 

REM 

** 


** 

65 

REM 

** 

<C> BY DPS MCMLXXXV 

** 

70 

REM 

********#•****■*****#•***•#•***###■*4 


75 

REM 

** 

BEI C 16/116 DURCH DRUECKEN 

** 

80 

REM 

** 

DER TASTEN 

** 

85 

REM 

** 

S< '*• BEWEGUNG 

** 

90 

REM 

** 

CESC] = ENDE 

** 

95 

REM 

********************************* 


100 PR tNT"{2HDME>“:PRINTCHRS<142):C0L0R4,1: CDLDR0, 


110 PRINT" {CLR>"j 

120 PRINT"{BLACK,RVSQN,4SPACE,BLUEJF 2 3 4{BLACK,2 
SPACE>#########{4SPACE1T TT TCSPACE,BLUE,RVSQN >2 
4ISPACE,BLACK,2SPACE>" 

130 PRINT“CRVSON,4SPACE,BLUE >U «2SPACE,BROWN,3SPACE 
, BLUE, SPACE , RVOFF, CVAN > U-C-CCI CBLACK } .UJ.C.C.CC I CLIG ■ BLU 
ElYCBLACKlSCRVSONlJAWSTm. {BLUE, RVSONJ0 {BROWN }£{S 
PACE,BLUE >6{BLACK,2SPACE>" 

140 PRINT"{RVS0N,4SPACE,BLUE>E 1{BROWN }£{SPACE,BL 
UE>5{RVOFF,CYAN}£CREDläCSPACE,GREEN}0{CYANläCBLACK 

1BIRVSON,ORANGE }M-3{SPACE,RVOFF,BLACKJIKBROWNJUL{ 
BLACK, RVSON >’3±±±±±±U{BLUE, RVSON, SPACE , BROWN 1HCSPA 
CE , BLUE, SPACE , BLACK , 2SP ACE1" 

150 PRINT"CRVSON,4SPACE,BLUE>L(2SPACE,BROWN,2SPACE 
} II {BLUE, SPACE, RVOFF, CYAN>fi{SPACE, GREEN IfiCYELLOW >£{ 
CYAN>JCBLACK} .J.CJJ.CJU1. {BR0WN>1U> {BLACK, RVSON 
{BLUE,RVSON >HT{BROWN,2SPACE,BLUE18{BLACK,2SPACE>" 
160 PRINT"{RVSON,4SPACE,BLUE,2SPACEJ0 7 6{RV0FF,CY 
AN > 3-C.C_CK CRVSON, RED! »30.37 {RVOFF }» {BROWN } 2JS. CBL ACK , R 
VSON } £Trerm!.{BLUE , RVSON, 2SPACE J10 {SPACE, BLACK , 2SP 
ACE>" 

170 PRINT" J&CORANBE}TJ CRVSON}YYYYYYYYYYYYYYYYYYYYYYY 
YYYYYYYYYYYYYCRVOFF >T CBLACK>*" 

180 PRINT"CORANGE,SPACE,RVSON,SPACE,RVOFF,17SPACE, 
RVSON,2SPACE.RVOFF,4SPACE,BLACK,11SPACE >.CSPACE,OR 
ANGE,RVSON V 

190 PRINT" R{RVSON,SPACE,RVOFF,5SPACE,BLACK,RVSON >5 
{RVOFF,ORANBE,11SPACE,RVSON,2SPACE,RVOFF,2SPACE,BL 
ACK , 5SPACE J , {9SPACE , ORANGE , RVSON, SPACE , RVOFF >T?" 

200 PRINT" r{RVSON,SPACE,RVOFF,4SPACE,BLACK,SPACE,R 
VSON,2SPACE >Y7T »{RVOFF,ORANGE,5SPACE,RVSON,2SPACE 
,RVOFF,13SPACE,ORANGE}& C3SPACE,ORANBE,RVSON,SPACE, 
RVOFF>T" 

210 PRINT" {RVSONCSPACE,RVOFF,6SPACE,BLACKJYCRVSO 

N5 P CRVOFF >U {RVSQNJPCRVQFF >UU CORANGE,5SPACE,RVSON,2 
SPACE,RVOFF,13SPACE,RED,RVSON}»{RVOFF,3SPACE,DRANG 
E,RVSON,SPACE,RVOFF}»" 

220 PRINT“{RVSON}»CSPACE,RVOFF,17SPACE,RVSON,2SPAC 
E,RVOFF,4SPACE,BLACK JÄCBSPACE,RED,RVSON >»{RVOFF,3S 
PACE,ORANGE,RVSON,SPACE,RVOFF}»" 

230 PRINT"»{RVSON,SPACE,RVOFF,13SPACE,BLACK}@{ORAN 
GE , 3SP ACE , RVSON,2SP ACE,RVOFF,3SPACE, BLACK , RVSON } Y { 
SPACE,RVOFF,8SPACE,RED,RVSON}?{RVOFF,3SPACE,ORANBE 
,RVSON,SPACE,RVOFF}»" 

Listing. Basic-Programm zur Blockgrafik. 

Bitte beachten Sie die Eingabehinweise auf Seite 76. 
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240 PRINT "«{RVSON , SPACE , RVQFF , BROWN >BWP0<2SPACE , B 
LUE >0 0(2SPACE y BLACK)¥{RVSON , 3SPACE, ORANGE , 2SPACE 
, BLACK, 6SPACE, RVOFF}£(BLUE >B(2SPACE, BROWNJ'ÖTtFWSO 
N )tf {RVOFF <SPACE,ORANGE,RVSON,SPACE,RVOFF >H" 

250 PRINT•• {SPACE,RVSON,SPACE, BLUE , 17SPACE,ORANGE, 2 
SPACE,BLUE,17SPACE,ORANGE }“ 

VVpVp'CRVQFFJV" 

270 PRINT" £££. (SPACE,GREEN>TI{2SPACE,RED)Ü££££2,{SPA 
CE, BLACK > U.C.C.C-C.C.C-C.C 'irC.C I - {BLUE > RADAR {BLACK >— jJ£i" 
280 PRINT" HäS (GREEN )B (RVSONJN{RVOFF )i. (SPACE,RED>S 
{RVSON >W{2SPACE >1(RVOFF TJKGREENX{BLACK>£{LIG.GREE 
N,RVSON>£ @{2SPACEJ0 ¥{RVOFF,BLACK>fi{RED3SS,{BLACK> 
fl(SPACE ,RED, RVSQN)£(2SPACE>aC2SPACEmRVCIFF,BLACK 
>0 U" 

290 PRINT“{LIG.BLUE >>{SPACE,RVSON,GREEN >£<3SPACE> 
«{RVOFF,RED>i££Wi{BLACKIJKLIG.GREEN,RVSON >00{2S 
PACE>00{SPACE,RVOFF,BLACK JiKSPACE,ORANGE)t(BLACK >S 
{SPACE,RED,RVSON,5SPACE>Ü{SPACE,RVOFF,BLACK >0 B" 
300 PRINT“(SPACE,GREEN)«{RVS0N>i{5SPACE)S{RV0FF>«{ 
SPACE,RED >a(LIG.BLUE,RVSON,2SPACE.RVOFF,RED>ä (BLAC 
K>a{LIG.GREEN,RVSON,2SPACE >0{2SPACE}@(2SPACE,RVOFF 
, BL ACK > a (GREEN > ä. (SPACE, BLACK >&U.{RED , RVSON , 4SPACE >M 
(2SPACE,RVOFF,BLACK > iS {YELLOW > 0 (BLACK > B" 

310 PRINT" (GREEN>H{RVSON>W *-£H£{2SPACE)E{RV0FF>TT{R 
ED > £{LIG.BLUE,RVSON,2SPACE,RVOFF,RED >£{BLACK3JKLIG 
■ GREEN,RVSON}« «Ei.« «(RVOFF,BLACK>2(BLUE)S{SPACE,B 
LACK >afi(RED,RVSON >£{2SPACE>H<2SPACE>£{RV0FF,BLACK > 
SS (YELLOW,RVSON,SPACE,RVOFF,BLACK >B" 

320 PRINT"{SPACE,GREEN) Y¥{RVSON,5SPACE,RVOFF>SY(SP 
ACE,RED>ä££JMBLACK>S{RVSON>y 0(2SPACE>0 Y{RVOFF>S( 
SPACE,YELLOW}fi{BLACK} Sä {RED,RVSON,7SPACE,RVOFF,BLA 
CK> SS{YELLDW,RVSON,SPACE,RVOFF,BLACK>B" 

330 PRINT"(SPACE,ORANGE>«{SPACE,GREEN}¥{RVSON,3SPA 
CE, RVOFF >S(ORANGE> {SPACE , PURPLE 1DPS (ORANGE)- (BLA 
CK>S(RVSON >00{2SPACE)00{SPACE,RVOFF)S(ORANGE >H(CY 
AN}+(BLACK>a(SPACE,RED,RVSON,7SPACE,RVOFF,BLACK >0 
(YELLOW,RVSON,SPACE,RVOFF,BLACK >«" 

340 PRINT"{ORANGE)H{PURPLE>a{ORANGE>H{SPACE,GREEN) 

E)0{2SPACE)0{2SPACE,RVOFF)S(SPACE,PURPLE >ä{BLACK>S 
(SPACE,RED)«(RVSON,2SPACE)S(2SPACE,RVOFF)£{BLACK ) 
S( YELLOW,RVSON,SPACE,RVOFF,BLACK)«" 

350 PRINT"(BROWN}0(RVSON)#4{RVOFF)«(SPACE,GREEN)Y< 
BLACK, SPACE,RED>S{BLACK)»£ {BLUE >X (BLACK)« {RED>2( 
BLACK>SS(RVSON,6SPACE,RVOFF) SS (RED)*(BLACK }*2 (3SPA 
CE >££&{3SPACE >i£JL{4SPACE > " 

360 PRINT"{RVSON)«{RVOFF I flMUK SPACE,RED )?£££££££{ 

BLACK> J.RCJCCJJLGC.P.C.C.K. (SPACE T LIB■ GREEN>K(HB. BLUE> ETJ. 
S£(LIG. GREEN)Ü{BLACK >«- “ ; s POKE4071 ,233 
370 REM 


380 

REM 




@64'e*- 

390 

REM 





400 

REM 

******************************* 


410 

REM 

** 

BEWEGUNG - NUR C 16/116 ! 

»* 


420 

REM 

******************************* 


430 

DOüGETKEYA* 



440 

IFA* 

= "* 

"THENCHAR1,34,08, " (FLASHON 

,ORANGE)H(BLA 

CK)' 

iCHARl, 

37,24," (FLASHON, BLACK) I CHAR1 

,26,19, "( 

FLASHON, 

RED)Z" 



450 

IFA* 

■" + 

"THENCHAR1,13,3, " (FLASHON, 

BREENIÄ" : CHAR 

1,1 

22,' 

(FLASHON,PURPLE >ä" 



460 

IFA* 


" THENCHAR1,25,23,"(FLASHON 

,RED)*"sCHAR1 

,23 

1, " (FLASHON,PURPLE)?" 



470 

IFA* 


" THENPRINT"(HOME,2RIGHT,6DOWN > 

•CHR*(27) 

4B0 

IFA* 


" THENPRINT"(HOME,16RIGHT,4D0WN >" CHR» < 27 

)"B“s-.GOTO510 



490 

IFA* 

«CHR* ( 27 > THEN600 



500 

LOOP 




510 

FORI 

“1T04:FORJ“1TO1000:NEXTiPRINT 

iNEXT : LOOP 

600 

PR INT" (2H0ME,CLR,BLACK,4D0WN,4SPACE )** (2SPACE > 

<C> 

BY DDN’ 

T PANIC SOFT(2SPACE)»*" 



700 

REM 





710 

REM 

******************************** 


720 

REM 

** 

ACHTUNG e AENDERUNGEN 

** 


730 

REM 

#* 

FUER C 64 

** 


740 

REM 

******************************** 


750 

REM 

** 

POKE 4071,233 IN ZEILE 360 

** 


760 

REM 

** 

MUSS DURCH POKE 2023,233 

** 


770 

REM 

** 

ERSETZT WERDEN 

** 


780 

REM 

******************************** 

Listing. 

790 

REM 

** 

COLOR 0,2 IN ZEILE 100 

** 

800 

REM 

** 

MUSS DURCH POKE 53281,1 

** 

Basic- - 

810 

REM 

** 

ERSETZT WERDEN 

** 

Programm 

820 

REM 

******************************** 


830 

REM 

** 

COLOR 4,1 IN ZEILE 100 

** 


840 

REM 

** 

MUSS DURCH POKE 53280,0 

** 

graTiK. 

850 

REM 

** 

ERSETZT WERDEN 

** 

Bitte 

860 

REM 

******************************** 

beachten 

870 

REM 

** 

DAS STEUERZEICHEN FUER 

• * 

Sie die 

aas 

REM 

** 

HELLBLAU MUSS DURCH 

** 

Finaabe- 

890 

»FM 

** 

NORMAL-BLAU ERSETZT 

** 


900 

Tr-i 

** 

NUR WICHTIG IN ZEILE 

** 

hinweise 

910 

REM 

** 

280 - 310 

** 

auf Seite 

920 

REM 

******************************** 

76. 

930 

REM 

** 

ZEILE 430 MUSS LAUTEN s 

** 


940 

REM 

** 

430 GETA*:IFA*=""THEN430 

** 


950 

REM 

#* 

ZEILE 440 - 510 DUERFEN 

** 


960 

REM 

** 

NICHT UEBERNGMMEN WERDEN 

** 


970 

REM 

******************************** 


980 

REM 

******************************** 




Bild. 
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Hyper-Graphics 

Das Programm »Hyper-Graphics«* erlaubt über 
SYS-Befehle vom Basic aus Grafiken mit einer 
Auflösung von 208 4 256 = 53248 Bildpunkten zu 
erstellen. Damit stößt der VC 20 auf seine alten 
Tage noch in Bereiche des ZX-Spectrum oder 
Apple II vor. 

I mmer wenn über die VC-20-Grafik geschrieben wurde, 
bekam man bisher vorgerechnet, daß die Auflösung nicht 
28160 Punkte überschreiten kann. Um es gleich vor¬ 
wegzunehmen: In der Tat ist die echte Maximalauflösung mit 
160 * 192 = 30720, wie sie durch entsprechendes Umge¬ 
stalten der Data-Becker-Grafik aus dem Buch »Tips & Tricks 
für den VC 20« gelang, weit von jenen 53248 Punkten ent¬ 
fernt, doch läßt sich diese Auflösung durch einen Trick errei¬ 
chen. Doch zuerst sei die Frage beantwortet, warum es über¬ 
haupt erstrebenswert ist, eine solche Auflösung mit so 
»krummen« Werten zu entwerfen: Die 256 Punkte in vertika¬ 
ler Richtung werden benötigt, um komplette 8-Bit-Werte dar¬ 
stellen zu können. Die 208 Punkte in horizontaler Richtung 
ergeben sich aus dem Umstand, daß nicht mehr auf den nor¬ 
malen Fernsehbildschirm paßt. Bei manchen älteren Geräten 
kann es Vorkommen, daß die Bildschirmecken der Grafik 
abgeschnitten werden oder daß am Bildschirmrand Verzer¬ 
rungen auftreten. Der Vorteil vertikal 256 Punkte darstellen 
zu können, wird besonders dadurch wertvoll, daß die meisten 
mit dem Computer erfaßten Meßwerte 8-Bit-Werte zum Bei¬ 
spiel von Analog/Digital-Wandlern sind. So habe ich mir bei¬ 
spielsweise einen solchen A/DrWandler mit dem Baustein 
ZN 427 gebaut und damit in Abhängigkeit von der Zeit die 
Spannung an einem sich entladenden Kondensator gemes¬ 
sen. Da »Hyper-Graphics« vertikal 256 Punkte setzen kann, 
brauchten die Daten nicht gerundet werden, was einen 
gleichmäßigeren und genaueren Graphen ergab, als dies mit 
Computern, wie zum Beispiel dem C64, dem C128 oder 
dem Schneider-Computer, möglich ist, da diese zwar der 
Punktezahl nach eine noch wesentlich bessere Grafik bieten, 
aber in der Vertikalen nur 200 Punkte darstellen können, was 
einen deutlichen Genauigkeitsverlust bedeutet, besonders 
wenn man versucht, 256 Werte auf die 200 möglichen 
Punkte umzurechnen, da hier bedingt durch das erforder¬ 
liche Runden die gemessenen Daten arg verzerrt und ver¬ 
fremdet wiedergegeben werden. 

Das »Hyper-Graphics«-Verfahren 

Das Verfahren ist im Prinzip so alt wie der VC 20 selbst, 

denn der normale Bildschirm arbeitet ähnlich: Er besteht aus 

22 * 23 Zeichen, was bei einer 8*8-Matrix 32384 Punkte 
ergibt. Dies ist nur durch Mehrfachbenutzung der einzelnen 
Buchstaben und Zeichen möglich. Da bei den meisten Dar¬ 
stellungen nur einige Graphen gleichzeitig dargestellt wer¬ 
den müssen, kann man in die übrigen Bildschirmstellen ein 
und dasselbe punktfreie Zeichen schreiben und erhält so 
eine Grafik, die einer erheblich höher aufgelösten entspricht, 
obwohl der Computer genaugenommen nur etwas mehr als 
den halben Bildschirm »mit Punkten füllen« kann. Es kommt 
eben nur auf die richtige Verteilung der Punkte an! 

Anwendung von Hyper-Graphics 

Als erstes ist das Programm abzutippen, und zwar wahl¬ 
weise als Basic-Lader (Listing 1) oder als Maschinenpro¬ 
gramm (Listing 2). Der Basic-Lader bietet den Vorteil, die ein- 
gePOKEten Daten durch eine Checksumme zu überprüfen. 


Trotzdem kann es aber zu unerkannten Fehlern kommen; 
deshalb sollte das Programm unbedingt vorher gespeichert 
werden, zumal der Lader durch Starten des Maschinenpro¬ 
gramms auf jeden Fall zerstört wird. Ist das Programm einmal 
korrekt eingegeben und erfolgreich gestartet, meldet sich 
der VC 20 mit einer Bildschirmzeile mehr, die den Benutzer 
in roter, reverser Schrift daran erinnert, daß er »Hyper- 
Graphics« eingeschaltet hat. Diese Zeile läßt sich mit dem 
normalen Editor nicht ändern und bleibt auch nach 
STOP/RESTORE erhalten. Wem die Farbe aber nicht gefällt, 
der kann in den Basic-Lader vor den SYS-Befehl ein POKE 
9487, Punktfarbe setzen und damit den Schriftzug seinen 
Vorstellungen anpassen. 

Folgende Befehle stellt das Programm zur Verfügung 
(siehe auch Listing 3): 

SYS IN: Schaltet Grafik-Modus ein 

SYS CL: Löscht den Grafik-Bildschirm 

SYS OF: Schaltet den Grafik-Modus aus 

SYS SE, X, Y, Punktfarbe: Setzt einen Punkt 

SYS RE, X, Y: Löscht einen Punkt 

SYS GS, »Filename«, Devicenumber: Speichert Grafik 

SYS GL, »Filename«, Devicenumber: Lädt Grafik 

Die Variablen haben folgende Werte beziehungsweise 
Bedeutungen: 

’ IN = 9330: CL = IN+3: SE = CL+3: RE = SE+3: GS = 
RE+3: GL = GS+3: OF = GL+3: 

0 < = X < = 207 und bedeutet die X-Koordinate 
0 < = Y <= 255 und bedeutet die Y-Koordinate 

Die Punktfarbe entspricht der sonst üblichen Buchstaben¬ 
farbe, »Devicenumber« gibt das Ein-/Ausgabegerät an. 

Da der Grafik nur maximal 255 - 26 = 229 Zeichen zur 
Verfügung stehen (der Videochip läßt nicht mehr als 256 
Zeichen zu, die Zeichen 0 bis 25 überschneiden sich mit dem 
Video-RAM, und Zeichen 26 Ist das Grafik-Leerzeichen), 
kann es Vorkommen, daß die Grafikkapazität vor Fertigstellen 
der Grafik erschöpft ist; der Computer meldet dann einen 
»TOO MANY CHARACTERS ERROR«, was dem Benutzer 
signalisieren soll, daß zur Darstellung der Grafik mehr als die 
vorhandenen 229 Zeichen benötigt werden (wie das Demo- 
Programm aber beweist, muß man den Bildschirm schon sehr 
vollschreiben, um diese Fehlermeldung zu erreichen). Soll 
diese Fehlermeldung ignoriert werden, um wenigstens den 
bisher fertiggestellten Teil der Grafik weiter anzuzeigen, so 
läßt Sich dies durch POKE 9609,27 erreichen, indem man 
nach jedem Punktsetzen die Speicherstelle 680 ausliest: 
Solange ihr Wert größer als 26 ist, können beruhigt weitere 
Punkte gesetzt werden, ist ihr Wert aber 26, so können nur 
dort weitere Punkte gesetzt werden, wo bereits Zeichen auf 
dem Bildschirm sind. Um festzustellen, ob an der betreffen¬ 
den Stelle bereits ein Zeichen im Video RAM steht, gibt man 

SYS 9663,X,Y : SYS 9707 : A = PEEK (256#PEEK(252)+ 
PEEK(25l)) 

ein. Ist A=26, dann kann an die betreffende Stelle kein Punkt 
mehr gesetzt werden. Die Punktlöschroutine prüft bei jedem 
Punktlöschen, ob das aktuell bearbeitete Zeichen leer 
geworden ist und so durch das Leerzeichen ersetzt werden 
kann. Ist dies der Fall, dann wird das freigewordene Zeichen 

Fortsetzung Text auf Seite 62 
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10 REM ****************************** <064> 
20 REM * HYPER-GRAPHICS * <200> 
30 REM * (C) 1985 BY JOACHIM BROCKE * <026> 
40 REM * DIETRICH-BONHOEFFERSTR.5 * <087> 
50 REM * 4790 PADERBORN * < 104> 
60 REM ****************************** Listlng 1. DATA-Lader <H4> 
70 PRINT" {CLR,RVSON>>>> HYPER-GRAPHICS <<<" zu »Hyper-Graphics« <UB> 
80 PRINT TAB(7)"(C) 1985"SPC(31)"BY JOACHIM BROCKE <118> 
90 PRINT" (DOWN,RVS0N,4SPACE>BITTE WARTEN ! {4SPACE}" <080> 
100 REM DATEN EINPOKEN <065> 
110 FOR 1 = 0 TO 831 <201 > 
120 READ X:A=A + X <201> 
130 POKE 1+8192+1024,X <111> 
140 NEXT <150/ 
150 REM TEST AUF KORREKTE DATENEINGABE <201> 
160 IF A< >97379 THEN PRINT" {RVSONJFEHLER IN DATAZEILEN !":END <142> 
170 REM PROGRAMMSTART <071> 
180 SYS 9980 <157> 
190 REM MASCHINENPROGRAMM IN DATA-ZEILEN <102> 
200 DATA 190,190,190,160,136,153,144,133,146,173,135,146,129,144,136,137,131 <142> 
210 DATA 147,160,188,188,188,63,84,79,79,32,77,65,78,89,32,67,72,65,82,65,67 <180> 
220 DATA 84,69,82,83,0,26,52,78,104,130,156,182,208,234,4,30,56,82,108,134,16 <086> 
230 DATA 16,16,16,16,16,16,16,16,16,17,17,17,17,17,17,128,64,32,16,8,4,2,1,9 <130> 
240 DATA 19,26,33,255,204,40,67,41,32,49,57,56,53,32,66,89,32,74,79,65,67,72 <172> 
250 DATA 73,77,32,66,82,79,67,75,69,76,135,36,76,53,37,76,112,37,76,27,38,76 <068> 
260 DATA 129,38,76,162,38,76,220,36,173,5,144,201,204,240,51,160,6,185,81,36 <167> 
270 DATA 153,255,143,136,208,247,162,208,189,255,31,157,255,15,189,207,32,157 <080> 
280 DATA 207,16,189,159,33,157,255,147,189,111,34,157,207,148,202,208,229,162 <239> 
290 DATA 112,189,63,35,157,159,17,202, 208,247,96 ,4P,',41,32,49,57,56,53,32,2 <210> 
300 DATA 25,32,10,15,1,3,8,9,13,32,2,18,15,3,11,5,173,5,144,201,192,240,43,162 <089/ 
310 DATA 208,1B9,255,15,157,255,31,1B9,207,16,157,207,32,189,255,147,157,159 <167> 
320 DATA 33,189,207,148,157,11 1,34,202,208,229,162,112,189,159,17,157,63,35,202 <196> 
330 DATA 208,247,32,95,229,160,2,162,22,189,255,35,157,249,17,152,157,249,149 <017> 
340 DATA 202,208,243,160,6,185,227,237,153,255,143,136,208,247,169,34,141,1,144 <113> 
350 DATA 169,48,141,3,144,96,169,26,162,20B,157,255,15,157,207,16,157,255,31 <233> 
360 DATA 157,207,32,202,208,241,162,96,169,0,157,159,17,157,159,33,202,208,247 <114> 
370 DATA 169,18,133,252,169,0,133,251,162,14,168,145,251,136,208,251,230,252 <241> 
380 DATA 202,208,246,169,255,141,16B,2,96,32,191,37,32,253,206,32,158,215,142 <095> 
390 DATA 173,2,32,235,37,201,26,208,12,173,168,2,201,27,144,32,206,168,2,145 <205> 
400 DATA 251,32,254,37,17,253,145,253,165,252,24,105,132,133,252,172,169,2,173 < 181 > 
410 DATA 173,2,145,251,96,169,0,133,62,32,220,36,169,22,160,36,32,30,203,76,98 <030> 
420 DATA 196,32,220,36,162,14,76,55,196,32,253,206,32,158,215,224,208,176,238 <249> 
430 DATA 138,74,74,74,141,169,2,138,41,7,141,170,2,32,253,206,32,158,215,13B <252> 
440 DATA 74,74,74,74,141,171,2,138,41,15,141,172,2,96,172,171,2,185,42,36,133 <112> 
450 DATA 251,185,5B,36,133,252,172,169,2,177,251,96,168,74,74,74,74,24,105,16 <053> 
460 DATA 133,254,152,10,10,10,10,24,133,253,173,170,2,170,189,74,36,172,172,2 <135 > 
470 DATA 96,32,191,37,32,235,37,201,26,240,94,141,174,2,32,254,37,73,255,49,253 <056> 
480 DATA 145,255,160,0,177,253,208,73,200,192,16,208,247,172,169,2,169,26,145 <013> 
490 DATA 251,238,168,2,162,208,189,207,16,205,168,2,240,17,189,255,15,240,3,202 <086> 
500 DATA 208,240,173,174,2,157,255,15,76,103,38,173,174,2,157,207,16,165,253 <223> 
510 DATA 133,251,165,254,133,252,173,168,2,32,254,37,160,0,177,253,145,251,200 <040> 
520 DATA 192,16,208,247,96,32,220,36,32,253,206,32,209,225,173,168,2,141,255 <201> 
530 DATA 35,162,0,160,36,138,133,253,169,18,133,254,169,253,133,185,76,216,255 <233> 
540 DATA 32,220,36,32,253,206,32,209,225,169,1,133,185,169,0,32,213,255,173,255 <148> 
550 DATA 35,141,168,2,96,72,138,72,152,72,173,29,145,16,37,45,30,145,170,41 <181> 
560 DATA 2,240,32,44,17,145,32,52,247,32,225,255,208,18,32,82,253,32,240,38,32 <253> 
570 DATA 249,253,32,24,229,32,220,36,108,2,192,76,86,255,76,222,254,169,187,141 <175> 
580 DATA 24,3,169,38,141,25,3,96,120,32,240,38,173,0,3,141,58,39,173,1,3,141 <095> 
590 DATA 59,39,169,45,141,0,3,169,39,141,1,3,32,220,36,169,39,133,44,141,130 <074> 
600 DATA 2,169,64,133,43,141,129,2,32,68,198,88,76,116,196,142,57,39,32,220,36 <030> 
610 DATA 174,57,39,108,58,39,28,58,196,0,0,0,0 <066> 


RI 
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Fortsetzung von Seite 60 

gegen das »größte« nicht freie Zeichen ausgetauscht und 
dieses Zeichen wieder freigegeben, indem der Zähler für die 
freien Zeichen erhöht wird. 

Zum Demo-Programm (Listing 4): 

Es enthält folgende 4 Teile: 

1. Eine 3D-Effekt-Grafik; die Formel hierzu ist dem oben 
erwähnten Data-Becker-Buch entnommen und wurde für 
»Hyper-Graphics« umgeschrieben. 

2. Die für Grafikprogramme obligatorische Sinuskurve wird 
dargestellt. 

3. Eine aus Rechtecken bestehende Zentralperspektive wird 
dargestellt. 

4. Es wird mit hochauflösender Grafik in doppelthoher Schrift 
ein Text geschrieben und dann perspektivisch ein Okta¬ 
eder in Durchsichtszeichnung gezeichnet (dieser Pro¬ 
grammteil ist Bestandteil eines Programmes, das auf einer 
Ausstellung unseres Chemie-Leistungskurses lief, und 
stieß im großen und ganzen auf positive Kritik). 

Die einzelnen Programmteile werden durch Druck der 
angezeigten Zahlentaste gewählt, danach sind Rahmen-, 
Hintergrund- und Punktfarbe im bekannten Rahmen der 
VC-20-Möglichkeiten einzugeben, wobei auf korrekte Ein¬ 
gabe getestet wird. Da das Demo-Programm nur zum Anse¬ 
hen dient, wurde, um die Abtipparbeit zu erleichtern, weitge¬ 


hend auf REMs verzichtet, lediglich die Zeilen 1350 bis 1450 
sind interessant, da hier die Routine zur Umwandlung von 
ASCII-Zeichen in Punkte zur gleichzeitigen Darstellung von 
Text und Grafik steht. Diese Routine ist aber leicht verständ¬ 
lich. 

Um normal hohe Zeichen zu erhalten, streicht man einfach 
die Zeile 1450 und ersetzt in Zeile 1440 den Term 2*J + 16 
durch J+16. Die 16 gibt die Höhe des Textes auf dem Bild¬ 
schirm an, soll in Kleinschrift geschrieben werden, so muß zu 
AD 2048 addiert werden. 

Sie sehen also, 53248 Bildpunkte sind nicht nur den 
»größeren« Computern Vorbehalten. 


Eingabehinweise: 

Geben Sie zuerst das Programm »Hyper-Graphics« ein. 
Dazu steht Ihnen wahlweise Listing 1 oder Listing 2 zur 
Verfügung. Beachten Sie beim Basic-Lader (Listing 1) 
bitte die Eingabehinweise auf Seite 76. Nach dem Spei¬ 
chern starten Sie das »Hyper-Graphics« mit RUN. Für 
Interessierte haben wir in Listing 3 den (nicht einzugeben¬ 
den) Quellcode abgedruckt. Das Demo-Programm aus 
Listing 4 laden und starten Sie bitte nur mit aktivierter 
Erweiterung. 


(Joachim Brocke/og) 


2400 

BE 

BE 

BE 

A0 

88 

.:£4D7 

12 

0F 

03 

0B 

05 

. 25AE 

16 

A0 

24 

20 

IE 

• ‘2685 

FD 

CE 

20 

Dl 

El 

2405 

99 

90 

35 

92 

AD 

.-24DC 

AD 

05 

90 

C9 

C0 

. -25B3 

CB 

4C 

62 

C4 

20 

• £oSn 

AD 

A8 

02 

8D 

FF 

240A 

240F 

3? 

89 

92 

83 

31 

93 

90 

A0 

88 

BC 

. • 24E1 

..24E6 

F0 

FF 

2B 

0F 


: 

DC 

37 

24 

C4 

A2 

20 

0E 

FD 

4C 

CE 

. :268F 
. .2634 

23 

8A 

A2 

85 

00 

FD 

A0 

A9 

24 

12 

2414 

BC 

BC 

3F 

54 

4F 

..24EB 

BD 

CF 

10 

9D 

CF 

.;25C2 

20 

9E 

D? 

E0 

D0 

..2539 

85 

FE 

A9 

FD 

85 

2419 

4F 

20 

4D 

41 

4E 

-24F0 

26 

BD 

FF 

93 

9D 

.:25C7 

B0 

EE 

8A 

4ft 

4A 

.-263E 

B9 

4C 

D8 

FF 

20 

241E 

59 

20 

43 

48 

41 

. -24F5 

9F 

21 

BD 

CF 

94 

.-25CC 

4A 

8D 

A9 

02 

8ft 

. 26A3 

DC 

24 

20 

FD 

CE 

2423 

52 

41 

43 

54 

45 

. 24FA 

9D 

6F 

22 

CA 

D0 

.•25D1 

29 

0? 

8D 

AA 

02 

. 26A3 

28 

Dl 

El 

A9 

01 

2423 

52 

53 

00 

1A 

34 

. . 24FF 

E5 

A2 

70 

BD 

9F 

.i25D6 

20 

FD 

CE 

20 

9E 

. 26AD 

85 

B9 

A9 

00 

20 

242D 

4E 

63 

82 

9C 

B6 

. 2504 

11 

9D 

3F 

23 

CA 

. '. 25DB 

D? 

8ft 

4A 

4A 

4A 

.-£6B2 

D5 

FF 

AD 

FF 

23 

2432 

D0 

Eft 

04 

IE 

38 

..2509 

D0 

F7 

20 

5F 

E5 

. 25E0 

4A 

8D 

AB 

02 

SA 

..£637 

8D 

AS 

02 

60 

48 

243? 

52 

6C 

86 

10 

10 

.-250E 

A0 

02 

A2 

16 

BD 

. 25E5 

29 

0F 

8D 

AC 

02 

..£6BC 

8A 

48 

98 

48 

AD 

243C 

18 

10 

10 

10 

10 

..2513 

FF 

23 

9D 

F9 

11 

.-25EA 

60 

AC 

AB 

02 

B9 

.•26C1 

ID 

91 

10 

25 

2D 

2441 

10 

10 

10 

11 

11 

. 2515 

98 

9D 

F9 

95 

CA 

. . 25EF 

2A 

24 

85 

FB 

B9 

..26C6 

IE 

91 

AA 

29 

02 

2446 

11 

11 

11 

11 

80 

. -251D 

D0 

F3 

A0 

06 

B9 

.•25F4 

3A 

24 

85 

FC 

AC 

. 26CB 

F0 

20 

2C 

11 

91 

244B 

40 

20 

10 

08 

04 

. .2522 

E3 

ED 

99 

FF 

8F 

.:25F9 

A9 

02 

Bl 

FB 

60 

..26D3 

20 

34 

F? 

20 

El 

2450 

02 

01 

09 

13 

1A 

■•£527 

88 

D0 

F7 

A9 

22 

.•25FE 

A8 

4A 

4A 

4A 

4A 

.i26D5 

FF 

D0 

12 

20 

52 

2455 

21 

FF 

CC 

28 

43 

■■252C 

8D 

01 

90 

A9 

30 

..2683 

18 

69 

10 

85 

FE 

.•26DA 

FD 

20 

F0 

26 

20 

245A 

29 

20 

31 

39 

38 

..2531 

8D 

63 

90 

60 

A9 

..2608 

98 

0A 

0A 

0A 

0A 

.•26DF 

F9 

FD 

20 

18 

E5 

245F 

35 

20 

42 

59 

28 

■ -£536 

1A 

A2 

D0 

9D 

FF 

..260D 

18 

85 

FD 

AD 

AA 

. 26E4 

20 

DC 

24 

6C 

02 

2464 

4A 

4F 

41 

43 

48 

■•253B 

0F 

9D 

CF 

10 

9D 

. 2612 

02 

AA 

BD 

4A 

24 

. '• 26E9 

C0 

4C 

56 

FF 

4C 

2469 

49 

4D 

20 

42 

52 

. 2540 

FF 

1F 

9D 

CF 

20 

.i2617 

AC 

AC 

02 

60 

20 

. ■ 26EE 

DE 

FE 

A9 

BB 

8D 

24SE 

4F 

43 

4B 

45 

4C 

. 2545 

CA 

D0 

Fl 

A2 

60 

.•261C 

BF 

25 

20 

EB 

25 

. • 26F3 

18 

03 

A9 

26 

8D 

2473 

87 

24 

4C 

35 

25 

. 254A 

A9 

00 

9D 

9F 

11 

■■2621 

C9 

1A 

F0 

5E 

8D 

.•26F8 

19 

03 

60 

78 

20 

£478 

4C 

70 

25 

4C 

1B 

..254F 

9D 

9F 

21 

CA 

D0 

. 2626 

AE 

02 

20 

FE 

25 

.‘Z6FD 

F0 

26 

AD 

00 

03 

247D 

26 

4C 

81 

26 

4C 

..2554 

F? 

A9 

12 

85 

FC 

. '. 262B 

49 

FF 

31 

FD 

91 

..2702 

8D 

3A 

27 

AD 

01 

2432 

62 

26 

4C 

DC 

24 

. .2553 

A9 

00 

85 

FB 

A2 

. 2630 

FD 

A0 

00 

Bl 

FD 

. :2707 

03 

8 D 

3B 

27 

A9 

243? 

AD 

05 

90 

C9 

CC 

..255E 

0E 

A8 

91 

FB 

88 

. -2635 

DO 

49 

C8 

C0 

16 

..270C 

2D 

8D 

00 

03 

A9 

243C 

F0 

33 

A0 

06 

B9 

. • 2563 

D0 

FB 

E6 

FC 

CA 

.•263A 

D0 

F7 

AC 

A9 

02 

.‘2711 

27 

8D 

01 

03 

20 

2491 

51 

24 

99 

FF 

8F 

. £568 

D@ 

F6 

A9 

FF 

8D 

.■263F 

A9 

1A 

91 

FB 

EE 

..2716 

DC 

24 

A9 

27 

85 

2496 

88 

D0 

F? 

A2 

D0 

. 256D 

A8 

02 

60 

20 

BF 

..2644 

A8 

02 

A2 

D0 

BD 

..£71B 

2C 

6D 

82 

02 

A9 

249B 

BD 

FF 

1F 

9D 

FF 

. 2372 

25 

20 

FD 

CE 

20 

. 2649 

CF 

10 

CD 

A8 

02 

.i£726 

40 

85 

2B 

8D 

Bl 

2460 

0F 

BD 

CF 

20 

9D 

. £57? 

9E 

D7 

8E 

AD 

02 

. 264E 

F0 

11 

BD 

FF 

0F 

.-2725 

02 

20 

44 

C6 

58 

2465 

CF 

10 

BD 

9F 

21 

. -2570 

20 

EB 

25 

C9 

1A 

. 2653 

F 0 

03 

CA 

D0 

F0 

. . 272A 

4C 

74 

C4 

6E 

39 

24 AA 

9D 

FF 

93 

BD 

6F 

. 2581 

D9 

ec 

AD 

A8 

02 

. 2656 

AD 

AE 

02 

9D 

FF 

..272F 

27 

20 

DC 

24 

AE 

24AF 

22 

9D 

CF 

94 

CA 

..2586 

C9 

1B 

90 

20 

CE 

. 265D 

0F 

4C 

67 

26 

AD 

. i2734 

39 

2? 

6C 

3A 

27 

24B4 

D0 

E5 

A2 

70 

BD 

.•258B 

A8 

02 

91 

FB 

20 

.>2662 

AE 

02 

9D 

CF 

10 







24B9 

3F 

23 

9D 

9F 

11 

. 2590 

FE 

25 

11 

FD 

91 

. 2667 

A5 

FD 

85 

FB 

A5 







24BE 

CA 

D0 

F7 

60 

28 

. 2595 

FD 

A5 

FC 

18 

69 

■ ■ 266C 

FE 

85 

FC 

AD 

A8 







24C3 

03 

29 

20 

31 

39 

. 259A 

84 

es 

FC 

AC 

A9 

.-2571 

62 

20 

FE 

25 

A0 







24C8 

38 

35 

20 

02 

19 

. -25SF 

02 

AD 

AD 

02 

91 

. - 2676 

00 

Bl 

FD 

91 

FB 







24 CD 

20 

0ft 

0F 

01 

03 

. 25A4 

FB 

60 

A9 

00 

85 

..267B 

C8 

C0 

10 

D0 

F? 
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24D2 

08 

09 

0D 

20 

02 

. £5A9 

3E 

20 

DC 

24 

A9 

■ * 2680 

60 

20 

DC 

24 

20 
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VC 20 


GRAFIK 


SPRUNGTABELLE: 


.2472 

JMP 

$2487 

ZU 'GRAPHIK EINSCHALTEN' 

.2475 

JMP 

$2535 

ZU 'GRAPHIKSPEICHER LOESCHEN' 

.2478 

JMP 

$2570 

ZU 'PUNKT SETZEN' 

. 247B 

JMP 

$261B 

ZU 'PUNKT LOESCHEN' 

. 247E 

JMP 

$2681 

ZU 'GRAPHIK ABSPEICHERN' 

.2481 

JMP 

$26A3 

ZU 'GRAPHIK LADEN' 

.2484 

JMP 

$24DC 

ZU 'GRAPHIK AUSSCHALTEN' 

GRAPHIK EINSCHALTEN. 

.2437 

LDA 

$9005 

HOLT ZEIGER AUF CHARACTERGENERATOR 

. 248A 

CMP 

#$CC 

PRUEFT AUF 'GRAPHIK ON'-MODUS 

.2480 

BEQ 

$2401 

SCHON IM GRAPHIKMODUS? DANN 2URUECK INS BASIC 

. 248E 

LDV 

#$06 

ZAEHLER FUER ANZAHL DER VIDEOCONTROLLERWERTE 

.2490 

LDA 

$2451,V 

HOLT VIDEOCONTROLLERWERTE AUS TABELLE 

.2493 

STA 

$ 8 PFF,V 

LAEDT VIDEOCONTROLLER 

.2496 

DEV 


ZAEHLER ERNIEDRIGEN 

.2497 

BNE 

$2490 

UNGLEICH NULL? DANN VORGANG WIEDERHOLEN 

.2499 

LDX 

#$D0 

ZAEHLER FUER GRAPHIK-KOPIE LADEN 

. 249B 

LDA 

$1FFF, X 

BYTE AUS VIDEORAMKOPIE, l.TEIL, HOLEN 

. 249E 

STA 

$ 8 FFF,X 

...UND INS VIDEORAM BRINGEN 

. 24A1 

LDA 

$20CF,X 

BYTE AUS V IDEORAMKOPIE, 2.TEIL, HOLEN 

. 24A4 

STA 

$10CF,X 

...UND INS VIDEORAM BRINGEN 

. 24A7 

LDA 

$219F,X 

BVTE AUS FARERAMKOPIE, l.TEIL, HOLEN 

. 24AA 

STA 

$93FF,X 

...UND INS FARBRAM BRINGEN 

. 24AD 

LDA 

$226F,X 

BVTE AUS FARERAMKOPIE, 2.TEIL, HOLEN 

. 24B0 

STA 

$94CF,X 

...UND INS FARBRAM BRINGEN 

. 24B3 

DEX 


ZAEHLER ERNIEDRIGEN 

. 24B4 

BNE 

$249B 

UNGLEICH NULL? DANN NAECHSTES 2EICHEN KOPIEREN 

. 24B6 

LDX 

#$70 

ZAEHLER FUER KOPIE DER ZEITEN 26-32 DES CHARACTERGENERATORS 

. 24B8 

LDA 

$233F,X 

BVTE AUS KOPIE DIESES CHARACTERGENERATORTEILS HOLEN 

. 24BB 

STA 

$119F,X 

...UND IN CHARACTERGENERATOR EINSETZEN 

. 24BE 

DEX 


ZAEHLER ERNIEDRIGEN 

. 24BP 

BNE 

$24B8 

UNGLEICH NULL? DANN NAECHSTES ZEICHEN KOPIEREN 

.2401 

RTS 


ZURUECK INS BASIC 

GRAPHIK LOESCHEN. 


.2535 

LDA 

#$1A 

AKKU MIT CODE FUER GRAPHIKLEERZEICHEN LADEN 

.2537 

LDX 

#$D0 

ZAEHLER FUER VIDEORAM LADEN 

.2539 

STA 

$0FFF,X 

l.TEIL DES VIDEORAMS LOESCHEN 

.2530 

STA 

$10CF,X 

2.TEIL DES VIDEORAMS LOESCHEN 

. 253F 

STA 

$1FFF , X 

l.TEIL DER V IDEORAMKOPIE LOESCHEN 

.2542 

STA 

$20CF,X 

2.TEIL DER VIDEORAMKOPIE LOESCHEN 

.2545 

DEX 


ZAEHLER ERNIEDRIGEN 

.2546 

BNE 

$2539 

UNGLEICH NULL? DANN VORGANG WIEDERHOLEN 

.2548 

LDX 

#$60 

ZAEHLER FUER ZEICHEN 26-32 DES CHARACTERGENERATORS 

. 254A 

LDA 

#$00 

AKKU MIT PUNKTFREIEM BYTE LADEN 

.2540 

STA 

$119F,X 

BVTE DER ZEICHEN 26-32 DES CHARACTERGENERATORS LOESCHEN 

. 254F 

STA 

$219F,X 

BVTE IN DER KOPIE DIESES TEILS LOESCHEN 

.2552 

DEX 


ZAEHLER ERNIEDRIGEN 

-.2553 

BNE 

$2540 

UNGLEICH NULL? DANN VORGANG WIEDERHOLEN 

.2555 

LDA 

#$12 

AKKU MIT HIGH-BVTE DES CHARACTERGENERATORSTARTS LADEN 

.2557 

STA 

$FC 

AKKU ALS VEKTOR-HIGHBVTE IN ZEROPAGE BRINGEN 

.2559 

LDA 

#$00 

AKKU MIT LOW-BVTE DES CHARACTERGENERATORS LADEN 

. 255B 

STA 

$FB 

...UND ALS VEKTOR-LOWBVTE IN 2ER0PAGE BRINGEN 

. 255D 

LDX 

#$0E 

X-REG. MIT ANZAHL DER PAGES DES CHARACTERGENERATORS LADEN 

. 255F 

TAV 


Y-REG. ALS ZAEHLER DER BYTES PRO PAGE 

.2560 

STA 

< $FB),V 

CHARACTERGENERATORBVTE LOESCHEN 

.2562 

DEV 


ZAEHLER FUER BYTES INNERHALB EINER PAGE ERNIEDRIGEN 

.2563 

BNE 

$2560 

UNGLEICH NULL? DANN NAECHSTES ZEICHEN LOESCHEN 
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GRAFIK 


VC 20 


.2565 

INC 

*FC 


VEKTOR AUF NAECHSTE HEHORYPAGE DES CHARACTERGENERATOR SETZEN 

.2567 

DEX 



ZAEHLER FUER ANZAHL DER ZU BEARBEITENDEN PAGES ERNIEDRIGEN 

.2563 

BNE 

*2560 


UNGLEICH NULL? DANN NAECHSTE PAGE LOESCHEN 

. 256A 

LDA 

#*FF 


CODE FUER OBERSTES FREIES ELEMENT DES CHARACTERGENERATORS 

.2560 

STA 

*02A8 


...AN FREIEN PLATZ IN PAGE 2 BRINGEN 

. 256F 

RTS 



ZURUECK INS BASIC 

PUNKT 

SETZEN: 


4 

.2570 

JSR 

*25BF 


HOLT X- UND Y-KOORDINATE AUS BASICTEXT UND WANDELT UH 

.2573 

JSR 

*CEFD 


TESTET AUF KOHMA IH BASICTEXT 

.2576 

JSR 

*D79E 


HOLT BYTEWERT (HIER FARBCODE) AUS BASICTEXT INS X-REGISTER 

.2579 

STX 

*02AD 


FARBC.ODE ZWISCHENSPEICHERN 

.2570 

JSR 

*25EB 


HOLT AKTUELL ZU BEARBEITENDES ZEICHEN AUS VIDEORAM 

. 257F 

CHP 

4* 1A 


PRUEFT AUF LEERZEICHEN 

.2581 

BNE 

*258F 


KEIN LEERZEICHEN? DANN KEIN NEUES ZEICHEN SETZEN 

.2583 

LDA 

*02A3 


CODE FUER OBERSTES FREIES ZEICHEN HOLEN 

.2586 

CHP 

«*1B 


VERGLEICHT HIT CODE FUER LEERZEICHEN +1 

.2588 

BCC 

*25AA 


KLEINER? DANN FEHLERMELDUNG 'TOO MANY CHARACTERS' AUSGEBEN 

. 253A 

DEC 

*02A8 


ZEIGER AUF OBERSTES FREIES ELEMENT DES CHARACTERGEN. ERNIEDR. 

. 25SD 

STA 

< *FB) , 

V 

NEUES ZEICHEN INS VIDEORAM BRINGEN 

. 258F 

JSR 

*25FE 


BERECHNET VEKTOR AUF CHARACTERGENERATOR & HOLT AKTUELLES BYTE 

.2592 

ORA 

< *FD) , 

Y 

SETZT PUNKT IH AKTUELLEN BYTE 

.2594 

STA 

(*FD), 

Y 

SCHREIBT BEARBEITETES BYTE IN CHARACTERGENERATOR 

.2596 

LDA 

*FC 


HOLT HIGH-BYTE DES VIDEORAMVEKTORS 

.2598 

CLO 



ADDITION VORBEREITEN 

.2599 

ADO 

♦♦*34 


WANDELT VEKTOR AUF VIDEORAM IN VEKTOR AUF FARBRAM UM 

. 259B 

STA 

*FC 


SETZT HIGH-BYTE DES VEKTORS AUF DAS FARBRAM 

. 259D 

LDY 

*02A9 


HOLT BILDSCHIRMSPALTE 

. 25A0 

LDA 

*02AD 


HOLT FARBCODE 

. 25A3 

STA 

(*FB), 

Y 

BRINGT FARBCODE INS FARBRft;: 

. 25A5 

RTS 



ZURUECK INS BASIC 

FEHLERHELDUNG ' T00 

MANY CHARACTERS' AUSGEBEN. 

. 25A6 

LDA 

#*00 


FLAG FUER 'CONT GESPERRT' 

.25A8 

STA 

*3E 


CONT SPERREN 

.25AA 

JSR 

*24DC 


GRAPHIK AUSSCHALTEN 

. 25AD 

LDA 

#*16 


ZEIGER AUF ASCII-TEXT (LOW-BYTE) DES FEHLERTEXTES 

. 25AF 

LDV 

#*24 


ZEIGER AUF ASCII-TEXT (HIGH-BYTE) DES FEHLERTEXTES 

.2581 

JSR 

*CB1E 


ASCII-TEXT AUSGEBEN 

. 25B4 

JHP 

*0462 


'ERROR' AUSGEBEN + READY-MELDUNG 

FEHLERHELDUNG 'ILLEGAL QUANTITY ERROR' AUSGEBEN: 

. 25B7 

JSR 

*24DC 


GRAPHIK AUSSCHALTEN 

. 25BA 

LDX 

#*0E 


CODENUMMER FUER 'ILLEGAL QUANTITY' HOLEN 

. 25BC 

JHP 

*0437 


FEHLERMELDUNG AUSGEBEN 

X- & 

Y-KOORDINATEN 

AUS BASICTEXT HOLEN: 

. 25BF 

JSR 

*CEFD 


TESTET AUF KOMMA IM BASICTEXT 

. 25C2 

JSR 

SD79E 


HOLT BYTE-WERT (HIER «-KOORDINATE) AUS BASICTEXT 

.2505 

CPX 

#*D0 


VERGLEICHT MIT MAXIMALWERT +1 

.2507 

BCS 

*25B? 


GROESSER/GLEICH? DANN ZU 'ILLEGAL QUANTITY ERROR' AUSGENBEN 

.2509 

TXA 




. 25CA 

LSR 



~1 

. 25CB 

LSR 



1- X-KOORDINATE/8 BERECHNEN 

.2500 

LSR 



J 

. 25CD 

STA 

♦ 02A9 


...UND ZWISCHENSPEICHERN 

. 25D0 

TXA 




. 25D1 

AND 

#*07 


REST VON (X-KOORDINATE/8) BERECHNEN 

. 25D3 

STA 

*02AA 


...UND ZWISCHENSPEICHERN 

. 25D6 

JSR 

*CEFD 


TESTED AUF KOMMA IM BASICTEXT 

. 25D9 

JSR 

*D79E 


HOLT BYTE-WERT (HIER Y-KOORDINATE) AUS BASICTEXT INS X-REG. 
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VC 20 


GRAFIK 


.25DC 

TXA 




.25DD 

LSR 


"1 


.25DE 

LSR 


1- V-KOORDINATE/16 BERECHNEN 


. 25DF 

LSR 


1 


. 25E0 

LSR 


J 


. 25E1 

STA 

*02AB 

... UND ZWISCHENSPEICHERN 


.25E4 

TXA 




. 25E5 

AND 

#*0F 

REST VON V-KOORDINATE/16 BERECHNEN 


. 25E7 

STA 

402AC 

...UND ZWISCHENSPEICHERN 


.25EA 

RTS 


ZURUECK ZUR PUNKTSETZ- BZW. -LOESCHROUTINE 


AKTUELL ZU 

BEARBEITENDES ZEICHEN AUS VIDEORAM HOLEN: 


. 25EB 

LDV 

402AB 

BILDSCHIRMZEILE HOLEN 


. 25EE 

LDA 

»242A,V 

VIDEORAMVEKTOR (LOW-BVTE) AUS TABELLE HOLEN 


. 25F1 

STA 

*FB 

...UND IN ZEROPAGE BRINGEN 


• 25F3 

LDA 

4243A,V 

VIDEORAMVEKTOR <HIGH-BVTE) AUS TABELLE HOLEN 


. 25F6 

STA 

*FC 

...UND IN ZEROPAGE BRINGEN 


. 25F8 

LDV 

402A9 

HOLT BILDSCHIRMSPALTE 


. 25FB 

LDA 

<*FB) , V 

HOLT AKTUELLES ZEICHEN AUS VIDEORAM 


. 25FD 

RTS 


ZURUECK ZUR HAUPTROUTINE 


VEKTOR AUF 

CHARACTERGENERATOR UND PUNKT BERECHNEN: 


. 25FE 

TAV 


AKTUELLES ZEICHEN ZWISCHENSPEICHERN 


. 25FF 

LSR 


1 


.2600 

LSR 


l-HIGH-BVTE DES VEKTORS AUF DEN CHARACTERGENERATOR 

BERECHNEN 

.2601 

LSR 


1 


.2602 

LSR 


J 


.2603 

CLC 


ADDITION VORBEREITEN 


.2604 

ADC 

#*10 

OFFSET FUER ANFANG DES .CHARACTERGENERATORS ADDIEREN 

.2606 

STA 

*FE 

HIGH-BVTE DES VEKTORS AUF DE*' CHARACTERGENERATORS 

SETZEN 

.2608 

T VA 


AKTUELLES ZEICHEN HOLEN 


.2609 

ASL 


~1 


. 260A 

ASL 


l-LOW-BVTE DES VEKTORS AUF DEN CHARACTERGENERATOR 

BERECHNEN 

. 260B 

ASL 


1 


. 260C 

ASL 


J 


. 260D 

CLC 




. 260E 

STA 

*FB 

LOW-BVTE DES VEKTORS AUF DEN CHARACTERGENERATOR SETZEN 

.2610 

LDA 

*02AA 

HOLT PUNKTNUMMER 


.2613 

TAX 


IN INDEX WANDELN 


.2614 

LDA 

*244A,X 

HOLT BIT=PUNKT AUS TABELLE 


.261? 

LDV 

*02AC 

ZEILE DES AKTUELLEN ZEICHENS HOLEN 


. 261A 

RTS 


ZURUECK ZUR HAUPTROUTINE 


PUNKT 

LOESCHEN 



. 261B 

JSR 

*25BF 

HOLT X- UND V-KOORDINATE AUS BASICTEXT 


. 26 IE 

JSR 

*25EB 

HOLT AKTUELLES ZEICHEN AUS VIDEORAM 


.2621 

CHP 

#*'1A 

VERGLEICHT MIT LEERZEICHEN 


.2623 

BEQ 

*2680 

GLEICH? DANN FERTIG! 


.2625 

STA 

*02AE 

AKTUELLES 2EICHEN RETTEN 


.2623 

JSR 

*25FE 

BERECHNET VEKTOR AUF CHARACTERGENERATOR UND HOLT PUNKT 

. 262B 

EOR 

tt*FF 

BVTE INVERTIEREN 


. 262D 

AND 

< *FD >,V 

BIT = PUNK T LOESCHEN 


. 262F 

STA 

( *FD) , V 

BVTE IN CHARACTERGENERATOR EINSETZEN 


.2631 

LDV 

#400 

INDEX AUF ANFANG DES AKTUELLEN CHARACTERS 


.2633 

LDA 

<*FB>,V 

EIN BVTE DES AKTUELLEN ZEICHENS HOLEN 


.2635 

BNE 

*2630 

UNGLEICH NULL (NICHT ALLE PUNKTE GELOESCHT)? DANN 

FERTIG 

.263? 

INV 


INDEX ERHOEHEN 


.2638 

CPV 

#*10 

ZEICHEN GANZ DURCHSUCHT? 


. 263A 

BNE 

*2633 

NEIN, DANN NAECHSTES BVTE TESTEN 


.2630 

LDV 

402A9 

BILDSCHIRMSPALTE HOLEN 


. 263F 

LDA 

# * 1A 

CODE FUER LEERZEICHEN 
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GRAFIK 


VC 20 


.2641 

STA 

<*FB>,Y 

LEERZEICHEN IN VIDEORAM BRINGEN 

.2643 

INC 

*02A8 

EIN ZEICHEN FREIGEBEN 

.2646 

LDX 

«*D0 

ZAEHLER FUER BYTES PRO VIDEORAMHAELFTEN INITIALISIEREN 

.2643 

LDA 

*02AE 

ZEICHEN AUS ZWISCHENSPEICHER HOLEN 

. 264B 

CMP 

*10CF,X 

GLEICH ZEICHEN IN VIDEORAM <2.TEIL) ? 

. 264E 

BEO 

*2661 

JA,DANN ZU '2EICHEN VERTAUSCHEN' FUER 2 . V IDEORAMTE IL 

.2650 

CMP 

*0FFF,X 

GLEICH ZEICHEN IN VIDEORAM Cl.TEIL) 7 

.2653 

BEO 

*2658 

GLEICH, DANN ZU •'ZEICHEN VERTAUSCHEN' FUER 1. V IDEORAMTE IL 

.2655 

DEX 


ZAEHLER ERNIEDRIGEN 

.2656 

BNE 

*2648 

UNGLEICH NULL? DANN VORGANG WIEDERHOLEN 

.2658 

LDA 

*02AE 

ZEICHEN HOLEN 

. 265B 

STA 

*0FFF, X 

...UND INS VIDEORAM BRINGEN 

. 265E 

JMP 

*2667 

ZU 'ZEICHEN KOPIEREN' 

.2661 

LDA 

*02AE 

ZEICHEN HOLEN 

.2664 

STA 

* 10CF, X 

...UND INS VIDEORAM BRINGEN 

.2667 

LDA 

*FD 

1 

.2669 

STA 

*FB 

I- VEKTOR AUF CHARACTERGENERATOR KOPIEREN 

. 266B 

LDA 

*FE 

1 

. 266D 

STA 

*FC 

J 

. 266F 

LDA 

*02A8 

FREIGEGEBENES ZEICHEN HOLEN 

.2672 

JSR 

*25FE 

VEKTOR AUF CHARACTERGENERATOR ZU DIESEM ZEICHEN BERECHNEN 

.2675 

LDV 

«.*00 

INDEX AUF ANFANG DER ZEICHEN 

.2677 

LDA 

(*FD),V 

BYTE DES ALTEN CHARACTERS HOLEN 

.2679 

STA 

<*FB>.V 

...UND IN FREIGEWORDENES ZEICHEN EINSETZEN 

. 267B 

INV 


ZAEHLER ERHOEHEN 

. 267C 

CMP 

tt $10 

MIT 16 VERGLEICHEN 

. 267E 

BNE 

*2677 

UNGLEICH? DANN NAECHSTES BYTE KOPIEREN 

.2680 

R TS 


ZURUECK INS BASIC 

GRAPHIK ABSPEICHERN: G4ER OHLin^f 

.2681 

JSR 

*24DC 

GRAPHIK AUSSCHALTEN 

.2684 

JSR 

*CEFD 

PRUEFT AUF KOMMA IM BASICTEXT 

.2687 

JSR 

*E 1D1 

HOLT FILENAME UND DEVICENUMBER 

■ 263A 

LDA 

*02A8 

ZEIGER AUF OBERSTES FREIES ZEICHEN HOLEN 

.268D 

STA 

*23FF 

...UND IN ABZUSPEICHERNDEN RAM-BEREICH BRINGEN 

.2690 

LDX 

tt*00 

LOW-BYTE DER ENDADRESSE DES GRAPHIKSPEICHERS 

.2692 

LDV 

« *24 

HIGH-BYTE DER ENDADRESSE DES GRAPHIKSPEICHERS 

.2634 

TXA 


LOW-BYTE DER ANFANGSADRESSE DES GRAPHIKSPEICHERS 

.2695 

STA 

*FD 

ALS VEKTOR-LOW-BYTE IN ZEROPAGE BRINGEN 

.2697 

LDA 

«*12 

HIGH-BYTE DER STARTADRESSE DES GRAPHIKSPEICHERS HOLEN 

.2699 

STA 

*FE 

...UND ALS VEKTOR-HIGH-BYTE IN ZEROPAGE BRINGEN 

. 269B 

LDA 

«*FD 

ADRESSE DES VEKTORS AUF START DES GRAPHIKSPEICHERS 

. 269D 

STA 

*B9 

...FUER SAVE-ROUTINE ZUGAENGLICH MACHEN 

. 269F 

JMP 

*FFD 8 

ZUR 'SAVE'—ROUT INE DES BETRIEBSSYSTEMS 

GRAPHIK EINLADEN 


.26A2 

JSR 

*24DC 

GRAPHIK AUSSCHALTEN 

. 26A5 

JSR 

*CEFD 

PRUEFT AUF KOMMA IM BASICTEXT 

. 26A8 

JSR 

$E 1 D 1 

HOLT FILENAME UND DEVICENUMBER 

. 26AB 

LDA 

#*01 

KONSTANTE FUER 'ABSOLUT LADEN' 

. 26AD 

STA 

*B9 

... FUER LOAD-ROUTINE SETZEN 

. 26AF 

LDA 

«*00 

FLAG FUER LOAD 

. 26B1 

JSK 

*F FD5 

ZUR LOAD-ROUTINE DES BETRIEBSSYSTEMS 

. 26B4 

LDA 

*23FF 

ZEIGER AUF OBERSTES FREIES ZEICHEN HOLEN 

• 26B7 

STA 

*Ü2AS 

... UND AN DIE VORGESEHENE STELLE BRINGEN 

. 26BA 

R TS 


ZURUECK INS BASIC 

NM I-ROUTINE: 


. 26EE 

PHA 


AKKU RETTEN 

. ZcBC 

TXA 


X-REGISTER IN AKKU UEBERTRAGEN 

. 25BD 

FHA 


X-REGISTER RETTEN 

Listing 3. Quell-Code-Listing zu »Hyper-Graphics« 


66 


SONDERHEFT 3/1986 






VC 20 
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. 26EE 

T VA 


V-REGISTER IN AKKU UEBERTRAGEN 


. 26EF 

PHA 


V-RE 6 ISTER RETTEN 


. 26C0 

LDA 

$9 HD 

AKKU MIT IFR DES VIAl LADEN 


. 26C3 

BPL 

*26EA 

IRQ-BIT GESETZT? DANN ZURUECK 


.26CS 

AND 

*91 IE 

NICHT FREIGEGEBENE INTERRUPTS AUSSIEBEN 


. 26C8 

TAX 


ERGEBNIS RETTEN 


.2609 

AND 

44*02 

30HIEBEREGISTERFLAG ISOLIEREN 


.26CB 

BE« 

*26ED 

ZUR NMI-ROUT INE FUER SERIELLE SCHNITTSTELLE 


.26CB 

BIT 

*9111 



.261)8 

JSR 

*F734 

ERHOEHT UHRZEIT UND FRAGT STOP-TASTE AB 


. 26D3 

JSR 

*FFE1 

FRAGT AUCH DIE STOP-TASTE AB <IM BETRIEBSSVTEM 

SO VORGESEHEN) 

. 261)6 

BNE 

*26EA 

NICHT GDRUECK T? DANN ZURUECK 


.261)3 

JSR 

*FD52 

BETRIEBSSYSTEMVEKTOREN NEU SETZEN 


. 261)B 

JSR 

*26FS 

NM I-VEKTOR NEU SETZEN 


• 26DE 

JSR 

*FD9F 

INITIALISIERT I/O-REGISTER 


. 26E1 

JSR 

*E518 

INITIALISIERT VIDEOCONTROLLER UND LOESCHT BILDSCHIRM 

. 26E4 

JSR 

*24D0 

SCHALTET AUF HVPERGRAPHIC-TEXTMODUS <~ GRAPHIK 

AUSSCHALTEN) 

. 26E7 

JMP 

<* 0002 ) 

ZUM BASIC-KALTSTART 


. 26EA 

JMP 

*FF56 

RUECKKEHR VOM INTERRUPT 


.26ED 

JMP 

*FEDE 

ZUR NMI-ROUTINE FUER SERIELLE SCHNITTSTELLE 


.26F0 

LDA 

44*BB 

LOW-BYTE DES HYPERGRAPHIC-NMI-VEKTORS HOLEN 


. 26F2 

STA 

*0318 

...UND EINSETZEN 


. c-oFS 

LDA 

♦4*26 

HIGH-BYTE DES HYPERGRAPH IC-NMI-VEKTORS HOLEN 


.26F? 

STA 

*0319 

...UND SETZEN 


■ ZoFft 

R TS 


RUECKSPRUNG 


HVPERGRAFHICS START- 


. 26FB 

SEI 


INTERRUPT SPERREN 


. 26F0 

JSR 

*26F8 

HYPERGRAPHIC-NMI-VEKTOR SETZEN 


. 26FF 

LDA 

*0300 

LOWBYTE DES VEKTORS AUF AUSGABE EINER FEHLERMELDUNG HOLEN 

.2702 

STA 

*273A 

... UND RETTEN 


.2765 

LDA 

*0301 

DAZUGEHOERIGES HIGH-BYTE HOLEN 


.2708 

STA 

*273B 

... UND ENTSPRECHEND SETZEN 


. 270B 

LDA 

#*2D 

LOW-BYTE DES NEUEN FEHLERMELDUNGSAUSGABEVEKTORS HOLEN 

. 270D 

STA 

*0300 

... UND SETZEN 


.2710 

LDA 

44*27 

ENTSPRECHENDES HIGH-BYTE HOLEN 


.2712 

STA 

*0301 

...UND ENTSPRECHEND SETZEN 


.2715 

JSR 

*24DC 

HYPERGRAPH IC-MODUS AUF TEXT STELLEN <= GRAPHIK 

AUSSCHALTEN) 

.2718 

LDA 

#*27 

HIGH-BYTE DES HYPERGRAPH ICS-BASIC-SfARTS HOLEN 


. 271A 

STA 

*20 

... UND IN DIE DAFUER VORGESEHENEN SPEICHERSTELLEN BRINGEN 

.2710 

STA 

*0282 



. 271F 

LDA 

#*40 

ENTSPRECHEND MIT DEM LOW-BYTE VERFAHREN 


.2721 

STA 

*FB 

II 


.2723 

STA 

*0281 

•• 


.2726 

JSR 

*0644 

BAS IC-BEFEHL NEW AUSFUEHREN 


.2729 

CLI 


IRO WIEDER FREIGEBEN 


. 272A 

JMP 

*0474 

ZUM READV-EINSPRUNG 


AUSGABE EINER FEHLERMELDUNG: 


. 272D 

STX 

*2739 

FEHLERNUMMER RETTEN 


.2730 

JSR 

*24DC 

GRAPHIK AUSSCHALTEN 


.2733 

LDX 

*2739 

FEHLERNUMMER HOLEN 


.2736 

JMP 

< *273A) 

ZU 'FEHLERMELDUNG AUSGEBEN' 


GRAPHIK AUSSCHALTEN: 


. 24BC 

LDA 

*9005 

HOLT ZEIGER AUF CHARACTERGENERATOR 8 . VIDEORAM 


.-24DF 

CMP 

#*C 0 

GRAPHIK AUS? 


. 24E1 

BEO 

*2510 

JA. DANN FERTIG 


. 24E3 

LDX 

H*D0 

“1 


. 24E5 

LDA 

*0FFF,X 

1 


. 24E8 

STA 

»1FFF,X 

1 
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. 24EB 

LDA 

*10CF,X 

1 

. 24EE 

STA 

*20CF,X 

1- SIEHE *2499 - *24B4 

. 24F i 

LDA 

*93FF , X 

I <HIER UMGEKEHRTE FUNKTION) 

. 24F4 

STA 

*219F , X 

1 

. 2-tF7 

LDA 

*94CF,X 

1 

. 2 4FA 

STA 

*226F,X 

1 

. 24FD 

DEX 


1 

. 24FE 

BNE 

*24E5 

J 

.2560 

..DA 

4*70 

1 

. 2502 

LDA 

*ii9F,x 

1 

.2530 

STA 

*233F,X 

I- SIEHE *24B6 - *24BF 

. 2533 

DEX 


I <H IER UMGEKEHRTE FUNKTION) 

.2505 

BHE 

*2502 

J 

. 250E 

JSR 

*E55F 

BILDSCHIRM LOESCHEN 

. 250£ 

LDV 

4*02 

CODE FUER FARBE ROT IM FARBRAM 

.2510 

LDX 

4*16 

ANZAHL DER ZEICHEN PRO ZEILE 

.2512 

LDA 

*23FF,X 

HOLT BILDSCHIRMCODE AUS TABELLE 

. 2515 

STA 

*11F9,X 

BRING ZEICHEN AUF BILDSCHIRM 

.2518 

T VA 


HOLT FARBCODE 

.2519 

STA 

*95F9/X 

SETZT FARBCODE 

. 251C 

DEX 


ZAEHLER ERNIEDRIGEN 

. 251D 

ENE 

*2512 

UNGLEICH NULL? DANN VORGANG WIEDERHOLEN 

. 25 IF 

LDV 

4*06 

ZAEHLER FUER ANZAHL DER VIDEOCONTROLLER-WERTE 

.2521 

LDA 

*EDE3,V 

HOLT VIDEOCONTROLLER-WERTE AUS DEM ROM 

.2524 

STA 

* 8 FFF,V 

SETZT VIDEOCONTROLLER-WERTE 

.2527 

DEX 


ZAEHLER ERNIEDRIGEN 

.2528 

BNE 

*2521 

UNGLEICH NlilLL? DANN VORGANG WIEDERHOLEN 

. 2526 

LDA 

4*22 

BILDSCHIRM VERTIKAL ZENTRIEREN 

. 252C 

STA 

*9001 

II 

. 252F 

LDA 

4*30 

KONSTANTE FUER 24-ZEILEN-BI* SCHIRM HOLEN 

.2531 

STA 

*9003 

... UND IN VIDEOCONTROLLER SETZEN 

.2534 

RTS 


ZURUECK INS BASIC 

Listing 

3. Quell-Code-Listing zu »Hyper-Graphics« (Schluß) 


10 REM****************************** <064> 
20 REM* HYPER-GRAPHIK DEMO * <194> 
30 REM* (C) 1985 BY JOACHIM BROCKE * <026> 
40 REM* DIETRICH—BONHOEFFERSTR.—5 * <013> 
50 REM* 4790 PADERBORN * <104> 
60 REM****************************** <114> 
70 REM FESTLEGUNG DER STARTADRESSEN DER EINZELNEN ROUTINEN <254> 
80 IN=9330sREM'GRAPHIC ON' <024> 
90 CL=IN+3sREM GRAPHIC CLEAR' <102> 
100 SE=IN+6:REM'POINT SET' <194> 
110 RS=IN+9:REM'RESET POINT' <166> 
120 GS=IN+12:REM'GSAVE' <174> 
130 GL=IN+15:REM'GLOAD' <181> 
140 0F=IN+1B!REM'GRAPHIC OFF' <201> 
150 REM MENUE <082> 
160 PRINT"<CLR>HYPER-GRAPHICS DEMO " <082> 
170 PRINT"CDOWNJBITTE WAEHLENs" <151> 
180 PRINT"{DOWN>3D—EFFEKT-BILD (-1-)" <051> 
190 PRINT"CDOWN>SINUSKURVEC5SPACE> <-2-)" <255> 
200 PRINT"<DOWN>RECHTECKEC6SPACEJ(—3—)" <233> 
210 PRINT"<DOWN>TEXT + GRAPHIK (-4-)" <253> 
220 GET X$ <102> 
230 IF VAL<X*><1 OR VAL(X$)>4 THEN 220 <012> 
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240 REM WAHL DER FARBEN 

250 PRINT"<D0WN>NACH DEM PLOTTEN<65PACE JTASTE DRUECKEN" 

260 INPUT"RAHMENFARBE";RF 

270 IF RF<0 OR RF>7 THEN PRINT"FEHLER!":GOTO 260 
280 INPUT"HINTERGRUNDFARBE";HF 

290 IF HF<0 OR HF>15 THEN PRINT"FEHLER!":GOTO 280 
300 INPUT"PUNKTFARBE "5 PF 

310 IF PF<0 OR PF>7 OR PF=HF THEN PRINT"FEHLER!":GOTO 300 
320 POKE 646,PF:REM ZEICHENFARBE IM TEXT-MODUS FESTLEGEN 
330 POKE 36879,8+RF+16*HF:REM RAHMEN- UND HINTERGRUNDFARBE SETZEN 
340 REM VERZWEIGENINGEWAEHLTESUNTERPROGRAMM: 

350 ON VAL(X$)GOSUB 1200,400,470,1310: 

360 POKE 198,0:WAIT 198,1:REM AUF TASTE WARTEN 

370 SYS OF-.REM GRAPHIK AUSSCHALTEN 

380 RUN:REM NEUSTART 

390 REM*** DIE UNTERPROGRAMME *** 

400 REM SINUSKURVE 

410 SYS IN:SYS CL 

420 X=—1: FOR I=-l.TOiSTEP 2*±/208 

430 X=X+1:Y=SIN(I) 

440 SYS SE,X,Y*127+127,PF 
450 NEXT I 
460 RETURN 
470 REM RECHTECKE 
480 SYS IN:SYS CL 
490 FOR 1=16 TO 20B-16 
500 SYS SE,1,16,PF 
510 SYS SE,I,255-16,PF 
520 NEXT 

530 FOR 1=31 TO 20B-31 
540 SYS SE,1,31,PF 
550 SYS SE, I ,255-31 ,PF 
560 NEXT 

570 FOR 1=16 TO 255-16 
580 SYS SE,16,1,PF 
590 SYS SE,208-16,1,PF 
600 NEXT 

610 FOR 1=31 TO 255-31 
620 SYS SE,31,1,PF 
630 SYS SE,208-31,1,PF 
640 NEXT 

650 FOR 1=64 TO 208-64 
660 SYS SE,1,64,PF 
670 SYS SE,1,255-64,PF 
680 NEXT 

690 FOR 1=71 TO 208-71 
700 SYS SE,1,71,PF 
710 SYS SE,I,255-71,PF 
720 NEXT 

730 FOR 1=86 TO 255-86 
740 SYS SE,86,1,PF 
750 SYS SE,208-86,1,PF 
760 NEXT 

770 FOR 1=90 TO 255-90 
7B0 SYS SE,90,1,PF 
790 SYS SE,208-90,1,PF 
800 NEXT 

810 FOR 1=86 TO 208-86 
820 SYS SE,1,86,PF 
830 SYS SE,I,255-86,PF 
840 NEXT 

850 FOR 1=90 TO 208-90 
860 SYS SE,1,90,PF 
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<043> 
< 162> 
<253> 
<039> 

< 107> 
<214> 

< 128> 
<057> 

< 158> 
<037> 
<090> 
<218> 

< 120 > 
<209> 
< 012 > 
<233> 
<009> 
<031 > 
<237> 

< 159> 
<009> 
<024> 
<008> 

< 194> 
< 101 > 
< 020 > 

< 126> 
< 116> 
< 022 > 
<189> 
< 160> 
<030> 
< 062 > 
<100> 
<240> 
<075> 
<102> 
< 011 > 
<021 > 
<0B3> 

< 142> 
<230> 
<033> 
<03B> 

< 182> 
<029> 
<068> 
<254> 
< 222 > 
<085> 
<082> 
<007 > 
<006> 
< 110 > 

< 185> 
<005> 
<008> 

< 169> 
<201 > 
<040> 
<088> 
<192> 
<230> 
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B70 SYS SE,I,255-90,PF <160> 
8B0 NEXT <12B> 
B90 FOR 1=64 TO 255-64 <214> 
900 SYS SE,64,1,PF <114> 
910 SYS SE,20B—64,I,PF <145> 
920 NEXT <16B> 
930 FOR 1=71 TO 255-71 <013> 
940 SYS SE,71,1,PF <0BB> 
950 SYS SE,20B-71,1,PF <165> 
960 NEXT <208> 
970 FOR 1=100 TO 208-100 <034> 
980 SYS SE,1,100,PF <174> 
990 SYS SE,I,255-100,PF <029> 
1000 NEXT <248> 
1010 FOR 1=102 TO 208-102 <076> 
1020 SYS SE,1,102,PF <222> 
1030 SYS SE,1,255-102,PF <199> 
1040 NEXT <034> 
1050 FOR 1=100 TO 255-100 <112> 
1060 SYS SE,100,1,PF <088> 
1070 SYS SE,208-100,I,PF <103> 
1080 NEXT <074> 
1090 FOR 1=102 TO 255-102 <154> 
1100 SYS SE,102,1,PF <130> 
1110 SYS SE,208-102,1,PF <175> 
1120 NEXT <114> 
1130 X=—1:FOR 1=1 TO 102 <210> 
1140 Y=I <010> 
1150 SYS SE,I,Y,PF <255> 

1160 SYS SE,208-1,Y,PF _ < 135> 

1170 SYS SE, 1,255-Y,PF Onun^i <013> 
1180 SYS SE,208-1,255-Y,PF <0B9> 
1190 NEXT I:RETURN > . <118> 
1200 REM 3—EFFEKT—BILD <212> 
1210 SYS IN:SYS CL <069> 
1220 DEF FN A(Z)=90*EXP<-Z*Z/1500) <110> 
1230 G=100:K=50:FOR X=-103 TO 0:L=-50:H=5*INT(SQR(10816—X*X)/5) <176> 
1240 FOR Y=H TO-H STEP-5:Z=25+FN A(SQR<X*X+Y*Y>>-.6*Y <060> 
1250 X1=G+X:Y1=256—Z—K:X2=G-X <081> 
1260 IF Z>L THEN L=Z:SYS SE,X1+3,Y1,6:SYS SE,X2+3,Y1,6 <046> 
1270 NEXT Y,X <159> 
1280 RETURN <068> 
1290 SYS OFsPOKE 36879,27:PRINT"{BLUE> <199> 
1300 RETURN <08B> 
1310 REM TEXT+GRAPHIK <002> 
1320 INPUT"<CLR>ASC11—TEXT C3SPACE >OKTAEDER <10LEFT >";TE$ <045> 
1330 IF LEN(TE$)>16 OR TE$=""THEN 1320 <200> 
1340 SYS CL: SYS IN <126> 
1350 REM ASCII-TEXT (A-Z UND SPACE BIS ?)IN PUNKTE WANDELN <207> 
1360 FOR 1=1 TO LEN(TE$) <157> 
1370 A=ASC(MID*(TE$,I,1)>:IF A>63 THEN A=A-64 <067> 
1380 X=I*B:REM STARTKOORDINATE DES TEXTES (X-RICHTUNG) <006> 
1390 AD=3276B+A*8:REM ADRESSE DES ZEICHENS IM CHARACTERGENERATOR <033> 
1400 FOR J=0 TO 7 <207> 
1410 A=PEEK(AD+J):REM EINES DER B BYTES DES ZEICHENS HOLEN <150> 
1420 FOR K=0 TO 7 <235> 
1430 P=A AND 2t(7—K):REM EINES DER 8 BITS PRO ZEILE DES ZEICHENS ISOLIER 

EN <24B> 
1440 IF P THEN SYS SE,X+K,2*J+16,PF:REM BIT GESETZT7DANN PUNKT SETZEN <204> 
1450 IF P THEN SYS SE,X+K,2*J +17,PF:REM BIT GESETZT7DANN PUNKT SETZEN <218> 
1460 NEXT K,J,I <220> 
1470 SYS IN:GOSUB 1490:REM OKTAEDER ZEICHNEN <075> 
1480 RETURN <012> 
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1490 

REM OKTAEDER 

<219> 

1500 

FÜR X =66 TO 133 

<225> 

1510 

SYS SE,X+30,127,PF 

< 150> 

1520 

SYS SE,X+30,128,PF 

< 193> 

1530 

SYS SE,(X AND 252)+68,127-18,PF 

<030> 

1540 

NEXT X 

< 220 > 

1550 

Y=127:FOR X=67 TO 101 

< 159> 

1560 

SYS SE,<X+30)AND 254,Y,PF 

< 123> 

1570 

SYS SE,X+97,Y,PF 

<004> 

1580 

SYS SE,X+96,Y,PF 

< 012 > 

1590 

Y-Y-.5 

< 107> 

1600 

NEXT X 

<024> 

1610 

REM SYSSE,118,118,1 

<14B> 

1620 

Y=12Bs FOR X =66 TO 118 

< 157> 

1630 

SYS SE,X+30,Y,PF 

<044> 

1640 

SYS SE,X+30,Y+l,PF 

<034> 

1650 

SYS SE,X+30,256—Y,PF 

<062> 

1660 

SYS SE,X+30,255-Y,PF 

<040> 

1670 

Y=Y+1.5. 

<014> 

1680 

NEXT X 

< 104> 

1690 

Y=110:FOR X=102 TO 118 

<049> 

1700 

SYS SE,X+30,Y,PF 

< 114> 

1710 

Y=Y +6 

<043> 

1720 

NEXT X 

< 144> 

1730 

Y=207:FOR X=118 TO 133 

<211 > 

1740 

SYS SE,X+30,Y—1,PF 

<150> 

1750 

SYS SE,X+30,Y—4,PF 

< 000 > 

1760 

SYS SE,X+30,Y—2,PF 

< 202 > 

1770 

SYS SE,X+30,Y—3,PF 

<244> 

1780 

SYS SE,X+30,Y—5,PF G46B OnUITP'< 

<062> 

1790 

Y=Y—5 

<091 > 

1800 

NEXT X 

<226> 

1810 

Y=206:FOR X=118 TO 169 

<244> 

1820 

SYS SE,X+30,Y,PF 

<236> 

1830 

SYS SE,X+30,Y-1,PF 

<242> 

1840 

Y=Y—1.9 

<222> 

1850 

NEXT X 

< 020 > 

1860 

Y=110:FOR X=102 TO 118 

<221 > 

1870 

SYS SE,X+30,Y,PF 

<030> 

1880 

Y=Y—3 .8 

< 133> 

1890 

NEXT X 

<060> 

1900 

Y=49:FOR X=148 TO 164 

< 000 > 

1910 

SYS SE,X,Y,PF 

< 193> 

1920 SYS SE.X.Y+l.PF 

<071 > 

1930 

SYS SE,X,Y+2,PF 

<085> 

1940 

SYS SE,X,Y+3,PF 

_ . <099> 

1950 

SYS SE,X,Y+4,PF 

< 113> 

1960 

Y=Y+4.B 

<246> 

1970 

NEXT X 

< 140> 

1980 

Y=49:FOR X=148 TO 200 

< 137> 

1990 

SYS SE,X,Y,PF 

<017> 

2000 

Y=Y+1.15 

< 192> 

2010 

NEXT X 

< 1 B 0 > 

2020 

RETURN 

<044> 

© 64 

'er 


Listlng 4. Demo-Programm für »Hyper-Graphics« (Schluß) 
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GRAFIK 


VC 20 + 16 KByte 


19 tolle 
Grafik- 
Befehle für 
den VC 20 


$0308 / $0309 Vektor für Basic-Befehl 
$030A / $030B Vektor für Ausdruck auswerten 

Der Speicherbereich $02A6 bis $02FF wird vom Pro¬ 
gramm als Zwischenspeicher genutzt. 

Die x-Position des Grafik-Cursors ist in $02A6 gespei¬ 
chert, die y-Position in $02A7. 


Eingabe des Programms 

Vor der Programmeingabe muß folgende Zeile eingegeben 
werden 

1 SYS 8192 

Dann wird im Direktmodus eingegeben: 

POKE 44,43:P0KE 43*256,0:NEW 


Mit dieser Basic-Erweiterung kommen auch Sie 
als VC 20-Besitzer mit einer 16-KByte-Erweiterung 
in den Genuß, hochauflösende Grafiken einfach 
zu erstellen. 

F ür die Befehlserweiterung ist mindestens eine Speicher¬ 
erweiterung von 16 KByte erforderlich. Das normale 
Commodore-Basic V.2 wird um 19 Befehle und 5 Funk¬ 
tionen erweitert. 13 dieser neuen Befehle dienen zur leichte¬ 
ren Handhabung der Grafikfähigkeiten des VC 20. 

Mit GLOAD und GSAVE können die Grafiken dann geladen 
und gespeichert werden. 

Es besteht die Möglichkeit, Grafiken anderer Programme 
zu laden und auf den Bildschirm zu bringen. Da jedoch oft das 
Bildschirmformat unterschiedlich ist, muß der Bildschirm der 
jeweiligen Grafik angepaßt werden. Dies wird mit Hilfe des 
SCREEN-Befehls erreicht. Für das Format von »JOYPAINT« 
aus 64'er, Ausgabe 2/65 hätte der Befehl folgendes Ausse¬ 
hen: 

SCREEN 21,9,64 
Das heißt: 

21 Spalten (8*21 = 168 Bildpunkte) 

9 Zeilen (16*9 = 144 Bildpunkte) 

64 = 1. Zeichen in Bildschirmcode links oben in der Bild¬ 
schirmecke. 

Ist der Grafikmodus eingeschaltet, kann kein Text einge¬ 
blendet werden. Einige der Grafikbefehle sind der Turtle- 
Grafik für den C 64 aus der Ausgabe 11/84 entliehen. Zur ein¬ 
facheren Handhabung des Textmodus sind die Befehle CUR¬ 
SOR und SCROLL gedacht. 

Die Speicherplatzbelegung sieht wie folgt aus: 


Hiermit wird der Basic-Anfang auf $2B00 (dez=43* 256) 
hochgesetzt. Jetzt kann der Basic-Lader eingegeben wer¬ 
den. Lief er ohne Fehlermeldung durch, wird POKE 44,16 ein¬ 
getippt. Läßt man das Programm jetzt listen, so darf nur 

1 SYS 8192 auf dem Bildschirm erscheinen. 

Jetzt kann das Programm wie jedes Basic-Programm 
gespeichert werden. 

Alle Zusatzbefehle und Funktionen lassen sich wie die 
Commodore-Befehle abkürzen. 

nUTM^> 

Befehlserläuterungen 


CURSOR xp, yp, x$: 

xp = x-Koordinate; 
yp = y-Koordinate; 

x$ = Ausgabestring, er kann den gleichen Aufbau 
haben wie der PRINT-Befehl. 

Kann nur im Textmodus benutzt werden 

SCROLL: 

Der Bildschirminhalt wird nach oben gescrollt 

SOUND tg, th, la: 

tg = Tongenerator 0 bis 3 
th = Tonhöhe 128 bis 255 
la = Lautstärke 0 bis 15 

RENEW: 

Nach einem Reset oder NEW kann mit RENEW das 
Programm wieder in den Speicher geholt werden. Es 
darf jedoch in der Zwischenzeit keine Variable definiert 
worden sein. 

OFF: 

Die Fehlermeldungen werden unterdrückt. 


$1000 - $11 FF 
$1200 - $1 FFF 
$2000 - $2AFF 
$2B00 - $XXXX 


Bildschirm 

Grafik 

Basic-Erweiterung 

Basic-Programmspeicher 


Als Sprungvektoren werden benutzt: 

$0300 / $0301 Vektor für Fehlermeldungen 
$0304 / $0305 Vektor für Interpretercode 
$0306 / $0307 Vektor für LIST 


NORM: 

Die Fehlermeldungen werden wieder eingeschaltet. 

HIRES, mo, hi, ra: 

mo =Text- oder Grafikmodus 

(Text: mo = 0; Grafik: mo = 1) 
hi = Hintergrundfarbe 0 bis 15 
ra = Rahmenfarbe 0 bis 7 
bei mo = 1 wird die Zeichenfarbe = 1, der Grafik- 
Cursor an die Position 80,80 gesetzt. 
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VC 20 + 16 KByte 


GRAFIK 


COLOR fa, hi, ra: 

fa = Farbe, in der gezeichnet wird 
hi = Hintergrundfarbe 
ra = Rahmenfarbe 

Die Hintergrund- und Rahmenfarbe kann auch wegge¬ 
lassen werden. Das gleiche gilt für den Befehl HIRES. 
Die Befehle sähen dann wie folgt aus: 

»HIRES mo« Oder »COLOR fa«. 

SCREEN sp, zl, ze: 

sp = Bildschirmbreite: 

zl = Bildschirmhöhe; 

ze = erstes Zeichen auf dem Grafikschirm 

Im normalen Grafikmodus ist sp = 20, zl = 10, 

ze = 32. Das heißt, es gibt 8*20=160 Punkte in x- 

Richtung und 16*10=160 Punkte in y-Richtung. 

Im Textmodus entspricht sp der Spaltenzahl und zl 
der Zeilenzahl, ze kann weggelassen werden, wenn 
nur die Bildgröße verändert werden soll. Mit Hilfe die¬ 
ses Befehls ist es möglich, Grafiken anderer Grafikpro¬ 
gramme auf den Bildschirm zu bringen. 

GLOAD x$, nr: 

x$ = Name der zu ladenden Grafik; 
nr = Device-Nummer 
(Kassette nr = 1; Diskette nr = 8) 

Es können auch Grafiken anderer Programme geladen 
werden. 

GSAVE x$, nr: 

x$ = Name der zu speichernden Grafik 
nr = Gerätenummer 

CLEAR: 

Grafikbildschirm löschen 


Funktionserläuterungen 


JOY: 

Ist (JOY AND 23) = 16, dann wird der Joystick in 
keine Richtung bewegt. 

Ist (JOY AND 23) < 16, dann wird der Joystick in die 
angegebene Richtung gedrückt. 

Bei (JOY AND 8)=8 wird der Feuerknopf betätigt. 

MULT$(x$, xx) 

x$ = String; 

xx = Wert, mit dem x$ verlängert wird. 

Beispiel: 

MULT$(* +.’ ,3) = " +.+.+.* 

HEX$(xx): 

xx wird in einen 4-stelligen Hexadezimalstring umge¬ 
wandelt. 

BIN$(xx): 

xx wird in einen 8 -stelligen Binärstring umgewandelt. 
DEC(x$): 

x$ wird in eine Dezimalzahl umgerechnet. 

Ist LEN(x$) = 4 oder = 2, dann wird vom Hexadezimal¬ 
system ausgegangen. 

Ist LEN(x4)=8, wird vom Binärsystem ausgegangen. 


$xxxx 

$XXXX ist eine 4-stellige Hexadezimalzahl. 
Beispiel: 

?$1E00 

6*eR cjnuni*7^ 0 


MODE mo: 

mo= Zeichenmodus 

(Zeichen mo = 0; Löschen mo = 1; Invertieren 
mo = 2 ) 

mo > 2 hebt den Grafik-Cursor, es wird weder 
gezeichnet noch gelöscht. 

PLOT xp, yp: 

xp = x-Koordinate; 
yp = y-Koordinate 

Der Grafik-Cursor wird an die Position xp, yp gesetzt. 

DRAW xp, yp: 

xp =x-Koordinate; 
yp = y-Koordinate 

Es wird eine Linie von der alten x, y-Position zu den 
Koordinaten xP, yP gezogen. 

DEG ri: 

ri = Richtung 

0 

7 1 

6*2 
5 3 

4 

RETURN ri: 

Die Richtung wird um »ri«-Einheiten nach rechts 
gedreht. 

LTURN ri 

Die Richtung wird um »ri«-Einheiten nach links gedreht. 

MOVE vo: 

Es wird eine Linie mit »vo«-Punkten in die gesetzte 
Richtung gezogen. 


Lassen Sie sich also nicht durch die »endlose« DATA-Wüste 
abschrecken. 

Denn hat man diese Einöde bewältigt, so verfügt man über 
eine nützliche Befehlserweiterung. 

(Th. Schaper/ah) 


20 REM THORSTEN BCHAPER <237> 
25 REM KURZE KAMP3TR.21 <010> 
30 REM 3300 BRAUNSCHWEIG <06B> 
35 REM <097> 
50 PRINT"CCLR)#*«« TH.BASIC GR ****«" <001> 
35 PRINT"CDOWNJ<C> BY <020> 
60 PRINT"CD0WN.3SPACE)THORSTEN SCHAPER" <102> 
65 PRINT"CD0WN,3SPACEJKURZE KAMPSTR.21" <200> 
70 PRINT"CD0WN,3SPACE)3300 BRAUNBCHWEIG" <191> 
75 PRINT"C2D0WN,2SPACEIBITTE WARTEN" <155> 
100 FOR N-8192 TO 10912 STEP 16 <10B> 
105 CS-0 <065> 
110 FOR M-0 TO 13 <005> 
113 READ A <153> 
120 CS-CSiA <02B> 
125 POKE N+M,A <075> 
130 NEXT M <246> 
133 READ CC <243> 
140 IF CCOCS TUEN PRINT"DATAERROR IN"1000 

>5*(N 8192)/16iSTOP <212> 
145 NEXT N <013> 
150 SYS Bl92 <151> 


1000 DATA 120,234,234,234, 32,141,233,169, 

43,141,130, 2, 32, 82,253, 32,2132 <11B> 

1005 DATA 249,253, 32, 24,229,162, 11,109, 

59, 32,137, 0, 3,202, 16,247,1B65 <221> 

1010 DATA 00,234,234,234, 32,164,227,165, 

43,164, 44, 32, 8,196,169, 71,2105 <045> 

1015 DATA 160, 32, 32, 30,203, 32, 10,22B, 

76,129,227, 58,196,131,196,229,1977 <158> 

1020 DATA 32,152, 33,226, 33, 17, 41, 42, 

42, 42, 42, 32, 84, 72, 46, 32, 960 <036> 

1025 DATA 66, 65, 83, 73, 67, 32, 71, 02, 

32, 42, 42, 42, 42, 13, 29, 29, 810 <052> 
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GRAFIK 


VC 20 + 16 KByte 


1030 

DATA 

27, 27, 

27, 

71, 82, 65, 70, 

73, 



75, 13, 13, 

B, 

0, B, B, B, 

549 

<080> 

1035 

DATA 

0, 0, 

0, 

0, 0, 0, 0, 

Bi 



0, 

0, 0, 

B, 

0, B, B. Bi 

0 

<066> 

1040 

DATA 

0, 0, 

B, 

0, B. B, B, 

Bi 



0, 

0, 0, 

B, 

0, 0, 0, 0, 

0 

<071 > 

1045 

DATA 

0, 0, 

B, 

0, 0, 0, 0, 

Bi 



B, 

0, 0, 

B, 

0, 0, 0, 0, 

0 

<076> 

1050 

DATA 

0, 0, 

0, 

0, 0, 0, B, 

0, 



B, 

0, 0, 

B, 

0, 0, 0, B, 

0 

<081 > 

1055 

DATA 

0, 0, 

Bi 

0, 0, 0, 0, 

01 



B, 

0, 0, 

0. 

0, 0, 0, 0, 

0 

<086> 

1060 

DATA 

0, 0, 

B, 

0, 0, 0, 0, 

0, 



B, 

0, 0, 

B, 

0, B, 0, 0. 

0 

<091 > 

1065 

DATA 

0, B, 

01 

0, 0, 0, 0, 

B, 



Bi 

0, 0, 

B, 

0, 0, 0, 0, 

0 

<096> 

1070 

DATA 

0, 0, 

Bi 

0, 0,166,122, 

160, 



4,132, 15,189, 

0, 2, 16, 7, 

B13 

<011> 

1075 

DATA 

201,255 

,240 

, 62,232,208,244 

,201, 



32,: 

240, 55, 

133, 

8,201, 34,240, 

2586 

<042> 

10B0 

DATA 

B6, 36, 

15, 

112, 45,201, 63, 

208, 



4,169,153,208, 

37,201, 48,144,1730 

<201 > 

1085 

DATA 

4,201, 

60, 

144, 29,132,113, 

160, 



0,132, 11,136,134,122,202,200,1780 <102> 

1070 DATA 232,187, 0, 2, 56,247,158,172, 


240,245,201,128,20B, 48, 5, 11,2164 <211> 

1075 DATA 164,113,232,200,153,251, 1,185, 

251, 1,240, 87, 56,233, 58,240,2467 <120> 

1100 DATA 4,201, 73,208, 2,133, 15, 56,2 

33, 85,208,157,133, 8,187, 0,1707 <177> 

1105 DATA 2,240,223,177, 8,240,217,200,1 

53,251, 1,232,208,240,166,122,2702 <077> 

1110 DATA 230, 11,200,185,157,192, 16,250, 

185,158,172,208,180,160,255,202,2781 <114> 

1115 DATA 200,232,187, 0, 2, 56,247,105, 

34,240,245,201,128,208, 2,240,2331 <177> 

1120 DATA 173,166,122,230, 11,200,185,104, 

34, 16,250,185,105, 34,20B,226,2247 <001> 

1125 DATA 187, 0, 2, 16,155, 76, 7,178, 

16, 66,201,255,240, 62, 36, 15,1536 <136> 

1130 DATA 48, 58,170,132, 73,201,204,176, 

10,160,172,132, 35,160,158,132,2041 <003> 

1135 DATA 34,208, 11,233, 76,170,160, 34,1 

32, 35,160,105,132, 34,160, 0,1684 <069> 

1140 DATA 10,240, 16,202, 16, 12,230, 34,2 

08, 2,230, 35,177, 34, 16,246,1708 <205> 

1145 DATA 48,241,200,177, 34, 48, 8, 32, 

71,203,208,246, 76,243,178, 76,2109 <214> 

1150 DATA 237,178, 32,201, 37,201,204,144, 

25,201,252,176, 21, 32,243, 33,2241 <213> 

1155 DATA 76,174,199,233,203, 10,168,185, 

9, 34, 72,185, 8, 34, 72, 76,1738 <167> 

1160 DATA 115, 0, 32,121, 0, 76,231,179, 

100, 37,255, 34,145, 35,169, 35,1584 <131> 

1165 DATA 183, 35,205, 35,217, 35,230, 35, 

175, 36,216, 36,235, 36, 32, 37,1780 <150> 

1170 DATA 52, 37,111, 37, 22, 38, 44, 38, 

85, 38,116,233,118, 38, 7,207,1221 <103> 

1175 DATA 7,207, 7,207, 7,207, 47, 41, 

7,207, 7,207,111, 39,212, 39,1559 <007> 


1 180 

DATA 

78, 

40,174, 40,232, 

40, 

0, 0. 



0. 

0, 

0, 0, 0, 0. 

0. 

0, 604 

<000> 

1 IBS 

DATA 

0, 

0, 0, 0, 0, 

0, 

0, 0, 



0, 

0, 

0, 0, 0, 0, 

0, 

0, 0 

<216> 

1190 

DATA 

0, 

0, 0, 0, 0, 

0, 

0, 0, 



01 ' 

70, 

79, 02,205, 72, 

73, 

02, 671 

<217> 


1195 DATA 69,211, 67, 79, 76, 79,210, 77, 

77, 68,177, 67, 76, 67, 65,210,1677 <244> 

1200 DATA 82, 84, 85, 82,206, 76, 84, 85, 

82,206, 68, 69,199, 80, 76, 79,1643 <097> 

1205 DATA 212, 77, 77, 86,177, 82, 67, 78, 

69,215, 71, 83, 65, B6,177, 71,1737 <122> 

1210 DATA 76, 79, 65,196, 79, 70,198, 68, 

82, 65,215, 83, 77, 85, 78,196,1714 <252> 

1215 DATA 67, 85, 82, 83, 79,210, 83, 67, 

82, 79, 76,204, 83, 67, 82, 69,1498 <072> 

1220 DATA 69,206, 67, 65, 76,204, B3, 85,1 

94, 67, 73, 82, 67, 76,197, 73,1684 <0B6> 

1225 DATA 78, 76, 73, 78,177, 84, 69, 88,2 

12, 77, 85, 76, 84,201, 86, 69,1633 <136> 

1230 DATA 82, B3, 73, 79,206, 74, 79,217, 

68, 69,195, 77, 85, 76, 84,164,1711 <077> 

1235 DATA 72, 69, BB,164, 66, 73, 78,164, 

0, 0, 0, 0, 0, 0, 0, 0, 774 <222> 


1240 DATA 32,158,215,224, 0,208, 6, 32, 

61, 39, 76, 26, 35,224, 1,200,1545 <144> 

1245 DATA 6, 32, 70, 39, 76, 26, 35, 76, 

72,210, 32,121, 0,240, 35, 32,1102 <107> 

1250 DATA 253,225,142,16B, 2, 32,253,225, 

224, 8, 16,235,142,169, 2,173,2269 <229> 

1255 DATA 168, 2,201, 16, 16,225, 10, 10, 

10, 10, 9, B, 13,169, 2,141,1010 <004> 

1260 DATA 15,144, 76,169, 22,141, 2,144,1 

69, 46,141, 3,144,169, 38,141,1584 <001> 

1265 DATA 1,144,169, 12,141, 0,144,169,1 

72.141, 5,144, 96,169, 20,141,16BB <020> 

1270 DATA 2,144, 9, 1,141, 3,144,169, 

45.141, 1,144,169, 14,141, 0,1268 <14B> 

1275 DATA 144,167,204,141, 5,144,162, 0, 

138, 24,105, 32,157, 0, 16,169,1610 <120> 

1280 DATA 1,157, 0,148,232,224,200,208,2 

37,169, B0,141,166, 2,141,167,2275 <031> 

1285 DATA 2, 76, 32,158,215,224, 0, 48, 

3, 76, 72,210,130,162, 0,157,1601 <016> 

1290 DATA 0.14B,232,224,200,208,248, 76, 

26, 35, 32,158,215,224, 4, 48,2078 <042> 

1295 DATA 3, 76, 72,210,142,175, 2, 96,1 

62, 10,134,252,160, 0,132,251,1885 <114> 

1300 DATA 162, 14,152,145,251,136,208,251, 

230,252,202,208,246, 96, 32,15B,2743 <042> 

1305 DATA 215,138, 24,109,174, 2, 41, 7, 

141,174, 2, 76, 32,158,215, 76,1604 <110> 

1310 DATA 88, 37,234,234,234,234,234, 32,1 

53,215,224, 8, 48, 3, 76, 72,2131 <076> 

1315 DATA 210,142,174, 2, 96, 76,255, 38, 

166, 2, 16, 12, 41,127,201, 32,1590 <201> 

1320 DATA 40, 6, 32,137, 35, 76, 72,210,2 

02, 16,236,173,166, 2,170, 41,1622 <037> 

1325 DATA 7,141,170, 2,138, 74, 74, 74,1 

41,172, 2,173,167, 2,170, 41,1548 <220> 

1330 DATA 15,141,171, 2,138, 74, 74, 74, 

74,141,173, 2,168,173,172, 2,1574 <149> 

133P DATA 192, 0,240, 6, 24,101,254,136, 

"30,250,170,189, 0, 16,134,254,2174 <179> 

1340 DATA 141, 52, 3,140, 53, 3,162, 4, 

24, 14, 53, 3, 14, 52, 3,144, 865 <000> 

1345 DATA 3,238, 53, 3,202,208,241,173, 

53, 3, 24,105, 16,133,252,173,1880 <233> 

1350 DATA 52, 3,133,251,167,128,174,170, 

2,240, 4,074,202,208,252,133,2195 <051> 

1355 DATA 253,172,171, 2,173,175, 2,208, 

7,165,253, 17,251,145,251, 96,2341 <139> 

1360 DATA 201, 1,208, 9,165,253, 73,255, 

47,251,145,251, 96,201, 2,208,2368 <114> 

1365 DATA 6,177,251, 69,253,145,251, 96, 

0,207, 0,255, 0,255, 0,191,2156 <01B> 

1370 DATA 0, 1, 1, 1, 0,255,255,255,2 

55,255, 0, 1, 1, 1, 0,255,1536 <080> 

1375 DATA 32,158,215,142,166, 2, 32,253,2 

25,142,167, 2, 76,245, 35,174,2066 <173> 

1380 DATA 174, 2,189,160, 36, 24,107,166, 

2,141,166, 2,189,168, 36, 24,1S8B <213> 

1385 DATA 107,167, 2,141,167, 2, 76,245, - 

35, 32,158,215,224, 0,240, 11,1824 <215> 

1370 DATA 142,176, 2, 32,191, 36,206,176, 

2,208,248, 96,160, 1,152,145,1773 <011> 

1375 DATA 43, 32, 51,197,165, 34, 24,105, 

2,133, 45,165, 35,105, 0,133,1269 <079> 

1400 DATA 46, 32, 96,178, 76,116,196,169, 

0, 32,187,255,162, 1,160, 1,1729 <179> 

1405 DATA 32,186,255, 32, 3,226, 32, 84,2 

26, 32,253,225,160, 1, 76,186,2007 <203> 

1410 DATA 255, 32, 7, 37,162, 0,160, 18, 

132,174,134,173,160, 32,132,175,1823 <035> 

1415 DATA 134,174, 76,133,246,166, 45,134, 

251,164, 46,132,252,169, 0,133,2255 <184> 

1420 DATA 10, 32, 7, 37,165, 10,162, 0,1 

60, 18, 32,213,255,166,251,164,1682 <074> 

1425 DATA 252,134, 45,132, 46, 76,117,225, 

173,174, 2,142,174, 2, 56,237,1987 <170> 

1430 DATA 174, 2, 76,214, 35,169, 58,141, 

0, 3,169,196,141, 1, 3, 96,1478 <028> 

1435 DATA 173, 8, 3,141, 0, 3,173, 9, 

3,141, 1, 3, 96,169,255,141,1317 <lll> 

1440 DATA 192, 2,170, 56,173,192, 2,237, 

193, 2,176, 3,206,194, 2,141,1941 <071> 

1445 DATA 192, 2,232,173,194, 2,208,235, 

96,160, 1,162, 0,185,166, 2,2010 <036> 
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1450 DATA 56,249,195, 2,240, 7,176, 4,2 

32, 76,173, 37,202,142,197, 2,1990 <013> 

1455 DATA 224, 1,20B, 7, 56,185,195, 2, 

249.166, 2,153,199, 2,173,197,2019 <214> 

1460 DATA 2,153,197, 2,136, 16,212,173,1 

99, 2,141,193, 2, 56,205,200,18B9 <008> 

1465 DATA 2,176, 6,173,200, 2,141,193, 

2,160, 1,105,199, 2,141,194,1777 <101> 

1470 DATA 2, 32,125, 37,138,153,199, 2,1 

36, 16,240,169, 0,141,208, 2,1600 <102> 

1475 DATA 141,209, 2,160, 1,105,200, 2, 

24,121,199, 2,153,200, 2,144,1761 <161> 

1400 DATA 10, 24,1B5,166, 2,121,197, 2,1 

53.166, 2,136, 16,231, 32,245,1688 <143> 

1485 DATA 35,206,193, 2,208,221, 96, 32,1 

50,215,142,195, 2, 32,253,225,2215 <097> 

1490 DATA 142,196, 2, 76,153, 37,153,199, 

2,238,193, 2, 96, 32,158,215,1894 <083> 

1495 DATA 224, 4,144, 3, 76, 72,210,134, 

250, 32,253,225,138,166,250,157,2338 <194> 

1500 DATA 10,144, 32,253,225,224, 16,176,2 

35.134.250.173, 14,144, 41,240,2311 <071> 

1505 DATA 5,250,141, 14,144, 96, 32,158,2 

15,224, 22,144, 3, 76, 72,210,1806 <196> 

1510 DATA 134,250, 32,253,225,224, 23,176, 

244, 32,253,206,164,250, 32, 12,2510 <U0> 

1515 DATA 229, 32,121, 0, 76,160,202, 32, 

158.215.173, 2,144, 41,12B,133,1846 <003> 

1520 DATA 251,138, 41,127, 5,251,133,251, 

134,252,169, 34, 56,229,252,133,2456 <002> 

1525 DATA 252, 32,253,225,138, 10,133,253, 

173, 3,144, 41,129, 5,253,141,2185 <066> 

1530 DATA 3,144,165,252,141, 0,144,165,2 

51,234, 76, 33, 39,169, 0,133,1949 <018> 

1535 DATA 13, 32,115, 0,201, 36,208, 3, 

76,200, 38,201,223,144, 3, 76,1569 <068> 

1540 DATA 93, 39, 32,121, 0, 76,141,206, 

32,219, 38,133, 98, 32,219, 38,1517 <032> 

1545 DATA 133, 99,162,144, 56, 32, 73,220, 

76,115, 0, 32,115, 0, 32,240,1529 <187> Q 

1550 DATA 38, 10, 10, 10, 10,133,251, 32,1 

15, 0, 32,240, 38, 5,251, 96,1271 <201> 

1555 DATA 201, 58,144, 2,105, 8, 41, 15, 

96, 32, 95,229, 76, 67, 35,173,1377 <113> 

1560 DATA 2,144, 41,127,133,254, 10, 10, 

10.205.166, 2,176, 3, 76, 72,1431 <233> 

1565 DATA 210,173, 3,144, 41,126, 10, 10, 

10,205,167, 2,144,240, 76, 11,1572 <170> 

1570 DATA 36,141, 2,144, 32,121, 0,201, 

44,208, 17, 32,253,225,134,254,1844 <139> 

1575 DATA 162, 0,138, 24,101,254,157, 0, 

16,232,208,246, 96, 32, 95,229,1990 <067> 

1500 DATA 32,101, 37, 76, 67, 35,169, 03,1 

41, 0, 3,169, 39,141, 1, 3,1097 <119> 

15B5 DATA 76, 93, 35,134,254, 32, 61, 39,1 

66,254, 76, 58,196, 56,233,223,1986 <041> 

1590 DATA 10,170,189, 46, 34,133,251,189, 

47, 34,133,252,108,251, 0,173,2020 <230> 

1595 DATA 34,145, 72,169,127,141, 34,145,1 

74, 32,145,134,251,104,141, 34,1882 <201> 

1600 DATA 145,173, 17,145, 41, 60,133,252, 

165,251, 41,128, 5,252,133,251,2192 <07B> 

1605 DATA 160, 0, 41, 32,20S, 2,160, 8, 

132,252,162, 7,165,251, 61,185,1826 <027> 

1610 DATA 39,208, 14,1B9,193, 39, 5,252,1 

68, 32,162,211, 76,115, 0,234,1937 <046> 

1615 DATA 234,202, 16,232,169, 16, 76,166, 

39, 4, B, 16,128, 20, 24,132,14B2 <085> 

1620 DATA 136, 0, 4, 6, 2, 7, 5, 1, 

3, 32,115, 0,201,230,144, 3, 809 <105> 

1625 DATA 76, 8,207, 96, 32, 63, 40, 32,1 

63,214,134,251,132,252,201, 2,1903 <143> 

1630 DATA 240, 11,201, 4,240, 19,201, 8, 

240, 38, 76, 72,210,160, 0, 32,1752 <117> 

1635 DATA 43, 40,168, 76,162,211, 76,115, 

0,160, 0, 32, 43, 40,133, 90,1397 <200> 

1640 DATA 160, 2, 32, 43, 40,133, 99,234, 

234, 56, 76, 69, 40, 76,115, 0,1409 <070> 

1645 DATA 160, 0,132,254,177,251, 6,254, 

41, 1, 5,254,133,254,200,192,2314 <025> 

1650 DATA 8,208,241,164,254, 76,162,211, 

76,115, 0,177,251, 32,240, 38,2253 <125> 


1655 DATA 10, 10, 10, 10,200,133,254,177,2 

51, 32,240, 38, 5,254, 96, 32,1752 <179> 

1660 DATA 115, 0, 76,241,206,162, 0,134, 

13,162,144, 76, 73,220, 32,115,1769 <130> 

1665 DATA 0, 32,250,206, 32,158,205, 32,1 

63,214,134,251,132,252,133,253,2447 <054> 

1670 DATA 32,253,206, 32,158,215,134,254, 

32.247.206.166.254.240, 14,169,2612 <041> 

1675 DATA 0, 24,101,253,144, 3, 76, 88,2 

14,202,208,245,170,138, 32,125,2023 <061> 

1680 DATA 212,165, 97,240, 34,160, 0,132, 

20,132, 21,164, 21,177,251,164,1990 <105> 

1685 DATA 20,145, 98,230, 20,230, 21,165, 

21.197.253.208, 4,169, 0,133,1914 <213> 

1690 DATA 21,165, 20,197, 97,208,228,162,2 

55,134, 13, 76,202,212, 32,115,2137 <229> 

1695 DATA 0, 32,250,206, 32,138,205, 32,2 

47,215, 32,247,206,169, 4, 32,2047 <232> 

1700 DATA 125,212,165, 21,160, 0, 32,209, 

40,165, 20, 32,209, 40, 76,167,1673 <232> 

1705 DATA 40, 72, 74, 74, 74, 74, 32,220, 

40,104, 41, 15,201, 10,144, 2,1217 <114> 

1710 DATA 105, 6,105, 48,145, 9B,200, 96, 

32,115, 0, 32,250,206, 32,158,1628 <041> 

1715 DATA 215,134,251, 32,247,206,169, 8, 

32,125,212,160, 0,162, 48,165,2166 <190> 

1720 DATA 251, 16, 1,232,138,145, 98, 6, 

251,200,192, 8,208,239, 76,167,2228 <194> 

1725 DATA 40,169, 0,133, 13, 32,115, 0,2 

01, 36,208, 3, 76,200, 38,201,1465 <233> 

1730 DATA 255,240, 7,201,230,144, 3, 76, 

93, 39, 32,121, 0, 76,141,206,1864 <144> 

1735 DATA 32,121, 0,201, 79,240, 22, 32,1 

30,205, 32,247,215,165, 20,141,1890 <051> 

1740 DATA 180, 2,165, 21,141,181, 2, 32, 

253,206, 76, 80, 41, 32,115, 0,1527 <049> 

1745 DATA 32,158,215,134,211, 32,253,225,1 

34.214, 32,253,206, 32,158,205,2494 <020> 

1750 DQTA 32,163,214,134, 98,132, 99,133, 

i"’, 160, 0,177, 98,140,182, 2,1B61 <007> 

1755 DATA 32,157, 42,172,182, 2,200,196, 

97.208.240, 96,201, 32, 16, 40,1913 <10B> 

1760 DATA 201, 13,20B, 7,169, 0,133,211, 

230.214, 96,201, 17,240,249,201,2390 <026> 

1765 DATA 18,200, 3,133,199, 96,201, 19,2 

08, 7,169, 0,133,211,133,214,1952 <119> 

1770 DATA 96,201, 29,208, 2,230,211, 96,2 

01, 64, 16, 3, 76,255, 41,201,1930 <049> 

1775 DATA 96, 16, 5, 41, 31, 76,255, 41,2 

34,170, 48, 5, 41, 95, 76,255,1485 <171> 

1780 DATA 41, 76,131, 42, 37,201,141,240,1 

87.201.145.208, 3,198,214, 96,2161 <147> 

1785 DATA 201,146,208, 5,169, 0,133,199, 

96,201,147,20B, 6, 32,184, 35,1970 <053> 

1790 DATA 76,154; 41,201,157,208, 2,198,2 

11, 96,201,192,176, 6, 56,233,2208 <084> 

1795 DATA 64, 76,255, 41,201,255,208, 5,1 

» 69, 94, 76,255, 41, 41,127,141,2049 <100> 

1800 DATA 179, 2,173,166, 2,141,176, 2, 

173,167, 2,141,177, 2,173,175,1851 <151> 

1805 DATA 2,141,178, 2,169, 3,141,175, 

2,165,211, 10, 10, 10,141,166,1526 <059> 

1810 DATA 2,165,214, 10, 10, 10,141,167, 

2, 32,245, 35,173,176, 2,141,1525 <233> 

1815 DATA 166, 2,173,177, 2,141,167, 2, 

173,178, 2,141,175, 2,173,171,1845 <240> 

1820 DATA 2, 24,101,251,133,251,165,252,1 

05, 0,133,252,173,179, 2,166,2189 <074> 

1825 DATA 199,240, 2, 9,128,133,253,169, 

0,133,254,162, 2, 6,254, 6,1950 <056> 

1830 DATA 253,144, 2,230,254,202, 16,245, 

165,253, 24,109,180, 2,133,253,2465 <162> 

1835 DATA 165,254,109,181, 2,133,254,160, 

7,177,253,145,251,136, 16,249,2492 <073> 

1840 DATA 230,211, 96, 41,127,201,127,208, 

2,169, 94,201, 32,176, 5, 9,1929 <217> 

1845 DATA 128, 76,197, 41,201, 64,176, 2, 

9, 64, 76,255, 41,177, 98, 16,1621 <206> 

1850 DATA 3, 76,131, 42, 76,124, 41, 0, 

0, 0, 0, 0, 0, 0, 0, 0, 493 <155> 

6 64'er 
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Checksummer 

20 V3 


Der Checksummer 20 V3 für den VC 20 überprüft 
jede Basic-Zeile direkt nach der Eingabe, erkennt 
Fehleingaben und auch Vertauschungen von Zah¬ 
len und Ziffern, und erspart deshalb eine auf¬ 
wendige Fehlersuche. 

D er Checksummer 20 V3 ist ein kleines Maschinen¬ 
programm, das Sie sofort unterrichtet, ob Sie die jewei¬ 
lige Programmzeile korrekt eingegeben haben. 

So gehen Sie vor: 

1. Programm abtippen und speichern. 

2. Starten mit RUN 

3. Anschalten des Checksummer 20 V3 mit SYS 955 

4. Test: Geben Sie in einer freien Zeile ein: »1 REM« und 
drücken die RETURN-Taste. Am Bildschirm oben links sollten 
Sie die Prüfsumme <63> sehen. 

5. Geben Sie ein Listing aus unserem Heft ein. Nach jeder 
Zeile wird die Zahl, die im Listing in Klammern < > steht, in 
den Bildschirm eingeblendet. Stimmen die Zahlen nicht über¬ 
ein, so liegt vermutlich ein Eingabefehler vor. Die Zahl in den 
Klammern und auch die Klammern selbst, dürfen beim 
Abtippen nicht mit eingegeben werden! 

6. Dieser Checksummer 20 V3 bemerkt auch Vertau¬ 
schungen von Zahlen und Buchstaben. 

7. Abschaltung wird mit »SYS 58459« vollzogen. 
Achtung: Nehmen Sie keine Kassetten-Operationen vor, 
wenn der Checksummer VC 20 eingeschaltet ist. Da das 
Betriebssystem den Kassettenpuffer mit Daten belegt, kann 
der Checksummer VC 20 überschrieben werden. Wollen Sie 
deshalb ein Programm auf (von) Kassette speichern (laden), 
so müssen Sie erst den Checksummer VC 20 abschalten. 

Als Sicherung wird bei der Initialisierung geprüft, ob das 
zuletzt angesprochene Peripherie-Gerät der Kassettenre¬ 
corder war. Ist das der Fall, so werden die Betriebssystem¬ 
routinen LOAD und SAVE für die Benutzung gesperrt. Der 
Computer meldet bei Aufruf einer dieser beiden Routinen 
READY, ohne weitere Aktionen durchzuführen. Diese Siche¬ 
rung kann man nach der Tipparbeit aufheben, wenn man den 
Checksummer VC 20 mit SYS 58459 abschaltet. Weiterhin 


10 REM*************** 

11 REM* * 

12 REM* CHECKSUMMER * 

13 REM* * 

14 REM* V3 VC20 * 

15 REM* * 

16 REM* WRITTEN * 

17 REM* MAERZ 1985 * 

18 REM* BY * 

19 REM*F. LONCZEWSKI* 

20 REM*************** 

21 PRINT"<CLR,SPACE,RVSON>CHECKSUMMER V3 V 
C-20fRVOFF>" 

22 PRINT"(2D0WNJEINEN MOMENT, BITTE..." 

23 FQR 1*827 TO 1019sREAD A:POKE I,A 

24 P5=PS+A+lsNEXT I 

25 IF PS<>24464 THEN PRINT"CDOWNJPRUEFSUMM 
ENFEHLER !":END 

26 SYS 981:PRINT"CHECKSUMMER AKTIVIERT." 

27 PRINT"AN :SYS981" 

28 PRINT"(DOWN1AUS;SYS58459, BEI CAS-t4SPA 
CEJSETTE ZUSAETZLICH<5SPACEJRUN/STOP & 
RESTORE" 

29 PRINT"tDQWNJBEI AKTIVIERTEM CHECK-SUMME 
R KEIN"; 

30 PRINT" CASSETTEN-BETRIEB (LOAD, SAVE)<2 
SPACEJERLAUBT!":NEW 

31 DATA 32,95,3,134,122,132,123,32,115,0,1 
70,240,243,162,255 

32 DATA 134,58,144,10,162,0,134,255,32,121 
,197,76,225,199,162 

33 DATA 1,134,255,76,156,196,166,255,224,1 
,240,3,76,96,197 

34 DATA 160,2,169,0,170,133,254,177,95,240 
,40,201,32,208,3 

35 DATA 200,208,245,133,253,138,41,7,170,2 
»i ,14,72,165,253,24 

36 DATA 42,105,0,202,208,249,133,253,104,1 
70,232,165,253,24,101 

37 DATA 254,133,254,76,119,3,192,4,48,219, 
198,214,165,214,72 

38 DATA 162,3,169,32,157,1,4,189,209,3,32, 
210,255,202,16 

39 DATA 242,166,254,169,0,32,205,221,169,6 
2,32,210,255,104,133 

40 DATA 214,32,135,229,169,141,32,210,255, 
162,0,134,255,240,148 

41 DATA 9,60,18,19,169,59,141,2,3,169,3,14 
1,3,3,165 

42 DATA 186,201,1,208,16,169,116,141,48,3, 
141,50,3,169,196 

43 DATA 141,49,3,141,51,3,173,136,2,141,17 
0,3,96 

© 64 '«?»' 


3 PRINT CHR«C14> <24Z> 

10 PRINT"(CLR>" <254> 

20 PRINT"<130> 
30 PRINT"(4DQWN,2SPACE > BEST(SPACE,BLUE,6SP 

ACE>" <022> 

40 PRINT" B ! Hl>Ma»MIia ! ri!iiaBII 'iriWW8WgTO8Tre” <10B> 


D G4'*r 


Blld 1. So könnte ein Teil eines Listings abgedruckt sein. In Zeile 
10 müssen Sie nach den Anführungsstrichen die CLEAR/HOME- 
Taste drücken und nicht die Klammern mit dem Wort CLR. In Zeile 
20 drücken Sie nach den Anführungsstrichen die Commodore- 
Taste und den Buchstaben Q, gefolgt von mehreren SHIFT- und 
Stern-Tasten und zum Schluß die Commodore-Taste und den 
Buchstaben W. In Zelle 30 ist es viermal die Cursor-nach-unten- 
Taste, gefolgt von zweimal die Leertaste, dann SHIFT und T und 
normal EST, zum Schluß noch einmal die Leertaste, die Farbtaste 
Blau (Control und 7) und sechsmal die Leertaste. Zeile 40 besteht 
lediglich aus mehreren Qrafikzeichen, die mit der Commodore- 
Taste und B erzeugt werden. 


wird dann durch gleichzeitiges Drücken der Tasten »Run- 

Stop & Restore« erreicht, daß die Betriebssystemroutinen 
LOAD und SAVE wieder eingerichtet werden. 

- Bei Benutzung einer Diskettenstation brauchen Sie nicht 
darauf zu achten, daß bei LOAD beziehungsweise SAVE der 
Checksummer VC 20 überschrieben wird, da der Kassetten¬ 
puffer für die Diskettenstation normalerweise nicht genutzt 
wird. Deshalb können Sie die beiden Routinen weiterhin nor- 


5 PRINTCHRt(14) 

10 PRINT"n" 

20 PRINT" I-1" 

30 PR I NT " fcWDSW I EST 13 

40 PRINT"V.V.V.V.V.ViV.'.V.V.V.V^V.V.V’ 


Bild 2. Auf dem Bildschirm oder Ihrem Drucker sieht das Listing 
(Bild 1) so aus. 
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mal nutzen, sofern der Computer bei der Initialisierung des 
Checksummer VC 20 feststellt, daß das zuletzt angespro¬ 
chene Peripherie-Gerät nicht der Kassettenrecorder war. 

- Wird eine Zeile gelöscht, also eine Zahl zwischen 0 und 
65999 eingegeben und danach Return gedrückt, so wird 
eine Checksumme ausgegeben, die aber keine Bedeutung 
hat. 

Sie können die Programme auch weiterhin ohne den Check¬ 
summer eintippen. 

(F. Lonczewski/gk) 

Hinweis: j13 SPACE| bedeutet 13mal die Leertaste drücken 

Wie unsere Basic-Programme 
einzugeben sind 


Unsere Basic-Listings enthalten keine Steuerzeichen mehr. 
Diese werden ersetzt durch Klartext und stehen zwischen 
geschweiften Klammern. Deshalb sind weder die Klammern 
noch was dazwischen steht, abzutippen, sondern die in 
Tabelle 1 aufgeführten Tasten zu drücken. Auf Ihrem Bild¬ 
schirm erhalten Sie dann wieder die entsprechenden Grafik¬ 
zeichen (siehe Bild 1 und 2). 

Alle Grafikzeichen werden ebenfalls ersetzt durch unter¬ 
strichene oder überstrichene Großbuchstaben. 

Unterstrichene Buchstaben bedeuten, daß Sie die 
SHIFTTaste und den angegebenen Buchstaben drücken 
müssen, überstrichene jedoch die Commodore-Taste mit 
dem Buchstaben. 

Auch hier erhalten Sie am Bildschirm das entsprechende 
Grafikzeichen und nicht etwa das im Listing erkennbare Zei¬ 
chen (siehe Bild 1 und 2). 

Die Leerzeichen zwischen den einzelnen Basic-Befehlen 
können beim Abtippen entfallen (ohne Einfluß auf die Check¬ 
summe zu nehmen). Dies ist besonders bei speicherkriti¬ 
schen Programmen wichtig. 

Ebenso müssen Zeilen, die mehr als 80 Zeichen pro Zeile 
enthalten, mit den bekannten Abkürzungen für die Basic- 
Befehle (siehe auch das Handbuch zum C64, Anhang D, 
Seite 130) eingegeben werden. 


CTRL steht für Control-Taste, so bedeutet (CTRL-A], daß Sie die 

Control-Taste und die Taste »A« drücken müssen. Im folgenden steht: 

,'DOWN] 

Taste neben rechtem Shlft, Cursor unten 

IUP] 

Shift-Taste 8 Taste neben rechtem Shlft: Cursor 
hoch 

[CLR| 

Shift-Taste & 2. Taste ganz rechts oben 

IINST1 

Shift-Taste & Taste ganz rechts oben 

[HOME] 

2. Taste von ganz rechts oben 

(DEL) 

Taste ganz rechts oben 

IRIGHTI 

Taste ganz rechts unten 

(LEFT) 

Shift-Taste S Taste unten rechts 

(SPACE) 

Leertaste 

[Fl] 

grauer Tastenblock rechts 

!F3) 

grauer Tastenblock rechts 

(F5) 

grauer Tastenblock rechts 

(F7) 

grauer Tastenblock rechts 

IF2) 

grauer Tastenblock rechts 8 Shlft 

(F4) 

grauer Tastenblock rechts & Shift 

|F6) 

grauer Tastenblock rechts 8 Shift 

(F8) 

grauer Tastenblock rechts & Shift 

(RETURNI 

Shift-Taste 8 Return 

IBLACK) 

Control-Taste 8 1 

(WHITE) 

Control-Taste 8 2 

IREDt 

Control-Taste 8 3 

(CYAN) 

Control-Taste 8 4 

iPURPLE) 

Control-Taste & 5 Tabelle 1. 

(GREEN) 

Control-Taste s 6 Die Steuerbefehle 

(BLUE) 

Control-Taste & 7 Im Klartext 

(YELLOW) 

Control-Taste & 8 für den C64/VC20/C16 

(RVSON) 

Control-Taste & 9 

(RVOFFj 

Control-Taste & 0 

[ORANGE) 

Commodore-Taste 8 1 

(BROWN) 

Commodore-Taste & 2 

(LIG.RED) 

Commodore-Taste & 3 

(GREY 1) 

Commodore-Taste & 4 

(GRilY :) 

Commodore-Taste 8 5 

(UG.GREEN) 

Commodore-Taste 8 6 

(LIG.BLUEJ 

Commodore-Taste 8 7 

(GREY 3) 

Commodore-Taste 8 8 

Wenn Sie sich erst einmal an die in Klartext geschriebenen Steuer- 

Zeichen gewöhnt haben, werden Sie den Vorteil dieser Schreibweise 

erkennen. Der zu dem jeweiligen Steuerzeichen gehörende Klartext 

ist so verfaßt, daß Sie leicht die Taste beziehungsweise die Tasten- 

kombination finden, die Sie drücken müssen. 


Sparen mit 
dem VC20 

Haben Sie vor, Ihr Geld gewinnbringend anzule¬ 
gen? Mit diesem Programm können Sie die kom¬ 
plizierten Zins- und Zinseszinsberechnungen mit 
dem VC20 durchspielen, und sich so einen Über¬ 
blick über die Gewinne verschaffen. 

U m die Bedienung des Programms so einfach wie mög¬ 
lich zu gestalten, sind sämtliche Funktionen von 
Menüs aus erreichbar. Als besonderes »Bonbon« wer¬ 
den alle Zahlen formatiert dargestellt (Beispiel: Eingabe ».5«, 
Anzeige »0,50«). 

Für den VC20 benötigt man mindestens eine 16 KByte 
Speichererweiterung. 

»Zinsen« (siehe Listing) besteht aus acht Hauptprogram¬ 
men und den Unterprogrammen für Ein- und Ausgabeforma¬ 
tierung sowie einer Hardcopyroutine zur Ausgabe des Bild¬ 
schirminhaltes auf Drucker. 


Zur Eingabe sind folgende Tasten erlaubt: 

- numerische Tasten und ».« für den Dezimalpunkt. 

- »INST/DEL« für Korrekturen. 

- »Fl« Zurück zum Menü. 

- »F7« Nochmal dieselbe Funktion ausführen. 

- »F8« Hardcopy in Breitschrift für den Commodore-Drucker 
MPS 802. Will man Normalschrift verwenden, so muß in Zeile 
60010 der Ausdruck »SI$=CHR$ (14)« durch »SI$=CHR$ 
(15)« ersetzt werden. In den Zeilen 60190 und 60200 kann 
der Druck-Tabulator (" 20") nach Belieben geändert werden. 

Bemerkungen zu den einzelnen Unterprogrammen: 

Die grundlegende Zinsformel besteht immer aus den Fak¬ 
toren Zinsen (in DM), Zinssatz (In Prozent), der Laufzeit 
(Jahre, Monate, Tage) und dem Grundkapital. Sie können nun 
auswählen, welchen der Faktoren Sie berechnet haben 
möchten: 

Menü 1: 

1. Kapital 

2. Prozent (=Zinssatz) 

3. Zinsen 

4. Tage (=Laufzeit) 

5. Zinseszinsen mit monatlich gleichbleibenden Einzahlun¬ 
gen 
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ln diesem Unterprogramm werden einige Abkürzungen 
verwendet: 

M.-Einz. = monatliche Einzahlung 

Prozent = Prozentsatz 

Jahre = Vertragszeit einschließlich der Monate, 

die am Ende des Vertrages keine Ein¬ 
zahlungen erfordern (Ruhezeit, zum 
Beispiel beim 624 Mark-Gesetz). 

Dav. keine = Davon keine Einzahlungen im Monat 
Einz. M. zum Vertragsende (maximal 12 

Monate). 

Bonus auf = Bonus auf Einzahlung in Prozent. 

Einz. Prozent Einige Banken geben am Ende der Ver¬ 
tragslaufzeit auf die gesamten Einzah¬ 
lungen einen Bonus. 


Beispiel zu Menüpunkt S (Zinseszinsen mit monatlich glelchblelben- 
den Einzahlungen): 

52 Mark monatliche Einzahlung 
Darauf 3 Prozent Zinsen 
Laufzeit: 7 Jahre 

Davon das letzte Jahr keine Einzahlung (Ruhezeit) 

14 Prozent Bonus auf die gesamten Einzahlungen, wenn der Vertrag 
eingehalten wird. 

Die Eingabe sieht wie folgt aus: 


M.-Einz. 

>52, 

Anzeige: 

>52.00< 

Prozent 

> 3, 

Anzeige: 

> 3.00< 

Jahre 

> 7, 

Anzeige: 

>7 < 

Dav. keine Einz. M. 

>12, 

Anzeige: 

>12 < 

Bonus auf Einz. % 

>14, 

Anzeige: 

> 14.00< 


Ergebnis: 


Eigenleistung 

Zinseszinsen 

Bonus 

Gesamt 


>3744,00< 

> 480,93< 

> 524,16< 
>4749,09< 


<54e« 


Menü 2: 

1. Errechnen Zinstage 

Dieser Menüpunkt dient zur Errechnung der Anzahl an Zins¬ 
tagen zwischen zwei Daten. 

Beispiel: 

Wieviele Zinstage sind es vom 25.2. bis zum 5.10. (des glei¬ 
chen Jahres)? 

Eingabe: >2502< und >0510< 

Ergebnis: 7 Monate und 10 Tage 

2. Was kostet ein Kredit 

Hier können Sie sich informieren, wie stark die Aufnahme 
eines Kredits Ihren Geldbeutel belasten wird. Es werden fol¬ 
gende Abkürzungen verwendet: 

Kred.-Sum. = Kreditsumme. Die Anzahlung muß vor¬ 
her abgezogen werden. 

Einmalige Bearbeitungsgebühr in 
Prozent. Sind keine Gebühren zu ent¬ 
richten, nur die Returntaste drücken. 

Laufzeit in Monaten. 

Prozentsatz pro Monat. 


Bearbeitg. - = 
Gebühr in % 

Laufzeit/Monat= 

% in Monat = 


Zu Menü 2, »Was kostet ein Kredit«: 

Aus Platzgründen werden nur die tatsächlichen und nicht die 
effektiven Zinsen berechnet. 

Die tatsächlichen Zinsen werden aus»% in Monaten«, mit 
12 multipliziert, plus der »Bearbeitg.-Gebühr in %« auf ein 
Jahr errechnet. Der effektive Zinssatz liegt weitaus höher. 
Man müßte die echten Zinsen errechnen und im Dreisatz den 
tatsächlichen Zinsen entgegenhalten. Jeder Kreditgeber hat 
da so seine eigene Philosophie! Interessant sind natürlich für 
den Einzelnen die Kreditkosten, die bezahlt werden müssen. 

Für eventuelle Konkursanmeldungen oder Bankrotte wird 
seitens des Autors (und der 64'er Redaktion) keinerlei Haf¬ 
tung übernommen! 

(Helmut Gurtner/tr) 


1 REM*********************** 

2 REM* GURTNER HELMUT * 

3 REM* GOETHESTR. 9 * 

4 REM* 5120 HERZOGENRATH * 

5 REM* TEL: 0240Ö/64433 * 

8 REM*********************** 

10 POKE 36879,25:PRINT"{CLR >" 

20 A*="KAPITAL" 

30 Al*="PROZENT” 

40 A2*="ZINSEN" 

50 A3*="JAHRE" 

60 A4*="M0NATE" 

70 AS*-"TAGE" 

00 A6*-"Z1NSESZ." 

90 A7*="BESAMT" 

100 A8*="{RVSONlZURUECK MENUE (Fl){4SPACE, 
RVOFFJ“ 

110 A9*= " <UP.RVSON JNOCHMAL (F7) H.-C. (FB)t' 
RVOFFV 

120 B*= "{HOME,18D0WN}" 

130 Bl*—" ♦ ‘ 1 

140 B2*="J.-EINZ." 

150 B3*="M.-EINZ." 

200 PRINT"{CLR,BLACK.6SPACE >M E N U EI2SPA 
CEJ1":PRINT 

210 PRINT"{RED > ZINSBERECHNUNGEN{BLUE.6SPAC 
E > " B1 * 

220 PRINT"1<2SPACE > " A*:PRINT 

230 PRINT"2{2SPACE>"Al*:PRINT 

240 PRINT"3<2SPACEJ“A2*:PRINT 

250 PRINT"4 {2SPACEVA5*: PRINT 

260 PRINT"5{2SPACE>ZINSESZINSEN MIT" 

270 PRINT"{3SPACE >M0NATL. EINZAHLUNG":PRIN 
T 

280 PRINT"6{2SPACE>ZINSESZINSEN MIT" 

290 PRINT"{3SPACEJEINMALIGER EINZ.":PRINT 
300 PRINT"7<2SPACE>WEIT. MENUEAUSWAHL" 

310 GET W*:IF W*=""THEN 310 
320 IF ASC(W*) <49 OR ASC(W*>>55 THEN 310 
330 w-VAL(W*>:ON W GOTO 600,1000,1400,1800 
,2200,2600,340 

340 PRINT"<CLR,BLACK,6SPACEJM E N U EI2SPA 
CE>2":PRINT 

341 PRINT"{RED > ZINSBERECHNUNGEN{BLUE,6SPAC 
E } " B1 * 

350 PRINT"1{2SPACE1ERRECHNEN ZINSTAGE":PRI 

NT 

360 PRINT"2{2SPACE>WAS KOSTET EIN“ 

370 PRINT"{3SPACE1KREDIT":PRINT 

390 PRINT"3{2SPACETZURUECK MENUE":PRINT 

420 GET W1*:IF W1*=""THEN 420 

430 IF ASC(Wl*) <49 OR ASC(W1*)>55 THEN 420 

450 W1=VAL(W1*1:ON W1 GOTO 3000,7000,200 

460 GOTO 200 

600 L=10:REM **** KAPITAL **** 

610 PRINT“{CLR,4SPACE>Z * 100 * 360" 

620 PRINT"K = .*A*.*A*JL»-**jüL*'' 

630 PRINT"{7SPACETP * T":PRINT 
640 PRINT A2*:PRINT Al*:PRINT A3*:PRINT A4 
*:PRINT A5*:PRINT Bl*:PRINT A* 

720 Z3»9:Z2«5:GOSUB 3520:Z2“6:GOSUB 3510:G 
□SUB 3530:GOSUB 5000 

725 IF Z=0 OR P=0 OR T=0 THEN GOSUB 6200:B 
OTO 600 

730 K=(Z*100*360)/(P*T) 

740 X—K:GOSUB 4500:Z2=12;PRINT“{BLACK>":GO 
SUB 4950:PRINT"<BLUE>":GOSUB 6100 
745 PRINT B*:PRINT AB*:PRINT A9* 

750 GET W1*:IF W1*=""THEN 750 
760 IF W1*-CHR*<133)THEN GOTO 200 
770 IF W1*=CHR*<136)THEN GOTO 600 
780 IF W1*=CHR*(140)THEN GOSUB 60000 
790 GOTO 750 

1000 L=10:REM **** PROZENT **** 

1010 PRINT"{CLR,4SPACEJZ * 100 * 360" 

1020 PRINT“P = jUt.*.*.«*.*.».*.*.^».« " 

1030 PRINT"{7SPACETK * T":PRINT 
1040 PRINT A*:PRINT A2*lPRINT A3*:PRINT A4 
*:PRINT A5*:PRINT Bl*:PRINT Al* 

1060 Z3=9:Z2=5:GOSUB 3500:Z2=6:GOSUB 3520: 

GOSUB 3530:GOSUB 5000 
1065 IF Z=0 OR K=0 OR T=0 THEN GOSUB 6200: 
GOTO 1000 

1070 P=(Z*100*360)/<K*T) 


<142> 
<082> 
< 120 > 
<250> 
< 060 > 
<1497 
<219> 
<096> 
<109> 

< 143> 

< 123> 
< 210 > 
<051 > 
<203> 
<190> 

< 222 > 

< 15B> 

< 174> 
<042> 
<029> 

< 176> 

<228> 

<09B> 

< 121 > 
<170> 
<069> 
<224> 
<052> 

<145> 

<088> 

<1B9> 

< 124> 
<244> 
<216> 

< 082 > 

< 122 > 

<231 > 

<173> 

<036> 

<063> 

<055> 

<169> 

<215> 

<183> 

<142> 

< 100 > 

<069> 

<037> 

<206> 

<134> 

<166> 

<027> 

<066> 

<243> 

<108> 

< 121 > 

<138> 

<176> 

<208> 

<084> 

< 220 > 

<215> 

<00B> 

< 017 > 

<229> 

< 001 > 

<044> 

< 164 > 
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1080 X=P:GOSUB 4500:Z2=12:PRINT"<BLACK>":G 

OSUB 4950:PRINT"{BLUE}":GOSUB 6100 <156> 

1085 PRINT B*:PRINT AB*:PRINT A9* <196> 

1090 GET W1*:IF W1*=""THEN 1090 <155> 

1100 IF W1*=CHR*(133)THEN GOTO 200 <226> 

1110 IF W1*=CHR* <136)THEN GOTO 1000 <067> 

1120 IF W1*=CHR*(140)THEN GOSUB 60000 <038> 

1130 GOTO 1090 <087> 

1400 L=10:REM **** ZINSEN <024> 

1410 PRINT" {CLR.4SPACE3-K * P * T":Z3=9 <213> 

1420 PRINT"Z - . < 060 > 

1430 PRINT"C5SPACE>100 * 360":PRINT <151> 

1440 PRINT Mi PRINT Al*:PRINT A3*:PRINT A4 

*tPRINT A5«»: PRINT Bl* <233> 

1450 PRINT A2*iPRINT A*:PRINT:PRINT A7* <071> 

1460, Z2=5:GOSUB 3500:Z2=6:GOSUB 3510:GOSUB 

1 3530:0OSUJ0 5000 <160 > 

1465 IF K“0l OR P=0 OR T=0 THEN GOSUB 6200: 

GOTO 1400 <203> 

1470 Z=<K*P*T>/<100*360) <050> 

1480 X=Z:GOSUB 4500:Z2=12:PRINT"<BLACK>":B 

OSUB 4950:PRINT"{BLUE}" <078> 

1490 X=K:GOSUB 4500:Z2=13:GOSUB 4950 <098> 

1500 KZ=K+Z:X=KZ:GOSUB 4500:Z2=15:GOSUB 49 

50:GOSUB 6100 <063> 

1505 PRINT B*:PRINT A8*:PRINT A9* <106> 

1510 GET W1*:IF W1*=""THEN 1510 <054> 

1520 IF W1*=CHR*<133)THEN GOTO 200 <136> 

1530 IF W1*=CHR*(136)THEN GOTO 1400 <237> 

1540 IF W1*=CHR*<140)THEN GOSUB 60000 <206> 

1550 GOTO 1510 <078> 

1800 L=10:REM **** TAGE ***» <024> 

1810 PRINT"<CLR,4SPACE>Z * 100 * 360" <255> 

1820 PRINT"T - <135> 

1830 PRINT"<7SPACE>K * P":PRINT:Z3=9;GOSUB 

6100 <037> 

1840 PRINT A*:PRINT A1*:PRINT A2*:PRINT Bl 

* <236> 

1850 PRINT A5*:PRINT Bl*:PRINT“<D0WN>"A3*: 

PRINT"<DOWN>"A4*:PRINT"<D0WN>"A5* <209> 

1870 Z2=5:GOSUB 3500:Z2=6:GOSUB 3510:Z2=7: 

GOSUB 3520 <212> 

1875 IF K=0 OR P=0 OR Z=0 THEN GOSUB 6200: 

GOTO 1800 <155> 

1880 T=(Z*100*360)/(K*P) <196> 

1890 X=T:GOSUB 4500:Z2=10:PRINT"<BLACK>":G 

OSUB 4950:PRINT"<BLUE>":T=INT<T+.5) <234> 

2000 IF T<360 THEN 2020 <0B3> 

2010 T=T-360:J=J+1:IF T>=360 THEN 2010 <112> 

2020 IF T<30 THEN 2040 <037> 

2030 T=T-30:M=M+1:IF T>=30 THEN 2030 <243> 

2040 PRINT LEFT*(B*.14);:PRINT TAB(14)J:PR 
INT:PRINT TAB(14)M:PRINT:PRINT TAB(14 
)T <216> 

2050 PRINT"{BLUEJ":PRINT B*:PRINT AB*:PRIN 

T A9* <1B3> 

2060 BET W1*:IF W1*=""THEN 2060 <232> 

2070 IF W1*=CHR*<133)THEN GOTO 200 <180> 

2080 IF W1*=CHR*(136)THEN GOTO 1800 <253> 

2090 IF W1*=CHR*<140)THEN GOSUB 60000 <24B> 

2100 GOTO 2060 <208> 

2200 PRINT CHR*(147)"CBLAQOZINSESZINSEN M 

IT":L=10:Z3=9 <078> 

2210 PRINT"BLEICHBLEIBENDER" <167> 

2220 PRINT"MONATL. EINZAHLUNGIBLUEJ":PRINT 

"<DOWN>"B3*:PRINT Al*:PRINT A3* <236> 

2225 PRINT"DAV. KEINE":PRINT"EINZ. M."iPRI 

NT"BONUS AUF" <154> 

2226 PRINT-EINZ. 7.":PRINT B1*:PRINT"EIGENL 


2230 PRINT A6*:PRINT"BONUS":PRINT:PRINT A7 


2240 Z2-5:Z3-lliGOSUB 3500:Z2=6:GOSUB 3510 
:Z2-7:GOSUB 3525 

2242 Z2=9:GOSUB 4000:KE=N:GOSUB 4800:GOSUB 
4950:IF KE>12 THEN 2242 
2244 Z2=ll:GOSUB 4000:BP=N:GOSUB 4500:BOSU 
B 4950 

2250 KB=0:KK=0:KZ=0:MZ=12:Y=12:KB=0:BD=0:Z 
G=0 

2260 M=J*12:M1=M-KE:M2=M1:IF Ml<12 THEN MZ 
=M1 

2265 IF M=KE THEN PRINT"<CLR,2D0WN>FALSCHE 
ANGABEN":FOR 1=1 TO 2000:NEXT:GOTO 2 


200 <139> 

2270 GOSUB 2500 <026> 

2280 M2=M2-12 <136> 

2290 IF M2=>12 THEN GOTO 2510 <212> 

2295 KB=KB+KX <1B6> 

2300 IF KE« 12 THEN ZZ=K-O*P/100:KB«KB+ZZ <12B> 
2306 IF M2<12 AND M2>0 THEN MZ=M2:G0SUB 25 

00:ZZ=KB*P/100:KB=KB+KX+ZZ <067> 

2310 KK=K*M1:BD“KK*BP/)00:ZG=KB-KK:KG-KB+B 

D <154> 

2320 X=KK:GOSUB 4500:Z2-14:Z3=l1:GOSUB 49S 

0 <066> 
2330 X=ZB:GOSUB 4500;Z2=15:GOSUB 4950 <115> 

2340 X»BD:GOSUB 4500:Z2=16:GOSUB 4950 <158> 

2350 X=KG:GOSUB 4500:Z2=18:GOSUB 4950:GOSU 

B 6100 <091> 

2355 PRINT Bt:PRINT AB*:PRINT A9* <196> 

2360 GET W1*:IF W1*=""THEN 2360 <025> 

2370 IF W1*-CHR*(133)THEN GOTO 200 <226> 

2380 IF W1*=CHR* (.136) THEN BOTO 2200 <198> 

2390 IF W1*=CHR*(140)THEN GOSUB 60000 <038> 

2400 GOTO 2360 <046> 

2500 KA=0:ZA=0:KX=0:Y=12 <021> 

2501 FOR 1=1 TO MZ <161> 

2502 ZZ=(K*P*Y>/(100*12) <117> 

2503 ZZ=INT(ZZ*10000+-5)/10000 <164> 

2504 ZA=ZA+ZZ:KA=KA+K:Y=Y-1 <094> 

2505 NEXT I <047> 

2506 KX=KA+ZA:RETURN <060> 

2510 KB=KB+KX <147> 

2512 ZB=KB*P/100 <202> 

2514 ZB«INT(ZB*10000+. 5)/10000 <215> 

2516 KB=KB+ZB <124> 

2518 GOTO 2280 <213> 

2600 PRINT CHR*(147)"tBLACKJZINSESZINSEN B 

EI EIN-”:L=10:Z3=9:KZ=0:ZG=0 <036> 

2610 PRINT"MALIGER EINZAHLUNG<BLUE>":PRINT 

:PRINT <093> 

2620 PRINT A*:PRINT Al*:PRINT A3*:PRINT Bl 

T-PRINT A*:PRINT A6*:PRINT:PRINT A7* <157> 

2640 *2=5:GOSUB 3500:Z2=6:BOSUB 3510:Z2=7: 

GOSUB 3525 <230> 

2650 ZZ=0:KZ=K <249> 

2660 FOR 1=1 TO J <103> 

2670 ZZ=KZ*P/100 <04B> 

2680 ZZ=INT <ZZ*10000+.5)/10000 <087> 

2690 KZ=KZ+ZZ <034> 

2700 NEXT I <244> 

2710 ZG=KZ-K <151> 

2720 X=K:GOSUB 4500:Z2=10:GOSUB 4950 <055> 

2730 X=ZG:GOSUB 4500:Z2=l1:PRINT"CBLACKi": 

GOSUB 4950:PRINT"<BLUE>" <013> 

2740 X=KZ:GOSUB 4500:Z2=13:GOSUB 4950 <125> 

2745 PRINT B*:PRINT AB*:PRINT A9* <076> 

2750 GET W1*:IF W1*="“THEN 2750 <163> 

2760 IF W1*=CHR*<133)THEN GOTO 200 <106> 

2770 IF W1*=CHR*<136)THEN GOTO 2600 <082> 

2780 IF W1*=CHR*(140)THEN GOSUB 60000 <174> 

2790 GOTO 2750 <214> 

3000 PRINT"<CLR.RED1ERRECHNEN ZINSTAGE":PR 

INT:L=B:Z2=5:Z3=8:J=0:M=0:T=0 <045> 

3010 PRINT"<8SPACE.BLACK > TTMMJ J JJ <BLUE >":P 

RINT <190> 

3020 PRINT“ANFANG:":PRINT <018> 

3030 PRINT"ENDE:":PRINT:PRINT <059> 

3040 PRINT"I S T":PRINT <254> 

3050 PRINT Bl* <015> 

3060 PRINT"ODER JAHR/E":PRINT <206> 

3070 PRINT"{5SPAEEJM0NAT/E":PRINT <041> 

<201> 3080 PRINT"C5SPACEJTAG/E" <245> 

3100 GOSUB 4000:AA*=NN*:GOSUB 6000:Z2=7:GO 
<164> SUB 4000:E*=NN*:GOSUB 6000 <005> 

3110 JA=VAL(MID*(AA*.5,4)):MA=VAL(MID*(AA* 

<030> .3,2)):TA=VAL(MID*(AA*,1,2)):GOSUB 60 

00 <074> 

<048> 3130 JE=VAL<MID*(E*,5,4)):ME=VAL(MID*<E*,3 

,2)):TE-VAL(MID*(E*.1,2)):GOSUB 6000 <058> 

<182> 3140 J=JE-JA <1B2> 

3150 T=(J*360)+<ME*30)+TE-(MA*30)-TA:J=0 <127> 

<116> 3160 PRINT LEFT*<B*.10)::PRINT TAB(7)T::PR 

INT A5* <026> 

<097> 3170 IF T<360 THEN 3190 <045> 

3180 T=T—360:J=J+1:IF T>=360 THEN 3180 <043> 

3190 IF T<30 THEN 3210 <1B6> 


Listlng zu »Zinsen VC 20«. Beachten Sie unbedingt, daß ihr VC20 eine 16-KByte-Speichererweiterung besitzen muß. 
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3200 T=T—30:M=M+1:IF T>=30 THEN 3200 
3210 X=J:Z2=14:Z3=11:PRINT“{BLACKJ":GOSUB 
4B00:GOSUB 4950:X=M:Z2=16:GOSUB 4800: 
GOSUB 4950 

3220 X=T:Z2=18:GOSUB 4800:GOSUB 4950:PRINT 
"{BLUE}":GOSUB 6100 
3225 PRINT B*:PRINT AS*:PRINT A9* 

3230 GET W1*:IF Wi«-""THEN 3230 
3240 IF W1*=CHR*(133)THEN 340 
3250 IF W1*=CHR*<136)THEN 3000 
3260 IF W1*=CHR*<140)THEN GOSUB 60000 
3270 GOTO 3230 

3500 GOSUB 4000:K=N:GOSUB 4500:GOSUB 4950: 
RETURN 

3510 GOSUB 4000:P=N:GOSUB 4500aGOSUB 4950: 
RETURN 

3520 GOSUB 4000:Z=N:GOSUB 4500:GOSUB 4950: 
RETURN 

3525 GOSUB 4000:J=N:GOSUB 4800:GOSUB 4950: 
RETURN 

3530 Z2=7:GOSUB 4000:J=N:GOSUB 4800:GOSUB 
4950 

3540 Z2=B:GOSUB 4000:M=N:GOSUB 4800:GOSUB 
4950 

3550 Z2=9:GOSUB 4000:T=N:GOSUB 4800:GOSUB 
4950:RETURN 
4000 REM GET—SOHLEIFE 

4030 PRINT LEFT*(B*,Z2);:PRINT TAB(Z3> 

4040 Z1=0:NN*="":PRINT"«-";CHR*<157) 

4050 GET N*:IF N*='”’THEN 4050 

4055 IF N*=CHR*(140)THEN GOSUB 60000 

4060 IF N*=CHR*<20)AND Z1>0 THEN 4130 

4070 IF N*=CHR*(13)THEN 4140 

4080 IF N*<CHR*(46)0R N*7CHR*(57)THEN 4050 

4090 PRINT N*s OHR* (157); 

4100 NN*=NNS+N* 

4110 Z1=Z1+1:IF Z1=L THEN 4140 
4120 GOTO 4050 

4130 Z1=Z1—1:NN*=LEFT*(NN*,ZI>:PRINT OHR*( 
157) ":CHR*(157):CHR*(157);:GOTO 4 

050 

4140 PRINT" :N=VAL(NN*):X=N:RETURN 
4500 REM*»***»****#**** 

4510 REM FORMATIERUNG 
4520 REM************** 

4600 X=INT(X*100+.51/100 
4610 X*=" "+STR*(X> 

4615 IF MID*(X*.LEN(X*> —2,1)="."THEN 4640 
4620 IF MID*(X*,LEN(X*)-1,1)0". "THEN XS=X 
*+". 00 " 

4630 IF MID*(X*.LEN(X*)-1,1)="."THEN X*=X* 
+ " 0 " 

4640 IF MID*<X*.LEN(X*)-3,1)=" "THEN X*="{ 
2SPACE}0"+RIGHT* < X* ,3) 

4650 IF MID*<X*,LEN(X*)—3,1)="—"THEN X*=" 
-0"+RIGHT*(X*,3) 

4660 X*=RIBHT*("{7BPACE»"+X*.10) 

4670 RETURN 
4800 X*=STR*(X > 

4810 X*="{7SPACE»"+X*+"{3SPACE}" 

4820 X*=RIGHT*(X*,10) 

4830 RETURN 

4950 PRINT LEFT*(B*,Z2);:PRINT TAB(Z3)X*:G 
OSUB 6000:RETURN 
5000 REM ERRECHNEN TAGE 
5010 T=T+ < J *360) + (M*30) 

5020 RETURN 

6000 ..X=0:NS=". 

6010 RETURN 

6100 K=0:Z=0:P=0:J=0:M=0:T=0:RETURN 
6200 PRINT"{CLR.2D0WN»FEHLENDE ODER FALSCH 
E":PRINT:PRINT"EINGABEN":FOR 1=1 TO 2 
500:NEXT:RETURN 

7000 PRINT"{CLR,BLACK.4SPACE»KREDIT - KOST 
EN{4SPACE,BLUE »":L=10:Z1=0:Z 2=0:KK=0: 
EV=0:MZ=0 

7010 REM PR INT "KREDIT {BLUE»" -.PRINT 
7020 PRINT"KRED.-SUM.":PRINT 
7030 PRINT"BEARBEITB.—" 

7040 PR INT “ GEBUEHR IN 7.": PRINT 
7050 PRINT"LAUFZ./MONAT":PRINT 
70SS PRINT "Y. IN MON." SPRINT 
7060 PRINT"{BLACK»KREDITKOSTEN":PRINT 
7070 PRINT”TATSAECHL. ":PRINT"ZINSEN IN 7." 
:PRINT 


< 205 > 


<223> 

< 11B> 
<04B> 
<254> 
<089> 
<217> 

< 146> 
<050> 

<1B3> 

< 19B> 
<218> 

< 144> 

<021 > 

<160> 

<031 > 
<227> 
<028> 
<0117 

< 114 > 
<244> 
<16B> 
<071 > 
< 120 > 
<029> 
<244> 
<018> 
<180> 

<2277 
<206> 
<070> 
<221 > 

< 006 > 

< 123> 
<17B> 

< 126> 

<248> 

<023> 

< 106 > 

<245> 

<21B> 

< 156> 

< 136> 
<057> 

< 103> 
<060> 

<035> 

< 194> 

< 132> 
<252> 
<227> 
<226> 

< 176> 


<225> 


<230> 
< 122 > 
<224 > 
<144> 

< 177> 
<170> 
< 122 > 

< 197> 

<116> 


7080 PRINT"MONATL. ZU":PRINT"ZAHLEN{BLUE3" <123> 
7100 Z2=3:Z3=12:GOSUB 4000:KS=N:GOSUB 4500 

:GOSUB 4950 <031> 

7110 Z2=6:Z3=16:GOSUB 4000:BZ=N:GOSUB 4500 

:Z3=12:GOSUB 4950 <067> 

7120 Z2=8:Z3=16:GOSUB 4000:LZ=N:GOSUB 4800 

:Z3=12:GOSUB 4950 < 234 > 

7130 Z2=10:Z3=16:GOSUB 4000:PM=N:GOSUB 450 

0:Z3=12:GOSUB 4950 <113> 

7135 IF KS=0 OR LZ=0 OR PM=0 THEN GOSUB 62 

00:GOTO 7000 <170> 

7220 Z1=PM*LZ:REM 7, * LAUFZ. <165> 

7230 Zl=(KS*Z1)/100:REM ZINSEN-LAUFZEIT <226> 

7240 Z2=(KS*BZ)7100:REM ZINSEN-BEARB. <197> 

7250 KK=Z1+Z2:REM KREDITKOSTEN <13B> 

7260 EV=(KK*100*12>/(KS*LZ>:REM EFF.-ZINS. <134> 
7270 MZ=(KS+KK)/LZ:REM M. ZU ZAHLEN <2427 

7280 X=KK:Z2=12:Z3=12:PRINT"{BLACK »":GOSUB 

4500:PRINT"{BLACK»":GOSUB 4950 <1537 

7290 X=EV:Z2=15:GOSUB 4500:GOSUB 4950 <0517 

7300 X=MZ:Z2=18:GOSUB 4500:GOSUB 4950:PRIN 

T"{BLUE»" <1017 

7305 PRINT B*:PRINT AB*:PRINT A9* <0647 

7330 BET W1*:IF W1*=""THEN 7330 <0377 

7340 IF W1*=CHR*(133)THEN 340 <1257 

7350 IF W1*=CHR*(136)THEN 7000 <2547 

7360 IF W1*=CHR*(140)THEN GOSUB 60000 <1827 

7370 GOTO 7330 <1347 

60000 REM * HARD-COPY * <1147 

60010 SI*=CHR*(14):BS*=CHR*(8):PO*=CHR*(16 

) <0537 

60020 QT*=CHR*(34) <0127 

60030 MF*=CHR*(145):VR=PEEK(648)*256 <1277 

60040 OPEN 4.4:PRINT44 <2107 

60050 FOR CL=0 TO Z2:QF=0:AS*=MF*:FOR RO=0 

TO 21 <1467 

60060 SC=PEEK(VR+22*CL+R0) <1907 

60070 IF SC=34 THEN QF=1-GF <1697 

60080 IF SC<7162 THEN 60110 <1137 

60092 _ i n F=l—QF: IF DF=1 THEN ASS=AS*+QT*: GOT 
~ (j 60170 <0157 

60100 AS*=AS*+QT*:GOTO 60170:GOTO 60130 <2387 

60110 IF QF=1 AND(SC>=128)THEN SC=SC-128:G 

OTO 60130 <1417 

60120 IF SC7=120 THEN SC=SC-12B:RF=1 <1387 

60130 IF SC<32 OR SC795 THEN AS=SC+64:GOTO 

60160 <0327 

60140 IF SC731 AND SC<64 THEN AS=SC:GOTO 6 

0160 <1897 

60150 IF SC763 AND SC<96 THEN AS=SC+32:G0T 

0 60160 <1317 

60160 AS*=AS*+CHR*(AS> <1687 

60170 IF RF=1 THEN RF=0 <1637 

60180 NEXT RO <1237 

60190 IF QF=0 THEN PRINT44.SI*PO*"20"AS*: G 

OTO 60210 <0637 

60200 PRINT#4,SI*:PO*:"20":AS*:QT* <2327 

60210 NEXT CL:CLOSE 4:RETURN <2097 


Llstlng zu »Zinsen VC20« (Schluß) 
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Datei- 

verwaltung 

für den C16 

Ein leistungsfähiges Programm zur Verwaltung 
beliebiger Daten gehört zu jedem Computer. 
»Datamaster« ist speziell auf den C16/116 mit 
Diskettenlaufwerk zugeschnitten. Der geringe 
Speicherplatz bereitet dabei keine Probleme. 


E in Computer wird für viele Zwecke eingesetzt. Je billiger 
er ist, desto mehr wird anscheinend mit ihm gespielt. Der 
C16 ist jedoch ein Computer, der sehr leistungsfähig ist. 
Sein Basic ist einfach hervorragend - wesentlich komfortab¬ 
ler als zum Beispiel das des C 64. Sein einziges Handicap ist 
lediglich der geringe Speicherplatz. Das ist vor allem bei 
Programmen relevant, die eine Menge Daten zur Verwaltung 
haben. Doch es gibt Möglichkeiten, viele Daten auch mit 
geringem RAM-Speicherplatz zu verarbeiten. »Datamaster« 
nutzt diese konsequent aus. Allerdings ist dazu ein Disketten¬ 
laufwerk notwendig. Mit einer Datasette ist das Programm 
nicht lauffähig. Doch nun zum Programm selbst. 

Vor dem Start 

Beachten Sie bei der Arbeit mit dem Programm bitte unbe¬ 
dingt die folgenden grundlegenden Punkte: 

- Verlassen Sie das Programm niemals durch Ausschalten 
des Computers. Wählen Sie immer den dafür vorgesehenen 
Programmpunkt »Verlassen des Programms« an. Sollten Sie 
das Programm auf nicht vorgesehene Weise verlassen, kann 
es zum Verlust Ihrer Daten kommen. 

- Wechseln Sie niemals eine eingelegte Diskette, wenn Sie 
das Programm nicht dazu aufgefordert hat. Es kann zum Ver¬ 
lust Ihrer Daten kommen. 

- Wenn Sie eine neue Datei aufbauen, muß mit Hilfe des 
Programmpunktes »Neue Datei aufbauen« eine »Eingabe¬ 
maske« erstellt werden. Das erste Feld dieser Eingabemaske 
ist immer ein »Index-Feld«. Dieses Index-Feld erlaubt eine 
besonders schnelle Suche nach Datensätzen. Wählen Sie 
daher als erstes Feld Ihrer Maske bitte jenes aus, über das Sie 
am häufigsten suchen (zum Beispiel »Name« in einer Adreß- 
Datei). Sie können bei der schnellen Suche über diesen 
Index noch weitere Suchkriterien in andere Felder der Maske 
eingeben (zum Beispiel »Name: Müller«, »Ort: Mannheim«), In 
diesem Fall werden nur »Müller« ausgegeben, die in »Mann¬ 
heim« wohnen. Die Suche verläuft weiterhin schnell. Sollten 
Sie jedoch kein Suchkriterium in das erste Feld, das Index- 
Feld, eingeben, müssen Sie mit einer erheblich langsameren 
Suche nach Datensätzen rechnen als mit Kriterium. 


Nötige Hardware 

- ein Computer Commodore C16 oder C116 

- Floppy-Laufwerk VC-1541 

- Monitor oder Fernsehgerät 

- eventuell Drucker 


Zum Aufbau einer Datei benötigt der Datamaster eine leere 
und bereits formatierte Diskette. Alle eventuell auf dieser Dis¬ 
kette vorhandenen Informationen werden beim Aufbauen 
einer Datei unwiederbringlich gelöscht. Verwenden Sie 
daher niemals Ihre Programmdiskette zum Aufbau einer Datei 
und schützen Sie diese mit einem Schreibschutz. 


Eigenschaften von Datamaster und Datamaster-Dateien 

- Eine Datei kann maximal 662 Datensätze aufnehmen. 

- Ein Datensatz kann eine maximale Länge von 245 
Zeichen besitzen. 

- Ein Datensatz (zum Beispiel eine Adresse) kann aus 
maximal 10 einzelnen Feldern bestehen 

(zum Beispiel »Name«, »Adresse«, »Telefonnummer«...). 

- Das erste Feld einer jeden Datei ist ein »Index- 
Feld«. Ein solches Index-Feld erlaubt eine beson¬ 
ders schnelle Suche nach Daten. 


Laden und Starten des Programms 

Drücken Sie bitte die Funktionstaste F2 (DLOAD"), geben 
Sie ein: DATAMASTER und drücken Sie »RETURN«. Nachdem 
das Programm geladen wurde, geben Sie ein: RUN und 
drücken Sie wiederum »RETURN«. 

Wenn Sie den Datamaster zum ersten Mal benutzen, müs¬ 
sen Sie zuerst eine Datei auf bauen. Wählen Sie daher bitte 
den Programmpunkt »Neue Datei aufbauen« an. Zum Aufbau 
einer neuen Datei wird eine leere, jedoch bereits formatierte 
Diskette benötigt. 

Wenn Sie mit einer bereits aufgebauten Datei arbeiten wol¬ 
len, Villen Sie bitte den Programmpunkt »Datendiskette 
wechseln« an. Sie werden nun aufgefordert, eine Datendis¬ 
kette einzulegen. Legen Sie die Diskette ein, auf der sich die 
von Ihnen gewünschte Datei befindet und drücken Sie eine 
beliebige Taste. Sie können nun die Arbeit mit dieser Datei 
aufnehmen. 

Anwählen der einzelnen Programmfunktionen 

Nach dem Starten des Programms sehen Sie auf dem Bild¬ 
schirm »Auswahlmenü«. 

Um die von Ihnen gewünschte Funktion anzuwählen, 
drücken Sie bitte die Taste mit dem entsprechenden 
Anfangsbuchstaben der Funktion, zum Beispiel »E« für »EIN¬ 
GABE VON DATENSÄTZEN« oder »N« für: »NEUE DATEI 
AUFBAUEN«. 

Beenden der Arbeit mit dem Datamaster 

Wenn Sie die Arbeit mit dem Programm beenden wollen, 
wählen Sie bitte die Funktion »VERLASSEN DES PRO¬ 
GRAMMS« an. 

Beenden Sie die Arbeit nie auf andere Art und Weise, zum 
Beispiel durch Ausschalten des Computers. 

Die Eingabemaske 

Bei den einzelnen Programmfunktionen müssen die Daten, 
die das Programm zur Durchführung der Funktion von Ihnen 
benötigt, in eine »Eingabemaske« eingegeben werden. 

Zur Eingabe der Daten in diese Maske besitzen Sie fol¬ 
gende Bewegungsmöglichkeiten: 

- Mit Hilfe der Tasten »Cursor rechts« beziehungsweise 
»Cursor links« können Sie sich innerhalb eines Feldes 
der Maske hin und her bewegen. 

- Mit Hilfe der Taste »Delete« können Sie ein eingegebe¬ 
nes Zeichen löschen, außer wenn Sie sich in der Funk¬ 
tion »NEUE DATEI AUFBAUEN« befinden. 

- In ein tiefergelegenes Feld kommen Sie mit Hilfe der 
Taste »Cursor nach unten«, in ein Höhergelegenes durch 
die Taste »Cursor nach oben«. 
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Um die gesamte Dateneingabe in die Maske abzuschlie¬ 
ßen, drücken Sie bitte die Funktionstaste Fl. 

Sie können jede Programmfunktion vorzeitig durch 
Drücken der Funktionstaste HELP verlassen. Der jeweilige 
Programmteil wird dann ohne Durchführung der Funktion ver¬ 
lassen und Sie kehren zum Auswahlmenü zurück. 

Die einzelnen Programmfunktionen 


Neue Datei aufbauen 

Dieses ist die erste Funktion, die Sie benötigen. Wenn Sie 
das Programm zum ersten Mal geladen und gestartet haben, 
wählen Sie diese Funktion an. Halten Sie bitte eine leere und 
formatierte Diskette bereit. 

Sie können nun Ihre erste Datei aufbauen und auch später 
durch Anwahl dieser Funktion weitere von Ihnen benötigte 
Dateien. Für jede Datei wird eine eigene Diskette benötigt. 

Nach Anwahl dieser Funktion sehen Sie auf dem Bild¬ 
schirm die bereits besprochene Eingabemaske. In diese kön¬ 
nen Sie nun die Form Ihrer individuellen Datensätze einge¬ 
ben. Die Bezeichnung der einzelnen Felder ihrer Datensätze, 
die Länge dieser Felder (maximal 67 Zeichen) und den Typ 
(alphanumerisch, das heißt sowohl Buchstaben als auch Zah¬ 
len als auch Sonderzeichen werden zugelassen, oder nume¬ 
risch, das heißt nur Zahlen und der Dezimalpunkt werden als 
gültige Eingaben zugelassen). 

Zur Übung werden wir nun eine Adreß-Datei aufbauen: 

Geben Sie als Bezeichnung des ersten Feldes bitte ein: 
»NAME« und drücken sie anschließend »Cursor nach unten«. 
Der Cursor befindet sich nun auf dem ersten Zeichen des 
zweiten Feldes. g*er c 

Geben Sie bitte die Zahl »20« als Länge des Feldes mit der 
Bezeichnung »NAME« ein und bewegen Sie sich zum letzten 
Feld der Zeile. Geben Sie als Feldtyp bitte nun ein »A« ein. 

Dieses »A« steht für ein alphanumerisches Feld und gibt 
dem Computer an, daß in diesem Feld sowohl Buchstaben als 
auch Zahlen und Sonderzeichen eingegeben werden dürfen. 
Betätigen Sie wieder die Taste »Cursor nach unten«. 

Die Eingabemaske sollte, falls Sie alle Anweisungen befolgt 
haben, folgendes Aussehen besitzen: 


FELD 

BEZEICHNUNG 

LÄNGE TYP 

1 

NAME 

20 A 

2 



3 




Sollten Ihnen bei der Eingabe Fehler unterlaufen sein, kön¬ 
nen Sie sich wie besprochen mit den Cursortasten In das ent¬ 
sprechende Feld begeben und den Fehler korrigieren. 

Definieren Sie jetzt die restlichen Datensatzfelder unserer 
Adreßdatei auf die beschriebene Weise, bis die Maske fol¬ 
gendes Aussehen besitzt: 


FELD 

BEZEICHNUNG 

LÄNGE 

TYP 

1 

NAME 

20 

A 

2 

VORNAME 

15 

A 

3 

STRASSE 

20 

A 

4 

PLZ 

4 

N 

5 

ORT 

20 

A 

6 

TEL 

15 

A 


Wenn alle Eingaben fehlerfrei sind, drücken Sie bitte die 
Funktionstaste Fl, um die Eingabe zu beenden. 

Nun werden Ihnen eventuell aufgetretene Fehler gemeldet. 
Folgende Fehler sind möglich: 

- Sie haben die maximale Datensatzlänge überschritten 
(245 Zeichen). 

- Ihre Eingaben sind unvollständig. Sie haben zum Beispiel 
bei einem Feld die Bezeichnung angegeben, zum Bei¬ 
spiel Straße, jedoch nicht alle weiteren benötigten Infor¬ 
mationen (Länge und Typ). 

Im Falle eines solchen Fehlers sehen Sie die entspre¬ 
chende Fehlermeldung am unteren Bildschirmrand. Korrigie¬ 
ren Sie den Fehler nun bitte und beenden Sie danach wieder 
mit Fl. 

Nach der fehlerfreien Definition der einzelnen Datensatz¬ 
felder erscheint die Frage »KORREKTUR (J/N)?«. Sollten Sie 
nun noch Tippfehler oder Ähnliches feststellen, können Sie 
die Taste »J« betätigen und Ihre Eingabe nochmals korrigie¬ 
ren. 

Wenn Sie jedoch mit Ihren Eingaben zufrieden sind, 
drücken Sie die Taste »N«. 

Sie werden nun gefragt, ob Sie auch wirklich eine neue 
Datei aufbauen wollen. Dies ist Ihre letzte Möglichkeit, Ihren 
Entschluß zu korrigieren und ohne eine neue Datei aufzu¬ 
bauen, zum Auswahlmenü zurückzukehren. 

Da wir wirklich eine Datei aufbauen wollen, betätigen Sie 
die Taste »J«. 

Nun werden Sie aufgefordert, eine leere Diskette in das 
Laufwerk einzulegen. Die Diskette, die Sie einlegen, muß 
bereits formatiert sein. 

Bedenken Sie bei der Auswahl der Diskette bitte, daß alle 
Informationen, die sich noch darauf befinden, beim Dateiauf¬ 
bau gee icht werden. 

Betätigen Sie nun eine beliebige Taste (jedoch nicht 
»RUN/STOP«). Die Datei wird nun aufgebaut, ein Vorgang, der 
mehrere Minuten in Anspruch nimmt. 

Wichtig! 

Das erste Feld (Feld Nr. 1), das Sie beim Dateiaufbau defi¬ 
nieren, ist ein »Index-Feld«. Ein solches Index-Feld ermög¬ 
licht eine besonders schnelle Suche nach Datensätzen, da 
die Datensätze nach diesem Feld gewissermaßen geordnet 
sind. Geben Sie daher als erstes Feld jenes ein, über das Sie 
bei der späteren Arbeit mit der Datei am häufigsten nach 
Datensätzen suchen werden. 

Da wir in unserer Beispieldatei als erstes das Feld »NAME« 
angegeben haben, wird die spätere Suche nach Datensätzen 
über dieses Feld am schnellsten vor sich gehen. 

Datendiskette wechseln 

Wenn Sie bereits mehrere Dateien aitfgebaut haben, kön¬ 
nen Sie mit Hilfe dieser Funktion von einer Datei, die Sie 
gerade bearbeiten, auf eine andere Datei überwechseln. 

Wählen Sie diese Funktion an. Sie werden nun aufgefor¬ 
dert, die Datendiskette mit der Datei, die Sie nun bearbeiten 
wollen, einzulegen. 

Drücken Sie bitte eine beliebige Taste, nachdem Sie dies 
getan haben. Sie können nun mit dieser zweiten Datei arbei¬ 
ten. 

Einträgen von Datensätzen 

Wählen Sie diesen Programmpunkt an, um in die von Ihnen 
aufgebaute Datei Datensätze einzutragen. 

Auf dem Bildschirm sehen Sie eine Eingabemaske, die 
gemäß Ihren beim Dateiaufbau gemachten Angaben gestal¬ 
tet ist. Wenn Sie den jeweiligen Datensatz, zum Beispiel eine 
Adresse, in die Maske eingegeben haben, drücken Sie bitte 
Fl. Die Daten werden nun gespeichert. 

Suchen von Datensätzen 

Diese Funktion ist besonders wichtig, da Sie sie wahr- 
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scheinlich am häufigsten verwenden werden. 

Prinzipiell gibt es zwei Formen der Suche nach Daten: 

- die Suche über den Index (das erste Feld der Maske). 

- die Suche über andere als das Index-Feld. 

In beiden Fällen dürfen Sie in beliebig viele Felder Suchkri¬ 
terien eingeben. Wenn Sie in unserer Beispieldatei den Herrn 
»MÜLLER« in »MANNHEIM« suchen, geben Sie ein: 

NAME: MÜLLER 

VORNAME: 

STRASSE: 

PLZ: 

ORT: MANNHEIM 

TEL: 

Da eine Eingabe in das erste Feld, das Index-Feld erfolgte, 
wird die Suche recht schnell vor sich gehen. In dem Beispiel 
haben wir zwei Suchkriterien eingegeben. Es können belie¬ 
big viele Suchkriterien eingegeben werden, maximal eines in 
jedem Feld. 

Auf dem Bildschirm werden dabei nur jene Datensätze aus¬ 
gegeben, die allen eingegebenen Suchkriterien entspre¬ 
chen, also in unserem Beispiel nicht der Herr »MÜLLER« in 
»MÜNCHEN«, da dieser dem in das Feld »ORT« eingegebe¬ 
nen Suchkriterium nicht entspricht. 

Wenn eines der Suchkriterien in das erste Feld, also das 
Index-Feld eingegeben wurde, verläuft die Suche schneller, 
als wenn das nicht der Fall ist. 

Die Suche kann jederzeit durch Drücken einer beliebigen 
Taste abgebrochen werden. 

Nachdem ein Datensatz gefunden wurde, der den eingege¬ 
benen Kriterien entspricht, kann dieser ausgedruckt werden, 
indem die betreffende Frage durch Drücken von »J« beant¬ 
wortet wird. Wenn Sie keinen Ausdruck wünschen, drücken 
Sie bitte »N«. 

Wenn Sie auf die nun auftauchende Frage »WEITERBLÄT¬ 
TERN (J/N)?« mit »J« antworten, wird nach dem nächsten 
Datensatz gesucht, der allen eingegebenen Kriterien ent¬ 
spricht. 

Wenn das Dateiende erreicht wurde, kehren Sie durch 
Drücken einer beliebigen Taste zum Auswahlmenü zurück. 

Abkürzen 

Es ist möglich, einzugebende Suchkriterien beliebig abzu¬ 
kürzen. 

Beispiel: 

NAME: SCHMID 

VORNAME: 

STRASSE: 

PLZ: 

ORT: MA 

TEL: 

findet: 

- SCHMIDT in MANNHEIM 

- SCHMIDTZ in MANNHEIM 

- SCHMIDKE in MAINZ 


jedoch nicht: 

- SCHMIT in MANNHEIM 

- SCHMOLL in MAINZ 

- SCHMIDT in MÜNCHEN 

Achtung: Wenn die Eingabe in das erste Feld, also das 
Index-Feld, auf weniger als sechs Zeichen abgekürzt wird, 
dient dieses nicht mehr als Index-Feld, das heißt die Suche 
verläuft langsamer! 

Wenn Sie Wert auf eine schnelle Suche legen, kürzen Sie 
daher eine Eingabe in das erste Feld möglichst nicht auf weni¬ 
ger als diese sechs Zeichen ab. 


Andern von Datensätzen 

Zum Ändern von Datensätzen müssen diese zuerst gefun¬ 
den werden. Geben Sie daher bitte Ihre Suchkriterien in die 
Maske ein. Wenn der gesuchte Datensatz gefunden wurde, 
werden Sie gefragt, ob dieser gelöscht werden soll; ein zum 
Ändern notwendiger Vorgang. Wenn der auf dem Bildschirm 
ausgegebene Datensatz nicht der Gesuchte ist, geben Sie 
auf diese Frage ein »N« ein und blättern Sie bis zum gesuch¬ 
ten Datensatz weiter. 

Nachdem der gesuchte Datensatz gelöscht wurde, können 
Sie ihn nun nach Ihren Wünschen ändern. 

Durch Drücken der Taste Fl wird der geänderte Datensatz 
gespeichert. 

Löschen von Datensätzen 

Auch bei dieser Funktion muß der zu löschende Datensatz 
zuerst gefunden werden. 

Geben Sie Ihre Suchkriterien ein und drücken Sie Fl. Wenn 
ein ausgegebener Datensatz nicht der gesuchte ist, geben 
Sie auf die Frage »LÖSCHEN (J/N)?« bitte »N« ein und blättern 
Sie weiter bis zum gesuchten Datensatz. 

Blättern in der Datei 

Sollten Sie einen bestimmten Datensatz suchen, jedoch 
keinerlei verwendbare Suchkriterien kennen, können Sie 
sich mit Hilfe dieser Funktion alle in der Datei gespeicherten 
Datensätze ansehen. 

Dieses Durchblättern der Datei kann jederzeit von Ihnen 
abgebrochen werden, indem Sie eine beliebige Taste 
drücken. 

Komplette Datei ausdrucken 

Wenn Sie diese Funktion anwählen (und Ihren Drucker 
angeschlossen und eingeschaltet haben), wird die komplette 
Datei ausgedruckt. 

Auch diese Funktion können Sie jederzeit durch Drücken 
einer beliebigen Taste abbrechen. 

Verlassen des Programms 

Obwohl es bereits erwähnt wurde, möchte ich noch einmal 
darauf hinweisen, daß Sie die Arbeit mit dem Programm nur 
mit Hilfe dieser Funktion beenden dürfen, wenn Sie nicht die 
Gefahr eines Datenverlustes eingehen wollen. 

(S. Baloui/tr) 


Maximale Dateianzahl: beliebig (eine Datei pro Diskette) 

Maximale Datensatzanzahl pro Datei: 662 

Maximale Datensatzlänge: 245 Zeichen 

Maximale Feldanzahl pro Datensatz: 10 

Maximale Feldlänge: 67 Zeichen 

Suchprinzipien: 2 (Suche über Index. Suche ohne Index) 

Suchkriterien: Maximal 10 (eines pro Feld) 


Tabelle 1. Technische Daten von »DATAMASTER« 
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5 FQRA=1TQ8:KEYA,""sNEXT 

6 KEY8,"i"iKEY1,"S" 

7 COLOR1,15,5:COLOR0,7,0:COLOR4,7,0 
10 CS=202 

20 CZ=205 
30 CR=55464 
40 SC=3072 
50 PA=—1024 
60 TZ=239 
70 TP-1319 
B0 6OSUB4530 

90 DIMS'/.(30) , ZV. (30) ,BZ*(30) ,LE7.(30) ,TY*( 
30),UG*(30),BZX(B2> 

100 CL0SE2!CLOSEI5 
110 OPEN15,8,15,"10" 

120 GOSUB150 
130 GOTO670 
140 : 

150 REM »DATEI EINLESEN* 

160 GOSUB380 

170 PRINT#15,"Ul:"2;0;18;0:PRINT#15,"B-P 
: "2; 162:REM ID 

180 GET#2,A*:GET#2,B*:ID*=A$+B* 

190 IFID*< >"DD"THENGOSUB390:RETURN 

200 RN=663:G0SUB410 

210 GOSUB360:GOSUB350 

220 INPUT#2,AD,FZ 

230 MF=FZ 

240 FORA=lTOFZ 

250 S7.(A)=0sZ7.(A)=l+A*2 

260 INPUT#2,BZ*(A) ,LE7.(A) ,TY*(A) 

270 NEXT 

280 RN=664: G0SUB410 
290 GOSUB360:GQSUB350 

300 FQRA=0TO82: INPUT#2,B*: BZ7. (A) =VAL (B*) 
: NEXT 

310 GO9UB390 
320 RETURN 
330 : 

340 REM *B-P,U1,U2,OPEN,CLOSE* 

350 PRINT#15,"B-P:";2;1:RETURN 
360 PRINT#15,"Ul:";2;0;RT;RSs RETURN 
370 PRINT#15,"U2:";2;0;RT;RS;RETURN 
380 0PEN2,8,2,"#"sRETURN 
390 CL0SE2:RETURN 
400 s 

410 REM *BLOCKUMRECHNUNG* 

420 IFRN<358THENAA=0:BB=22:DD=1:GOTO460 
430 IFRN<471THENAA=357:BB=20:DD=19s GPT04 
60 

440 IFRN<5B0THENAA=471s BB=19: DD-25: G0T04 
60 

450 AA=579sBB=18sDD=31 

460 RT=INT(((RN—AA)—1)/(BB-1))+DD:RS=RN- 
AA-(RT-DD)*BB+(RT-DD-1):RETURN 
470 « 

480 REM »HASH-ZAHL# 

490 HZ*«UG*( 1 > + "AAAAAA" 

500 H1=0:C=0 

510 FORA=lT06 

520 H1=ASC(MID*(HZ*,A,1)) 

530 Hl=(H1QRC)—(H1ANDC) 

540 C=((2*H1)AND255)OR(SGN(CAND128)) 

550 NEXT 

560 HZ=INT(Hl*662/255):IFHZ-0THENHZ-1 
570 RETURN 
5B0 : 

590 REM »MASKENDEFINITION* 

600 FORA=lTOFZ 

610 S7.(A>=0«Z*/.(A)-1+A*2 

620 BZ* (A)=FB*(A) s LE7. (A) =FL (A) :TY*(A)=FT 


*(A) 

630 NEXT 
640 MF=FZ 
650 RETURN 
660 : 

670 REM »MENUE* 

680 PRINT"CCLR>" 

690 GOSUB1830:PRINT"{RVSON,SPACE,RVOFF >" 
; 

700 PRINT"{RVSON,5SPACE >AUSWAHLMENUE <23S 
PACE,RVOFFJ":PRINT 

710 PRINT"I3SPACE,RVSQN>D{RV0FF JDATENDI 
SKETTE WECHSELN" 

720 PRINT"{DOWN,3SPACE,RVSON>E{RVOFF >EI 
NTRAGEN VON DATENSAETZEN" 

730 PRINT"tD0WN,3SPACE,RVSON>S<RVOFF >SU 
CHEN VON DATENSAETZEN" 

740 PRINT"{DOWN,3SPACE,RVSON >A CRVOFF >AE 
NDERN VON DATENSAETZEN" 

750 PRINT"tDOWN,3SPACE,RVSONJLtRVOFF >LO 
ESCHEN VON DATENSAETZEN" 

760 PRINT"tDOWN,3SPACE,RVSONJBCRVOFF >BL 
AETTERN IN DER DATEI" 

770 PRINT"CD0WN,3SPACE,RVSONJK{RVOFF >KO 
MPLETTE DATEI AUSDRUCKEN" 

780 PRINT"{DOWN,3SPACE,RVSON>N{RVOFF >NE 
UE DATEI AUFBAUEN" 

790 PRINT"{DOWN,3SPACE,RVSON>V{RVOFF >VE 
RLASSEN DES PROGRAMMS" 

800 PRINT 

810 GOSUB1830:PRINT"{RVSON,SPACE,RVOFF>" 
; 

820 PRINT"{RVSON,5SPACEIK0MMAND0 ?{25SPA 
CE,RVOFF>"; 

830 F r =FRE(0) 

840 K*=“DESALBKN” 

850 GETA*sFORA=lTOLEN(K*> 

860 IFA*=MID*(K*,A,1)THEN910 

870 IFA*="V"ANDID*=”DD"THENGOSUB4370 

880 IFA*="V”THENCLOSE15:END 

890 NEXT 

900 GOTOB50 

910 IFID*< >"DD"ANDA*<>"N"ANDA*< >"D"THEN8 
50 

920 0NAG0SUB3310,1860,2190,3030,3110,317 

0,3230,3390,4370 

930 GOTO670 

940 s 

950 REM *FUNKTIONSTASTEN* 

960 POKECS,0:POKEC Z,23 s SYSCR 

970 PRINT"{RVSON,3SPACEJF1 s DURCHFUEHRU 

NG DER FUNKTION{SSPACE,RVOFF}" 

980 PRINT"{RVSON >HELP s RUECKKEHR ZUM A 
USWAHLMENUE{5SPACE,RVOFF >" 5 
990 RETURN 
1000 : 

1010 REM #MASKENAUFBAU/STEUERUNG# 

1020 RF=0:REM RETURNFLAG INIT- 
1030 F0RA=1TQMF 

1040 POKECS,SV. (A) xP0KECZ,Z7.(A) :SYSCR 
1050 IFDA=0THENPRINTBZ*(A)"7" 

1060 NEXT 
1070 ZZ=1 
1080 : 

1090 s 
1100 : 

1110 IFDA=lTHENPOKECS,S7.(ZZ)+LEN(BZ*(ZZ) 
)+1:GOTOl130 

1120 POKECS,S7.(ZZ)+LEN(BZ*(ZZ) )+2 

1130 POKECZ,Z7.(ZZ) : SYSCR 

1140 GOSUB1410:REM EINGABEROUTINE 
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1150 PQKEA,PEEK ( A)AND127 
1160 IFA*=" {UP>"ANDZZ >1THENZZ=ZZ—1:G0TC11 
080 

1170 IF(A*="{DOWNVORASC(A*)=13)ANDZZ<MF 

THENZZ=ZZ+1:BQTO10B0 

1180 I FA*= " Z." THENRF= 1 s RETURN 

1190 IFA*< >"S"THEN1080 

1200 : 

1210 : 

1220 : 

1230 IFDAO1THEN1340 
1240 DA-0:FORA“1TQMF 
1250 UG*(A)= "" 

1260 SP=40*Z7.(A)+S7.(A)+LEN(BZ*(A> )+SC+l 
1270 FORB-SPTOSP+LE7. (A) -1 
1280 PE=PEEK(B):IFPE<32THENPE-PE+64 
1290 UG*(A>=UG$(A)+CHR$(PE> 

1300 NEXTB,A 
1310 RETURN 
1320 : 

1330 REM »MASKENFELDER EINLESEN* 

1340 FQRA=1T0MF 
1350 UG*(A>="" 

1360 PGKECS ,10: POKECZ , ZV. (A) : SYSCR 
1370 POKET Z,1:POKETP,13:1NPUTUG*(A) 

1380 NEXT 
1390 RETURN 
1400 : 

1410 REM »EINGABEROUTINE* 

1420 ML=0 
1430 A-SC+80 

1440 PQKEA,PEEK(A) AND127 
1450 A=SC+40*PEEK(CZ)+PEEK(CS) 

1460 POKEA,PEEK(A)OR128:POKEA+PA,93 

1470 BETA*:IFA*=""THEN1470 

1480 IFML=LEX(ZZ>THEN1570 

1490 IFTY*(ZZ)="A"THEN1520 

1500 IFTYi (ZZ) = ,, N"THEN 1540 

1510 IFTY*(ZZ)="B"THEN1560 

1520 IFASC(A*)=340RA*=":"ORA*=","QRA*<" 

"ORA* > 11 Z " THEN 1570 

1530 ML-ML+1:PRINTA*;:GOTO1440 

1540 IFA*>","ANDA*<":"ORA*=" "THENML-ML+ 

1:PRINTA$;:GOTO1440 

1550 GOTO1570 

1560 IFA*="A"ORA*="N"QR A*=" "THENML=ML+1 
:PRINTA*GOTO1440 

1570 IFASC < A* >-20ANDDA-0ANDML >0THENML=ML 
-1:PRINTA$;:GOTO1440 

1580 IFA*="<LEFT>"ANDML>0THENML=ML-1:PRI 
NTA*GOTO1440 

1590 I FA*= 11 TRIGHTJ " ANDML< LE7. (Z Z) THENML=M 
L+l:PRINTA*;s GOTO1440 

1600 I FA*- " {DOWN > " ORA*= 11 {UP } " ORA*= " Z" ORA 
*=■" ä" THENRETURN 
1610 GOTO1440 

1620 i 

1630 REM *INFOS DATEIAUFBAU* 

1640 PRINT"{RVSON JFELDNRC4SPACEJBEZEICHN 
UNG {4SPACE >LAENGE C4SPACE>TYP “ 

1650 PRINT" {RVSON, USPACEXMAX. 10) {5SPAC 
EXMAX.67) C2SPACEXA/N) {RVOFF}" 

1660 RETURN 
1670 : 

1680 REM *INFOS 3* 

1690 IFAF=1THENPRINT"{RVS0N,5SPACE>AENDE 
RN VON DATENSAETZENI11SPACE,RVQFF>“;:RET 
URN 

1700 IFBF=1THENPRINT"{RVSON,5SPACE> BLAET 
TERN IN DER DATEI{13SPACE,RVOFF>"RETUR 
N 


1710 IFEF=1THENPRINT"{RVSON,5SPACEJEINTR 
AGEN VON DATENSAET ZEN {9SPACE,RVOFF>";:RE 
TURN 

1720 IFLF=1THENPRINT"{RVSON,5SPACE>LOESC 
HEN VON DATENSAET ZEN{10SPACE,RVOFF >";:RE 
TURN 

1730 PRINT"{RVSON,5SPACETSUCHEN VON DATE 
NSAET ZEN {12SPACE,RVOFF > " j :RETURN 
1740 : 

1750 REM »INFOS 4* 

1760 POKECS,0:POKECZ,23:SYSCR 

1770 PRINT"{RVS0N,3SPACE>DATEIENDE ERREI 

CHT{18SPACE,RVOFF >" 

1780 PRINT"{RVSON,3SPACE>DRUECKEN SIE EI 
NE TASTE{13SPACE,RVOFF}"; 

1790 GETA*«IFA*=""THEN1790 
1800 RETURN 
1810 : 

1820 REM *INFOS 2* 

1830 PRINT"{RVSON,39SPACE,RVOFF >" ; 

1840 RETURN 
1850 : 

1860 REM »EINTRÄGEN* 

1870 IFID*<>"DD"THENRETURN: REM FALSCHE D 
ISKETTE 

1880 PRINT"{CLR>"; 

1890 GOSUB1830:PRINT"{RVSON,SPACE,RVOFF} 
" S 

1900 EF=1:REM EINTR.FLAG SETZEN 
1910 GOSUB1680 

1920 EF=0:REM EINTR.FLAG LOESCHEN 

1930 GOSUB950:GOSUB1010 

1940 IFAD=6620RRF=1THENRETURN 

1952 AD=AD+1 

1960 JPEN2,8,2,"#" 

1970 GOSUB480:REM HASH-ZAHL 
1980 RN=HZ 

1990 PRINT"{HOME,RVSON>"RN" " 

2000 BY=INT((RN—1)/8):BI=RN-1-8*BY 

2010 IF (BZ7. (BY) AND2tBI) < >0THEN2060 

2020 G0SUB410 

2030 GOSUB360:GQSUB350 

2040 GET#2,AS 

2050 I FA*= " i." THEN2090 

2060 RN—RN+1:IFRN—663THENRN—1 

2070 IFRN=HZTHENCL0SE2:RETURN 

2080 GOTO1990 

2090 GOSUB350 

2100 FORA=lTOFZ 

2110 IFUG*(A)=""THENUG*(A)="*" 

2120 PRINT#2,UG$(A>;CHR$(13); 

2130 NEXT 

2140 BZ7.(BY)=BZ7.(BY)OR2TBI 
2150 GOSUB370:CLOSE2 
2160 IFAF=1ORLF—1THENRETURN 
2170 GOTO1880 
2180 : 

2190 REM «SUCHEN* 

2200 RF=0:REM RETURNFLAG INIT. 

2210 HF=0iREM HILFSFLAG INITIALISIEREN ( 
BLOCKGRENZE UEBERSCHRITTEN?) 

2220 PRINT" {CLRV'j 

2230 GOSUB1830:PRINT"{RVSON,SPACE,RVOFF} 
"; 

2240 GOSUB1680 
2250 IFBF=1THEN2280 
2260 GOSUB950:GOSUB1010 
2270 IFRF-1THENRETURN 
2280 GPEN2,8,2,"#" 

2290 GQSUB480:REM HASH-ZAHL 

2300 RN=HZ:GOSUB2B30:REM SUCHABBRUCH 
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2310 PRINT"{HOME,RVSON}"RN" " 

2320 BY=INT( (RN-1)/8) s IFBZ7. (BY) =0THENRN= 
8*(BY+1> +1:GOTO2380 

2330 BI=RN—1—8*BY: IF (BZ7. (BY) AND2tBI) -0TH 
EN2370 

2340 GOSUB410 

2350 GOSUB360:GQSUB350 

2360 GET#2,A*:IFA*< > » £" THEN2420 

2370 RN=RN+1 

2380 IFRN >662THENRN=11HF= 1:REM HF=1:BLQC 
KGRENZE UEBERSCHRITTEN 

2390 I FHF= 1THENI FRN >=HZ THENBOSUB1750: RF=* 

1:CLQSE2:RETURN 

2400 GETA*:IFA*= M "THEN2310 

2410 RF=lsCL0SE2:RETURN 

2420 GOSUB350 

2430 FORA=1TOFZsINPUT#2,AG*(A)«IFAG*(A) = 
"*"THENAG*(A)="" 

2440 NEXT 

2450 IFBF=1THEN2500 

2460 F0RB=1TQFZ 

2470 IFUG*(B> =""THEN2490 

2480 IFLEFT*(AG*(B),LEN(UG*<B))><>UG*(B) 

THEN2370 

2490 NEXT 

2500 PRINT"{CLR»"} 

2510 GÜSUB1830 SPRINT"{RV5QN,SPACE,RVOFF J 

2520 GOSUB16B0 
2530 FORB=lTOFZ 

2540 PQKECS,0:POKECZ,1+B*2:SYSCR 
2550 PRINTBZ* CB)+": ";:PRINTAG*(B) 

2560 NEXT 

2570 GOSUB2860:REM DRUCKEN? 

2580 IFLF=1THENGOSUB2710:REM LQESCHFLAB 
GESETZT? 

2590 IFLF=1ANDA*="J"THENCLDSE2:RETURN 

2600 I FUL= 1ANDLF= 1 THENRF= 1 s CL0SE2: RETURN 

2610 IFUL=1THENGOSUB,1750:CLQSE2:RETURN 

2620 IFKF=1THEN2690 

2630 POKECS,0sPOKECZ,23:SYSCR 

2640 PRINT"{RVSON,5SPACE>WEITERSUCHEN (J 

/N> ?{14SPACE,RVOFF»" 

2650 GOSUB1830 

2660 GETA*:IFA*<>"J"ANDA*< >"N"THEN2660 

2670 IF A*="N"AND < BF=1ORAF=1ORUF=1ORKF=1) 

THENCLÜSE2s RETURN 

2680 IFA*="N"THENCL0SE2:GQTO2200 

2690 GOSUB2830:GOTO2370 

2700 : 

2710 REM *SICHERHEITSABFRAGE* 

2720 POKECS,0SPÜKECZ,23:SYSCR 

2730 PRINT"{RVSON,5SPACE>L0E5CHEN (J/N) 

? {18SPACE,RVQFF >" 

2740 GDSUB1830 

2750 GETA*:IFA*< >"J"ANDA*< >"N"THEN2750 

2760 IFA$="N ,I THENRETURN 

2770 BZ7. (BY > =BZ7. (BY > ANDNQT2tBI 
2780 GQSUB350 s PRINT#2,"±"s GOSUB370 
2790 AD=AD—1:GF=1s REM GELQESCHTFLAG SETZ 
EN 

2800 RETURN 
2810 : 

2820 REM »SUCHABBRUCH* 

2830 PQKECS,0:POKECZ,23:SYSCR SPRINT"{RVS 
ON »ABBRUCH DER SUCHE MIT BELIEBIGER TAS 
TE{RVOFF >" 

2840 GOSUB1830 s RETURN 
2850 s 

2860 REM »DRUCKEN* 

2870 IFKF=1THEN2920 


2880 POKECS,0:POKECZ,23sSYSCR 

2890 PRINT"{RVSON,5SPACE»AUSDRUCKEN (J/N 

) ?C16SPACE,RVOFFJ":GOSUB1830 

2900 GETA*:IFA*<>"J"ANDA*<>"N"THEN2900 

2910 IFA*="N"THENRETURN 

2920 0PEN4,4 

2930 F0RB=1TQFZ 

2940 IFAG*(B) =""THEN2970 

2950 IFKF=1THENPRINT#4,AG*(B)"{2SPACE>" ; 

s GOTQ2970 

2960 PRINT#4,BZ*(B)+" sI4SPACE»"AG*(B) 
2970 NEXT 

2980 IFKF=1THENPRINT#4 
2990 PRINT#4 
3000 CL0SE4 
3010 RETURN 
3020 : 

3030 REM *AENDERN* 

3040 AF=1:REM AENDERNFLA8 SETZEN 

3050 G0SUB3110:REM LOESCHEN 

3060 IFRF=1ORGF=0THENAF=0:RETURN:REM RET 

URNFLAG GESETZT? 

3070 PRINT"{HOME5";s GOSUB1890:REM EINTRA 
GEN 

3080 AF=0:REM AENDERNFLAG LOESCHEN 
3090 RETURN 
3100 : 

3110 REM »LOESCHEN* 

3120 LF=1:REM LOESCHFLAG SETZEN 
3130 G0SUB2190:REM SUCHEN 
3140 LF=0:REM LOESCHFLAG LOESCHEN 
3150 RETURN 
3160 : 

gl?© REM »BLAETTERN* 

3180 C;=1:REM BLAETTERNFLAG SETZEN 
3190 G0SUB2190:REM SUCHEN 
3200 BF=0:REM BLAETTERNFLAG LOESCHEN 
3210 RETURN 
3220 : 

3230 REM »KOMPLETTE DATEI AUSDRUCKEN* 
3240 0PEN4,4 

3250 A*="******************************* 
»****»";PRINT#4,A* 

3260 PRINT#4,"»DATAMASTER VERTRIEB:BALOU 
I SOFTWARE*" 

3270 PRINT#4,A* 

3280 F0RA=1T03:PRINT#4sNEXT:CL0SE4 
3290 KF=1:GOSUB3170:KF=0sRETURN 
3300 : 

3310 REM »DATENDISK WECHSELN* 

3320 IFID*="DD"THENGOSUB4370 
3330 POKECS,0sPOKECZ,22:SYSCR 
3340 PRINT"{RVSON »BITTE LEGEN SIE EINE 
DATENDISKETTE EIN{SPACE,RVOFF »"; 

3350 PRINT"{RVSON »UND DRUECKEN SIE EINE 
BELIEBIGE TASTE{2SPACE,RVOFF»"; 

3360 GETA*:IFA*=""THEN3360 
3370 GOSUB150:RETURN 
3380 s 

3390 REM »DATEIAUFBAU* 

3400 IFID*="DD"THENGOSUB4370 
3410 PRINT"{CLR>“; 

3420 GOSUB1630 

3430 GOSUB950:REM INFOS FUNKTIONSTASTEN 
3440 1 

3450 REM MASKENDEFINITION 
3460 MF=30 
3470 FORA=1TO10 

3480 POKECS,0sPOKECZ,l+2*AsSYSCR 

3490 PRINT"{RVSON»"A"{LEFT,SPACE,RVOFF»" 

3500 NEXT 
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3510 IFFZ=0THEN3550 
3520 F0RA=1T0FZ 

3530 FB* (A)=BZ* (A> : FL (A) =LE7. (A) : FT* (A> =T 
Y*(A) 

3540 NEXT 

3550 FORA=1TO30STEP3 

3560 S7.(A)=9:Z7.(A)=3+2*INT(A/3) iBZ*(A)=" 

"t LEX(A)=10:TY*(A)="A" 

3570 S7.(A+l)=24:Z7.(A+l)=3+2*INT(A/3) »BZ* 

(A+l) " s LE7. CA+1) =*2« TY* (A+l > = "N" 

3580 S7. (A+2) =34: Z7. (A+2) =3+2* INT(A/3 >:BZ* 

(A+2) (A+2) =1 s TY* (A+2) ="B" 

3590 NEXT 

3600 DA=1:GOSUB1010:DA=0:REM MASKENAUFBA 
U/STEUERUNG 

3610 IFRF=1THENGOSUB590s RETURN 
3620 BS=0s FORA=1TO30STEP3s SS=SS+VAL(UG*( 
A+1))sIFVAL(UG*(A+1))>67THEN3640 
3630 NEXT:SS=SS+10:IFSS<255THEN3690 
3640 POKECS,0:PQKECZ,23:GYSCR 
3650 PRINT"{RVSON >FELD— BZW. SATZLAENGE 
UEBERSCHRITTEN!{RVOFF>" 

3660 PRINT"{RVSON,5SPACETDRUECKEN SIE EI 
NE TASTE {10SPACE,RVQFF >“; 

3670 GETA*: IF A*= " " THEN3670 
3680 GOSUB950 s DA=1:GÜSUB1070:DA=0:GQT036 
10:REM EINSPRG.MASKENSTEUERUNG 
3690 FORA=1TO30STEP3 
3700 IFUG*(A)="<10SPACE>"THEN3760 
3710 IFVAL(UG*(A+l))>0AND(UG*(A+2)="A"GR 
UG*(A+2)="N")THEN3760 
3720 POKECS,0:POKECZ,23:SYSCR 
3730 PRINT"{RVSON>IHRE DATEIBESCHREIBUNG 
IST UNVOLLSTAEN-{RVOFF>" 

3740 PRINT"{RVSON JDIG BZW. FEHLERHAFT. 
KORRIGIEREN SIE!{SPACE,RVOFF >";:FORB=1TO 
3000:NEXTB 

3750 GOSUB950:DA=1:GOSUB1070:DA=0:G0TQ36 
10 

3760 NEXTA 

3770 POKECS,0:POKECZ,23:SYSCR 
3780 PRINT"{RVSON,5SPACETK0RREKTUR (J/N) 
?{17SPACE,RVOFF}" 

3790 GOSUB1830 

3800 GETA*:IFA*< >"J"ANDA*<>"N"THEN3B00 

3810 IFA*="N"THEN3850 

3820 GOSUB950:REM INFOS DATEIAUFBAU 

3830 DA=1:GOSUB1070:DA=0:G0T03610:REM EI 

NSPRG.MASKENSTEUERUNG 

3840 AD=0:REM ANZ.DATENSAETZE INIT. 

3850 POKECS,0:POKECZ,23:SYSCR 

3860 PRINT"{RVSON,2SPACEISIND SIE SICHER 

, DASS SIE EINE NEUE{2SPACE,RVOFF>" 

3870 PRINT"{RVSON,5SPACE>DATEI AUFBAUEN 
WOLLEN (J/N) ?{5SPACE,RVOFF > " ; 

3880 GETA*:IFA*< >"J"ANDA*<>"N"THEN38B0 
3890 IFA*="N"THENGOSUB590:RETURN 
3900 FZ=10 
3910 FORA=1TO10 

3920 FB*(A)=UB*(A*3-2)«REM FELDBEZEICHNU 
NG 

3930 FL(A)=VAL(UG*(A*3-l)):REM FELDLAENG 
E 

3940 FT*(A)=UG*(A*3):REM FELDTYP 
3950 NEXT 
3960 F0RA=1T09 

3970 IFFB*(A)< >"{10SPACE>"THEN4030 
3980 F0RB=AT09 

3990 FB*<B)=FB*<B+1)sFL(B)=FL(B+l) 

4000 FT*(B)=FT*(B+l) 

4010 NEXTB 


4020 FZ=FZ-1 
4030 NEXTA 

4040 IFFB*(10)=“{10SPACEJ"THENFZ=FZ—1 
4050 F0RA=1T0FZ 

4060 S7.(A)=0:Z7.(A)=1+A*2:BZ*(A)=FB*(A) :L 
E7. (A) =FL (A) : TY* (A) =FT* (A) 

4070 NEXT 

4080 FORA=0TOB2:BZ7.(A)=0:NEXT 
4090 AD=0:REM ANZ.DATENSAETZE INIT. 

4100 POKECS,0:POKECZ,23:SYSCR 

4110 PRINT"{RVSONTBITTE LEGEN SIE EINE L 

EERE DISKETTE EIN{RVOFF>" 

4120 PRINT"{RVSON,5SPACE >UND DRUECKEN SI 
E EINE TASTE{7SPACE,RVOFF>"; 

4130 GETA*:IFA*=""THEN4130 

4140 GOSUB380:PRINT#15,"Ul:"2;0;18;0:PRI 

NT#15,"B-P:"2j162 

4150 :GET#2,A*:GET#2,B*:A*=A* 

+B* 

4160 GOSUB390 
4170 IFA*="DD"THEN4100 
4180 POKECS,0:POKECZ,23:SYSCR 
4190 PRINT"{RVSON,2SPACETBITTE HABEN SIE 
GEDULD. DER AUFBAU{3SPACE,RVOFF>" 

4200 PRINT"{RVSON,2SPACE>DER DATEI BENQE 
TIGT MEHRERE MINUTEN{2SPACE,RVOFFV; 

4210 PRINT#15,"N:DATAMASTER-DATEI,DD" 
4220 GOSUB380:PRINT#15,"U1:”2;0;18;0 
4230 ID*="DD":PRINT#15,"B—P:"2;162:PRINT 
#2,ID*;:PRINT#15,”U2:"2;0;18;0 
4240 PRINT"{HOME,RVSONJBLOCKNR.{RVOFF>" 
4250 FORRN=1T0662 

4260 PRINT“{HOME,DOWN,RVSON>"RN"{2SPACE, 

rj" 

3OSUB410 
4280 GOSUB350 
4290 PR INT #2," 4," 

4300 GOSUB370 
4310 NEXTRN 
4320 GOSUB390 

4330 GOSUB4370:REM MASKE ABSPEICHERN 
4340 GOSUB150:REM DATEN EINLESEN 
4350 RETURN 
4360 : 

4370 REM »VERLASSEN* 

4380 GOSUB3B0 
4390 RN=663 
4400 GQSUB410 
4410 GOSUB350 

4420 PRINT#2,AD;CHR*(13);FZ 
4430 F0RA=1TQFZ 

4440 PRINT#2,BZ* (A) ; CHR* (13) ; LE7. (A) } CHR* 
(13);TY*(A) 

4450 NEXT 
4460 GOSUB370 

4470 RN=664:GOSUB410:GOSUB350 

4480 FORA=0TO82:PRINT#2,STR*(BZX(A))«NEX 

T 

4490 GOSUB370:GOSUB390 
4500 RETURN 
4510 : 

4520 REM »TITELBILD* 

4530 : 

4540 PRINT"{CLR>" 

4550 PRINT"{7D0WN,14SPACE >DATAMASTER" 

4560 PRINT" {14SPACEJ-" 

4570 PRINT"{3D0WN,7SPACE> BALOUI SOFT 
WARE, 1985“ 

4730 RETURN 
664'er 

Listing »Datamaster« für den C16 (Schluß) 
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VC 20 


Der VC 20 als 
Musik Maestro 

Mit dem Musik Maestro bringen Sie Ihrem VC 20 
Töne bei. Das Programm nutzt die Fähigkeiten 
des VC 20, so weit es geht, aus. Trotzdem ist das 
Programm leicht zu bedienen und begeistert alle, 
die sich bisher nicht mit Musik beschäftigt haben. 


M usik Maestro wurde programmiert, um polyphone 
Musikstücke mit bis zu drei Stimmen spielen zu kön¬ 
nen. Das Programm wurde zusätzlich mit einer an¬ 
sprechenden Grafik (Notenschlüssel, Notenzeichen etc.) 
ausgestattet. Dabei werden alle drei Stimmen gleichzeitig auf 
dem Bildschirm dargestellt. Die Programmierung der Musik¬ 
stücke ist »kinderleicht« und wird Ihnen viel Spaß machen. 

Im Direktmodus folgende Zeile eingeben: 

Laden des Programms: 

POKE 44,32:P0KE 43,1:P0KE 8192,0:NEW sowie 
:P0KE 648,30: SYS 58648. 

Danach lädt man das Programm »Music Maestro Basic Loa- 
der« (Listing 1) und startet es durch RUN. Es bringt das 
Maschinenspracheprogramm und einen neu definierten Zei¬ 
chensatz in das unter dem Basic-Anfang liegende RAM. Das 
Programm ist mit Prüfsummen versehen, so daß bei einem 
Eingabefehier die fehlerhafte Zeile ausgewiesen wird. 

Wenn das Programm beendet ist, fordert es dazu auf, es zu 
löschen und das Hauptprogramm einzugeben. Man gibt NEW 
ein und lädt das Hauptprogramm (Music Maestro Basic, 
Listing 2). Dieses startet man einfach mit RUN. 

»Music-Maestro« ist dazu geeignet, polyphone Musik¬ 
stücke mit bis zu drei Stimmen zu spielen, einzugeben, zu 
ändern und zu transponieren, oder eigene Musikstücke zu 
komponieren und abzuspielen. Es zeichnet sich durch 
äußerst komfortable Eingabe der Noten aus (meist genügen 
zwei Tasten pro Note), durch vielseitige Editiermöglichkeiten 
und vor allem durch eine gute Notengrafik (beim Eingeben 
und beim Spielen). Die Grafik stellt sämtliche Noten völlig kor¬ 
rekt dar mit allen Zusatzzeichen wie Kreuz, Punktierung, 
Hilfslinien, etc. Es können drei Notenschlüssel gewählt wer¬ 
den sowie sieben verschiedene Tempi. Es lassen sich alle 
Stimmen zusammen spielen oder auch einzeln. Jede Melodie 
kann beliebig höher oder niedriger transponiert werden (zum 
Beispiel von C-Dur nach G-Dur). Schließlich können die ein¬ 
gegebenen Stücke auf Kassette gespeichert und wieder 
geladen werden. Die Aufteilung des Speichers läßt sich frei 
wählen. Dank einer codierten Speicherung wird pro Note nur 
ein Byte Speicherplatz benötigt, so daß trotz der Länge des 
Programms noch über 5000 Töne zur Verfügung stehen, mit 
24 KByte-Erweiterung sogar 13000 Töne. 

Bedienung des Programms im einzelnen: 


Nach dem Starten beginnt das Programm mit einer einfachen 
Demonstration (Unterprogramm ab Zeile 32000). Durch 
Drücken einer beliebigen Taste kommt man ins Menü, wo man 
zwischen sieben Optionen wählen kann. Diese werden im fol¬ 
genden beschrieben. 


Noten eingeben/editieren: 

Hier wählt man zunächst die Stimme aus (1 bis 3). Sodann 
kann man Vorzeichen (Kreuz oder b) eingeben, die für die 
ganze Zeit des Eingebens gelten, bis sie bei einem erneuten 
Sprung vom Menü in den Eingabeteil geändert werden. 
Danach kann man Darstellung der Noten im Violin-, B- oder 
Baßschlüssel wählen. Nun erscheint der Bildschirmaufbau. 
Oben wird die Stimme angezeigt, darunter die Nummer des 
Tones, der als nächster eingegeben wird, sowie die Zahl der 
noch freien Töne. Es stehen insgesamt über drei Oktaven zur 
Verfügung. Die rote senkrechte Linie links zeigt ungefähr an, 
welche Oktave gerade gewählt wurde. Mit den Tasten Fl, F3, 
F5 und F7 kann von Oktave 1 bis Oktave 4 gewählt werden. 
Noten eingeben 

Dies geschieht sehr einfach. Will man zum Beispiel das »C« 
eingeben, so drückt man einfach die Taste »C«, für das »D« die 
Taste »D« und so weiter, für das »H« allerdings die Taste »B«. 
Jetzt erscheint auf dem Bildschirm das violette Zeitwertsym¬ 
bol, das anzeigt, daß nun die Eingabe der Länge der Note 
erwartet wird (ganze, halbe, viertel und so weiter). Dies 
geschieht mit den Tasten 1 bis 7. Taste 1: ganze Note, Taste 
2: halbe, Taste 3: viertel, Taste 4: achtel und so weiter bis 
Taste 7: hundertachtundzwanzigstel. Nun wird im Notensy¬ 
stem die Note angezeigt und gespielt und der Zähler für die 
Ton-Nummer erhöht sich. Jetzt kann die nächste Note einge¬ 
geben werden. (Für das »C« wählt man die Oktave 2, für das 
»C« die Oktave 3, für das »C"« die Oktave 4 (siehe Bild)). Hat 
man vorher Vorzeichen eingegeben, zum Beispiel »#« für 
»F«, so wird ein »F« automatisch zu »Fis« erhöht. Es können 
natürlich auch alle anderen Noten erhöht, beziehungsweise 
erniedrigt werden. Dazu gibt man einfach die Note geshiftet 
oder mit der Commodore-Taste ein. Soll im Beispielsfall das 
»F« ausnahmsweise nicht erhöht werden, so drückt man erst 
die CTKL-Taste (es erscheint ein Auflösungszeichen) und 
danach das »F«. Der Vorteil mit den Oktavenwahltasten liegt 
darin, daß man solange Noten mit nur zwei Tasten eingeben 
kann, bis die Oktave gewechselt werden soll, erst danach 
muß man eine weitere Taste drücken. 

Punktierte Noten: 

Will man zum Beispiel eine halbe Note punktieren, gibt man 
erst die halbe Note und dann die gleiche noch einmal als 
Viertel-Note ein - das Programm erkennt die Punktierung und 
stellt sie später richtig dar. 

Editieren: 

Zum Korrigieren und zum Überprüfen der bereits eingege¬ 
benen Noten kann man wie folgt editieren: Taste »—« geht 
einen Schritt zurück und zeigt die hier eingegebene Note an 
beziehungsweise spielt sie, mit Taste »t« geht man einen 
Schritt vorwärts. Will man die so überprüfte Note ändern, gibt 
man jetzt einfach die gewünschte neue Note ein; die alte 
Note wird überschrieben. Mit SHIFT F1.F3 beziehungsweise 
SHIFT F5.F7 kann man zehn und 50 Schritte vor- und zurück¬ 
gehen. Mit Taste »+« (Insert) werden alle folgenden Töne 
einen Schritt nach vorne geschoben, so daß eine Note einge¬ 
fügt werden kann, mit Taste »-« (Delete) wird die zuletzt ein¬ 
gegebene beziehungsweise editierte Note gelöscht, alle fol¬ 
genden Noten rücken einen Schritt zurück (alle Tasten haben 
Wiederholautomatik). 

Wenn man beim Eingeben oder Editieren über den zulässi¬ 
gen Bereich vor- oder zurückgehen will, ertönt ein neunmali¬ 
ges Warnsignal, und der Befehl wird nicht ausgeführt. Taste 
»P« und die Tasten eins bis sieben : Pause (ganze, halbe, vier¬ 
tel und so weiter). Taste »*«: End-Marker. Hierdurch wird das 
Ende des Musikstücks beim Spielen angezeigt, der Marker 
kann jederzeit geändert beziehungsweise überschrieben 
werden; es sollte jedoch immer ein Marker gesetzt werden. 
Beim Editieren wird der Marker durch dreimaligen Piepton 
angezeigt. Man kann natürlich über den Marker hinaus editie¬ 
ren und eingeben. 
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Taste »=«: PLAY (Spielen der eingegebenen Melodie), 
siehe PLAY. 

Taste »£«: Rückkehr zum Menü. 

PLAY (Spielen): 

Hier wird gefragt, wieviele Stimmen zugleich gespielt wer¬ 
den sollen. Man sollte nur die Stimmen spielen, bei denen 
man auch Noten eingegeben und den End-Marker gesetzt 
hat. Dann wird für die gewählten Stimmen gefragt, mit wel¬ 
chem Notenschlüssel sie dargestellt werden sollen. Schließ¬ 
lich kann man das Tempo wählen. Jetzt erscheint nach eini¬ 
gen Sekunden der Bildschirm mit drei verschiedenfarbigen 
Notensystemen. Durch Drücken einer beliebigen Taste wird 
das Ganze gestartet. 

Während des Abspielens kann man folgendes ändern: 
Taste Fl, F3: schneller, Taste F5, F7: langsamer, Taste »—«: 
Stop, danach durch Taste »t« Fortsetzung, Taste »S«: Spielen 
beenden. Wenn alle Stimmen nicht mehr gespielt werden 
beziehungsweise wenn Taste »S« gedrückt wurde, kann man 
mit beliebiger Taste ins Menü zurückkehren (außer »S«), mit 
Taste »SPACE« wird das Abspielen wiederholt. 

Transponieren: 

Hierdurch kann man einfach eingegebene Stücke höher 
oder niedriger versetzen (transponieren), das Programm 
fragt nach den nötigen Angaben und führt das Transponieren 
unter akustischer Kontrolle aus. 

Reservieren: 

Am Anfang werden automatisch für Stimme 1 und 2 je 
2000 Töne, für Stimme 3 genau 1000 Töne reserviert. Dies 
kann man beliebig ändern, wenn zum Beispiel für eine 
Stimme alle Töne reserviert werden sollen. Das Minimum sind 
15 Töne. Zu beachten ist nur, daß nach SAVE oder LOAD wie¬ 
der die alte Reservierung vom Anfang vorhanden ist, man 
muß dann gegebenenfalls neu reservieren. 

SAVE 

Hiermit kann man eingegebene Stücke auf Kassette spei¬ 
chern. Das Programm erfragt die nötigen Daten. Es kann nur 
jeweils eine Stimme auf einmal gespeichert werden. 

Will man also zum Beispiel ein dreistimmiges Stück spei¬ 
chern, so führt man drei SAVE-Operationen für Stimme 1 bis 
3 nacheinander aus. 

LOAD 

Hierdurch wird die gespeicherte Melodie genauso wieder 
geladen, wie sie gespeichert wurde. Soll die Melodie wieder 
gespielt werden, muß auch die Reservierung der Töne die 
gleiche sein wie beim Speichern. Will man zum Beispiel ein 
dreistimmiges Stück wieder laden, so sind (für die drei Stim¬ 
men) drei LOAD-Operationen hintereinander auszuführen. 
Am besten ist es, wenn man SAVE und LOAD nur mit der vom 
Programm am Anfang vorgenommenen Reservierung ver¬ 
wendet, wenn man also an der Reservierung nichts ändert. 


Geschwindigkeitsänderung: 

Wenn man die Geschwindigkeit verlangsamen oder erhö¬ 
hen will, so kann man den Wert 5 in Zeile 12364 erhöhen 
(langsamer) beziehungsweise erniedrigen (schneller), 
ebenso den Wert 35 in derselben Zeile erniedrigen. 

(C. Neupert/aw) 


Maschinenprogramm-Adressen: 

SYS 6067; 

Löschen von Stimme S 

SYS 5460: 

Darstollen der Note für Stimme S 

SYS 5490; 

Darstellen der Pause tur Stimme S 

SYS 51 20; 

PLAY Stimme 0 bis 2 

Die Programme benötigen folgende Daten: 

für Grafik: 


835: 

Stimmflag (0 bis 2) 

834: 

Schlüsselflag (siehe oben SF) 

838: 

Notenwert (siehe oben TP) 

841: 

L (siehe oben L) 

»PLAY«: 


860, 861,862: 

TA(S) LSB für Stimme S 

863, 864, 865: 

TA(S) MSB für Stimme S 

880, 881,882: 

Flag für Stimme S, ob spielen oder nicht (1=ja) 

Anmerkungen: 


Im Spielmodus werden Halbtöne nur mit Kreuz ausgegeben, nicht mit 

»b« (aus »g-es« wird also zum Beispiel »fis«), was aber in der Praxis kei- 

nen Unterschied bedeutet. 

Die letzte obere 

Note (»c"«) kann nur bis 1/64 Lange haben, 

1/128 Lange ergibt den End-Marker. 

Punktierte Noten werden korrekt gespielt. 


Variable 


S: 

Stimme (0 bis 2) 

SF: 

Schlüsselflag 

O: 

Violinschlüssel 

1: 

B-Schlüssel 

2: 

Baßschlüssel 

OK: 

Oktave (0 bis 3) 

N: 

Zähler für RAM, an welche Adresse eingegebener 

Ton gespeichert werden soll. 

L 

Art der einzugebenden Note (ob C,D,E,F etc.) 

L=0 : Pause, L=1 : F. L=2 : G. bis L=31 : c" 

TP: 

Notenwert (ganze, halbe, viertel etc.) (0,1, bis 7) 

TA(S), TE(S): 

Anfang beziehungsweise Ende der RAM-Adresse, an 
die Töne der Stimme S zu speichern sind 


Zusammenfassung der Bedienung des Programms: 

Eingabe/Editieren: 


Eingabe: 

Tasten »C,D,E,F,G,A,B« und Tasten »1 bis 7« (für ganze. 


halbe, viertel etc. 

bis 1/128 Note. 


Erhöhen: 

GeSHIFTete Tasten »C,D« etc. 


Erniedrigen: 

Commodore-Taste + C,D etc. 


Auflösungs¬ 

zeichen: 

erst CTRL-Taste, dann C,D etc. 


Taste »P« und 

Pause (ganze, halbe, viertel) 


1,2,3 etc: 

Taste »Fl« bis 

Oktave 1 bis 4 


»F7«: 

Taste »*«: 

End-Marker setzen 

Editieren: 

Taste »—«: 

1 Ton rückwärts 


Taste »t«: 

1 Ton vorwärts 


SHIFT Fl: 

wie »1«, nur 10 Töne 


SHIFT F3: 

wie »1«, nur 50 Töne 


SHIFT F5: 

wie »*-«, nur 10 Töne 


SHIFT F7: 

wie » —«, nur 50 Töne 


Taste »+«: 

INSERT (Einfügen) 


Taste»-«: 

DELETE (Löschen) 


Taste »«=«: 

PLAY (Abspielen) 


Taste »E«: 

zurück ins Menü 

Play: 

beliebige Taste, um zu starten. 

Während des Abspielens: 


Fl. F3: 

schneller 


F5, F7: 

langsamer 


Taste »-«; 

STOP 


Taste »1«: 

GO 


Taste »S«: 

Spielen beenden 

Nach Beendigung: Taste »SPACE«: wieder spielen 

andere Tasten (außer S:) Menü 


Anmerkung: 



ln der untersten Oktave können nur die Töne von »Fis« aufwärts 
gespielt werden, in der obersten (vierten) Oktave nur das »c"«, 
andere Noten erzeugen eine Pause. 
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1 REM <063> 

2 REM *» MUSIC MAESTRO *# <047> 

3 REM *# MACHINE CODE LOADER *# <041> 

4 REM *# <053> 

5 REM #* BY CLAUS NEUPERT *# <104> 

6 REM ## ** <006> 

7 REM ** BEFORE LOADINB« *# <230> 

B REM ** 'POKE 44,32»POKE 8192,0lNEW - ## <U2> 

9 REM #* AND«"POKE 648,30»SYS 5B64B* <106> 

10 DIM H(75)»FOR 1-0 TO 9 <139> 

20 H <48+1)“I» H(65+1)-1 + 10» NEXT <067> 

30 FOR 1-4730 TO 7673»READ A* <127> 

40 H-ASC(LEFT* <A*,1))»L-ASC(RIBHT* <A»,1)) <223> 

50 D—H<H)*16+H<L>«S-S+D■POKE I,D <243> 

60 A-A+l<IF A<20 THEN NEXT« A—1 <165> 

65 PRINT"ZEILE "|1000+Z| <1B1> 

70 READ V» Z—Z+l»IF V-S THEN B5 <049> 

80 PRINT"FEHLER !"|999+Z»BTOP <023> 

85 IF A<0 THEN 100 <223> 

90 S-0»A-0»PRINT»NEXT» <121> 

100 PRINT"tCLR,DOWN>BEBEN SIE 'NEW' EIN" <01B> 

110 PRINT"IDOWNIUND LADEN SIE" <194> 

120 PRINT"<DOWN>’MUSIC MAEBTRO BASIC - " <221> 

130 END <132> 

1000 DATA 41,43,48,20,43,4F,44,45,32,32,20 

,32,32,20,34,38,31,32,38,20, 1078 <220> 

1001 DATA 38,20,34,38,31,31,35,36,34,4D,55 

,53,49,43,20,4D,41,53,54,45, 1248 <080> 

1002 DATA AD,40,03,SD,0B,90,BE,40,03,EB,BE 

,43,03,60,EA,BD,66,03,D0,03, 2024 <006> 

1003 DATA 4C,08,16,DE,66,03,60,EA,EA,EA,DE 

,76,03,A9,01,9D,66,03,60,EA, 2336 <152> 

1004 DATA EA,EA,EA,EA,EA,8A,48,0A,0A,0A,18 

,69,04,48,AA,A0,05,BD,7A,03, 2264 <080> 

1005 DATA C9,09,F0,06,FE,7A,03,16,90,0B,A9 

,00,9D,7A,03,CA,88,C0,00,D0, 2203 <021> 

1006 DATA E8,68,A8,68,AA,A9,00,SD,96,03,8E 

,95,03,98,3B,E9,04,AA,BD,7A, 2461 <199> 

1007 DATA 03, 18,69,60,20,2D, 13,ES,EE,96,03 

,A9,05,CD,96,03,D0,EC,60,4B, 2091 <233> 

1008 DATA AC,96,03,AD,95,03,C9,00,F0,0E,C9 

,01,F0,05,68,99,54,1F,60,68, 2124 <026> 

1009 DATA 99,AF,IE,60,68,99,19,1E,60,EA,C9 

,27,D0,10,AE,B6,03,E0,0F,D0, 2366 <064> 

1010 DATA 02, A2, FF, E8,8E, B6,03,4C, 74,13, C9 

,2F,F0,01,60,AE,B7,03,E0,07, 2365 <041> 

1011 DATA D0,02,A2,FF,E8,8E,B7,03,EA,EA,48 

,AD,B6,03,0A,0A,0A,0A,BB,6D, 2418 <087> 

1012 DATA B7,03,18,69,08,6D,0F,90,68,60,EA 

,EA,EA,A5,C5,C9,40,D0,01,60, 2457 <099> 

1013 DATA C9,27,D0,0C,CE,6C,03,CE,6C,03,CE 

,6C,03,EA,EA,EA,C9,37,D0,0C, 2589 <160> 

1014 DATA EE,6C,03,EE,6C,03,EE,6C,03,EA,EA 

,EA,C9,0B,D0,0C,A5,C5,C9,40, 2805 <181> 

1015 DATA D0,FA,A5,C5,C9,36,D0,FA,C9,29,F0 

,01,60,A2,02,A9,01,9D,53,03, 2689 <017> 

1016 DATA 9D,0A,90,CA,EA,EA,10,F5,60,EA,AE 

,43,03,BD,76,03,F0,0B,AC,44, 2617 <249> 

1017 DATA 03,A9,60,99,05,1A,99,06,1A,60,20 

,EA,15,A3,CS,C9,40,F0,FA,C9, 2338 <104> 

1018 DATA 20,F0,07,20,4C,13,18,90,ED,EA,A0 

,02,B9,70,03,99,56,03,49,01, 1823 <146> 

1019 DATA 99,53,03,A9,00,99,76,03,SB,10,ED 

,A0,00,8C,43,03,C8,CC,33,03, 1931 <252> 

1020 DATA F0, IE ,CC, 56,03, D0,19, A2,00,20,6B 

,1C,A2,00,20,13,13,20,37,13, 1467 <143> 

1021 DATA BD,0C,90,AD,73,03,8D,42,03,20,CS 

,12,A0,01,BC,43,03,CC,54,03, 1707 <231> 

1022 DATA F0,1E,CC,57,03,D0,19,A2,01,20,6B 

,IC,A2,01,20,13,13,20,37,15, 1470 <173> 

1023 DATA BD,0B,90,AD,74,03,80,42,03,20,C5 

,12,A0,02,8C,43,03,8B,CC,55, 1842 <009> 

1024 DATA 03,D0,0B,CC,54,03,D0,24,CC,53,03 

,D0,IF,60,CC,3B,03,D0,19,A2, 2072 <030> 

1025 DATA 02,20,6B, IC,A2,02,20,13, 13,20,37 

,15,8D,0A,90,AD,75,03,8D,42, 1308 <217> 

1026 DATA 03,20 , C5,12, AD , 53,03 , C9,01, F0,1D 

,AD,50,03,CD,4D,03,D0,12,A2, 1909 <044> 

1027 DATA 01,BE,56,03,CA,8E,50,03,20,E6,1D 

,20,AC,17,18,90,03,EE,S0,03, 1669 <116> 


1028 DATA AD,54,03,C9,01,F0,1D,AD,51,03,CD 

,4E,03,D0,12,A2,01,8E,57,03, 1895 <112> 

1029 DATA CA, BE, 51,03,20, B6,12,20, AC ,17,18 

,90,03,EE,51,03,AD,53,03,C9, 1842 <1BB> 

1030 DATA 01,F0,1D,AD,52,03,CD,4F,03,D0,12 

,A2,01,BE,58,03,CA,BE,32,03, 1866 <104> 

1031 DATA 20,63,13,20,AC,17,18,90,03,EE,32 

,03,20,88,13,EA,EA,EA,EA,20, 2028 <211> 

1032 DATA EA,13,4C,15,14,A9,00,9D,56,03,AD 

,5A,03,9D,4D,03,C9,FF,D0,06, 1960 <160> 

1033 DATA A9,01,90,53,03,60,AD,49,03,C9,00 

,00,03,20,72,15,A8,B9,DE,IC, 1940 <043> 

1034 DATA 60,4B,A9,01,DD,76,03,D0,05,20,D4 

,12,68,60,AC,49,03,CC,62,03, 1908 <082> 

1035 DATA F0,02,68,60,AC,46,03,CB,CC,63,03 

,F0,02,68,60,90,76,03,68,9D, 2174 <096> 

1036 DATA 3F,03,60,EA,EA,AD,41,03,BD,0A,90 

,BE,41,03,EB,EB,BE,43,03,60, 2148 <244> 

1037 DATA AC,46,03,AE,43,03,BD,C5,ID,18,79 

,B0,1D,AA,98,B8,C9,03,30,32, 2062 <037> 

1038 DATA 38 , E9,02,0A , 0A , 0A, AB, BC , 4B, 03 , A0 

,00,B9,74,ID,ID,00,19,9D,00, 1408 <046> 

1039 DATA 19,ES,CB,CC,4B,03,D0,F0,BB,C0,19 

,10,10,A9,01,A0,00,1D,00,19, 2004 <224> 

1040 DATA 9D,00,19,E8,CB,C0,07,D0,F4,60,C9 

,02,F0,09,A8,A9,08,8D,4B,03, 2377 <035> 

1041 DATA 18,90,06, A8 , A9,28,8D, 4B, 03,98,0A 

,0A,0A,A8,18,6D,4B,03,8D,4B, 1547 <123> 

1042 DATA 03,B9,38, ID, 1D,00,19,9D,00,19,E8 

,CB,CC,4B,03,D0,F0,EA,EA,60, 2235 <066> 

1043 DATA A9,00,AA,AB,E8,CB,CC,6C,03,D0,FA 

,A0,00,20,88,13,EC,60,03,D0, 2615 <012> 

1044 DATA EF, 60, EA, 60, EA, EA, EA, EA, EA, EA, AE 

,49,03,BC,10,1D,98,0A,0A,0A, 2734 <196> 

1045 DATA 4A,AE,43,03,1B,7D,C5,ID,48,AD,42 

,03,0A,0A,85,02,68,18,65,02, 1393 <042> 

1046 DATA AA, 8E, 44,03,98,4A, 4A, 4A, 4A, 4A, BD 

,45,03,A0,00,8C,4A,16,B8,AD, 1871 <119> 

1047 C.^A 46,03 , C9,02,30,09, A9,08,18,6D , 4A 

, < 6,8D, 4A, 16, B9,08,1D, 1D, 00, 1227 <162> 

1048 DATA 19,9D,00,19,E8,CB,C0,08,D0,F1,EA 

,EA,A9,00,CD,46,03,D0,03,18, 2438 <04i> 

1049 DATO 90,4A,AD,42,03,0A,18,69,10,C9,10 

,D0,03,18,69,01,B8,CD,49,03, 1638 <246> 

1050 DATA 30,11,A9,00,8D,3E,03,AD,44,03,38 

,E9,1B,AA,A9,01,18,90,0E,A9, 1688 <152> 

1051 DATA 01,8D,3E,03,AD,44,03,18,69,03,AA 

,A9,80,8D,4A,03,A0,00,8E,47, 1641 <246> 

1052 DATA 03,1D,00,19,9D,00,19,AD,4A,03,C8 

,EB,C0,1C,D0,F1,4C,02,17,EA, 1925 <230> 

1053 DATA AC,46,03,B8,C0,03,10,03,EA,EA,60 

,EA,BB,8B,AD,3E,03,09,01,F0, 2393 <243> 

1054 DATA ID,AE,47,03,A9,FF,9D,00,1A,EB,9D 

,00,1A,E8,9D,00,1A,E6,EB,E8, 2410 <23S> 

1055 DATA 88,C0,00,D0,ED,60,EA,EA,EA,EA,AD 

,47,03,18,69,1B,AA,A9,FF,9D, 2959 <206> 

1056 DATA 00,19,CA,9D,00,19,CA,9D,00,19,CA 

,CA,CA,88,00,00,D0,ED,60,00, 2268 <217> 

1057 DATA AD,49,03,B5,01,EA,EA,EA,AC,42,03 

,B9,9F,1D,BB,C5,01,10,2F,B9, 2329 <187> 

1058 DATA A2,1D,C5,01,30,03,18,90,5A,A9,01 

,8D,48,03,A5,01,3B,F9,A2,ID, 1746 <035> 

1059 DATA AA,CA,BD,70,1D,AB,20,96,17,AA,20 

,82,17,8A,38,E9,08,AA,88,C0, 2363 <068> 

1060 DATA 00,D0,F3,18,90,35,A6,01,E0,00,D0 

,03,10,?0,2C,C0,00,F0,10,C0, 2126 <247> 

1061 DATA 01,F0,06,BD,C9,IC,1B,90,09,BD,B7 

,1D,18,90,03,BD,D4,1C,A8,20, 2043 <228> 

1062 DATA 96,17,18,69,30,AA,20,82,17,BA,18 

,69,08,AA,88,C0,00,D0,F3,20, 1961 <180> 

1063 DATA C9,1D,20,DB,13,4C,B2,16,A9,07,9D 

,00,18,A9,FF,9D,00,19,A9,E0, 2129 <074> 

1064 DATA 9D,00,1A,60,EA,EA,EA,EA,AD,43,03 

,C9,00,F0,0A,C9,01,F0,03,A9, 2523 <161> 

1065 DATA B4,60,A9,50,60,A9,00,60,33,32,A9 

,00,DD,76,03,D0,4C,AD,43,03, 2049 <24B> 

1066 DATA 09,00 , F0,12,09,01 , F0,07, A2 , AB, A0 

,58,18,90,0B,A2,50,A0,56,18, 2179 <027> 

1067 DATA 90,04, A2,00, A0,50,8A, 48< A9,00,9D 

,00,19,9D,00,18,9D,00,1A,88, 1611 <170> 


Listlng 1. Ladeprogramm zu »MUSIC MAESTRO«. Bitte beachten Sie die Eingabehinweise auf Seite 76. 
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106B DATA E8,C0,00,D0,F1,A0,00,6B,1B,69,14 

,AA,A9,FF,90,00,18,9D,00,19, 2243 <206> 

1069 DATA 9D,00,1A,BA,18,69,0B,AA,C8,C0,05 

,D0,EB,60,00,00,00,00,00,00, 1564 <161> 

1070 DATA 00,00,00,00,00,00,00,00,00,00,00 

,00,00,00,FF,00,00,00,00,00, 255 <033> 

1071 DATA 00,00,FF,00,00,00,00,00,00,00,FF 

,00,00,00,00,00,00,00,FF,00, 765 <239> 

1072 DATA 00,00,00,00,00,00,FF,00,00,00,00 

,00,00,00,00,00,00,00,00,00, 255 <037> 

1073 DATA 00,00,00,00,00,00,00,00,00,00,00 

,00,00,00,00,00,00,00,00,00, 0 <063> 

1074 DATA 00,00,00,00,00,00,07,00,00,00,00 

,FB,22,22,22,22,23,00,00,Dl, 638 <204> 

1075 DATA D9,55,55,53,D3,00,00,F7,84,E7,85 

,85,84,00,00,BD,Al,BD,21,21, 2294 <230> 

1076 DATA BD, 00,00 ,F4,95,96,95,95, F4,00,00 

,BE,08,08,08,08,89,00,24,7E, 1795 <072> 

1077 DATA 24,24,FF,24,7E,24,20,38,26,22,FF 

,24,38,00,00,00,48,48,FF,48, 1503 <056> 

1078 DATA FC,4B,4B,FC,48,48,FF,4B,00,00,40 

,40,40,40,FF,70,48,44,48,48, 2026 <236> 

1079 DATA 70,70,FF,00,00,00,00,00,00,00,FF 

,20,20,20,FB,60,80,FS,08,08, 1601 <131> 

1080 DATA FB,00,E2,B0,80,80,80,80,92,00,FE 

,80,80,FC,80,80,FE,00,3C,7E, 2718 <159> 

1081 DATA FE,FF,FE,BC,80,80,7E,7E,40,7E,7E 

,40,40,40,80,80,FC,84,84,FC, 2991 <1B5> 

1082 DATA 04,04,00,00,00,00,00,00,00,00,00 

,00,00,00,00,00,00,00,00,00, 8 <142> 

1083 DATA 00,00,00,00,00,00,00,00,00,00,FF 

,00,00,00,00,00,00,00,FF,FF, 765 <153> 

1084 DATA FF,FF,FF,FF,00,00,FF,00,00,00,00 

,00,00,00,FF,00,00,00,00,00, 1530 <253> 

1085 DATA 00,00,FF,00,00,00,00,00,00,00,00 

,00,00,00,00,00,00,00,00,00, 255 <112> 

1086 DATA 00,00,00,00,00,00,00,00,00,00,00 

,00,00,00,00,3C,7E,FF,FF,FF, 951 <0B1> 

1087 DATA FE,BC,FF,FF,FF,80,80,FF,FF,FF, FF 

,80,FF,FF,FF,80,80,FF,FF,FF, 4397 <164> 

1088 DATA B0,80,FF,FF,FF,00,FF,00,00,00,00 

,00,00,00,FF,00,00,00,3C,42, 1657 <182> 

1089 DATA 46,5A,62,42,3C,00,08,18,28,08,0B 

,08,3E,00,3C,42,02,0C,30,40, 794 <093> 

1090 DATA 7E,0B,3C,42,02,1C,02,42,3C,00,04 

,0C,14,24,7E,04,04,00,7E,40, B06 <234> 

1091 DATA 78,04,02,44,38,00,IC,20,40,7C,42 

,42,3C,00,7E,42,04,08,10,10, 926 <117> 

1092 DATA 10,00,3C,42,42,3C,42,42,3C,00,3C 

,42,42,3E,02,04,38,00,00,00, 776 <249> 

1093 DATA 00,00,FF,00,00,00,00,00,00,00,FF 

,00,00,00,00,00,00,00,00,00, 510 <112> 

1094 DATA 00,00,00,00,00,00,00,00,00,00,00 

,00,00,00,00,00,00,00,00,00, 0 <084> 

1095 DATA 00,00,00,00,00,00,00,00,00,00,00 

,00,00,00,00,00,00,00,00,00, 0 <0B5> 

1096 DATA 00,00,00,00,00,00,FF,00,00,00,00 

,00,00,00,FF,00,00,00,00,00, 510 <247> 

1097 DATA 00,00,FF,00,00,00,00,00,00,00,FF 

,00,00,00,00,00,00,00,FF,00, 765 <009> 

1098 DATA 00,00,00,00,00,00,00,00,00,00,00 

,00,00,00,00,00,00,00,00,00, 0 <0887 

1099 DATA 00,00,00,00,00,00,00,00,00,00,00 

,00,00,00,00,00,00,00,E0,00, 224 <B30> 

1100 DATA 00,00,00,00,00,00,FF,00,00,00,00 

,00,00,00,FF,00,00,00,00,00, 510 <251> 

1101 DATA 00,00,FF,00,00,00,00,00,00,00,FF 

,00,00,00,00,00,00,00,FF,00, 765 <013> 

1102 DATA 00,00,00,00,00,00,00,00,00,00,00 

,00,00,00,00,00,00,00,00,00, 0 <092> 

1103 DATA 00,00,00,00,00,00,00,00,00,00,00 

,00,00,00,00,00,00,00,00,00, 0 <093> 

1104 DATA 00,00,00,00,00,00,E0,00,00,00,00 

,00,00,00,FF,00,00,00,00,00, 479 <242> 

1105 DATA 00,00,FF,00,00,00,00,00,00,00,FF 

,00,00,00,00,00,00,00,FF,00, 765 <017> 

1106 DATA 00,00,00,00,00,00,FF,00,00,00,00 

,00,00,00,00,00,00,00,00,00, 255 <071> 

1107 DATA 00,00,00,00,00,00,00,00,00,00,00 

,00,00,00,00,00,00,00,00,00, 0 <097> 


Listing 1. Ladeprogramm zu »MUSIC MAESTRO« (Schluß) 


1108 DATA 00,00,FC,84,84,84,84,E4,FC,FC,30 

,50,90,10,10,10,10,7C,7E,B2, 2228 <029> 

1109 DATA 84,08,10,20,40,FE,7E,82,04,18,18 

,04,82,7E,18,18,28,48,8B,88, 1506 <149> 

1110 DATA 7E,08,FC,80,CB,3C,04,04,04,FC,FE 

,80,80,FE,82,C2,E2,FE,7E,84, 2856 <196> 

1111 DATA 04,08,10,20,40,40,FE,84,84,FE,84 

,84,E2,FE,7E,82,C2,FE,02,02, 2412 <209> 

1112 DATA 82,7C,00,00,00,01,01,01,01,01,01 

,78,FC,C6,83,03,03,03,01,01, 972 <181> 

1113 DATA 01,01,FF,01,01,01,03,03,03,03,FF 

,07,0F,1E,01,01,01,01,FF,07, 845 <029> 

1114 DATA 0F,1E,3E,7C,FB,F0,FF,C0,80,80,3C 

,78,F0,F0,FF,F0,F1,E3,80,80, 3301 <060> 

1115 DATA 80,80,FF,80,F0,FC,E7,E6,E6,64,FF 

,72,38,18,FE,9E,BE,87,FF,83, 3446 <105> 

1116 DATA 83,82,0C,07,01,00,FF,00,00,00,82 

,8E,F8,B0,FF,80,80,80,18,3C, 1955 <036> 

1117 DATA 7E,FF,7E,3F,18,00,80,80,80,80,B0 

,80,00,00,0F,1F,1C,30,FF,40, 1803 <144> 

1118 DATA C0,C0,83,F2,38,3B,FF,1F,0F,0E,F0 

,FC,FE,FE,FF,FC,78,10,05,07, 2839 <1B9> 

1119 DATA 07,07,FF,0F,0F,0F,0F,1F,1E,1E,FF 

,3C,38,70,00,00,01,03,FF,0C, 1174 <102> 

1120 DATA 3B,EB,FB,E0,C0,B0,FF,00,00,00,00 

,00,01,D1,FF,D7,DF,E9,00,00, 2455 <1B5> 

1121 DATA F0,DB,FF,C6,C3,C3,D7,D3,D0,D0,DF 

,D0,D0,D0,B3,01,01,03,FF,07, 3386 <10l> 

1122 DATA 06,0C, D0, D6 , DF, DF , FF , D6, D0, D0,38 

,E0,C0,00,FF,E0,70,38,D0,D0, 3306 <094> 

1123 DATA D0,D0,DF,D0,D3,D7,1C,0E,07,03,FF 

,03,03,03,DF,D7,D3,D3,FF,D0, 2912 <024> 

1124 DATA D0,DB,E6,C6,84,SB,FF,00,00,00,00 

,00,00,00,FF,00,00,00,00,00, 1622 <035> 

1125 DATA 00,00,00,00,00,00,10,10,10,10,1F 

,10,10,10,0B,0B,0B,0B,FB,0B, 449 <252> 

1126 DATA 0B,0B,5C,AA,DD,BD,5C,03,8D,B7,1C 

,BD,5F,03,8D,B8,1C,20,B6,1C, 2023 <180> 

1127 u TA BC, 5C, 03, C0, FF, D0,03, FE, 5F, 03, C8 

,48,98,9D,5C,03,BD,5C,03,BD, 2394 <02B> 

1128 DATA B7,1C,BD,5F,03,8D,BB,IC,68,20,BB 

,IC,BC,49,03,8D,46,03,A8,B9, 1985 <230> 

1129 DATA 97,ID,8D,5A,03,20,B6,IC,20,BB,IC 

,6C,62,03,8D,63,03,4C,E3,12, 1708 <117> 

1130 DATA AD,74,4C,60,EA,4B,0A,0A,0A,4A,4A 

,4A,AB,68,4A,4A,4A,4A,4A,60, 1757 <138> 

1131 DATA 04,03,03,03,03,02,02,02,01,01,01 

,03,02,02,02,02,01,01,01,ES, 271 <071> 

1132 DATA 00,A4,AA,AE,B3,B7,BB,BF,C3,C6,C9 

,CC,CF,D2,DS,D7,D9,DB,DD,DF, 3771 <09B> 

1133 DATA El,E3,E4,E6,E7,E8,EA,EB,EC,ED,EE 

,EF,33,FA,00,3C,66,81,42,81, 3579 <15B> 

1134 DATA 66,3C, 00,3C, 7E, FF, FF , FF, 7E, 3C ,07 

,32*11,31,10,30,0F,0E,2E,0D, 1574 <225> 

1135 DATA 2D,0C,0B,2B,0A,2A,09,29,08,07,27 

,06,26,05,04,24,03,23,02,22, 430 <069> 

1136 DATA 01,00,44,FE,44,44,FF,44,FE,44,FF 

,FF,FF,FF,FF,00,00,00,00,00, 2379 <215> 

1137 DATA 00,FF,FF,FF,FF,FF,00,00,00,00,00 

,00,20,30,18,IC,1E,1F,3F,3F, 1594 <036> 

1138 DATA 7F , FE, FC , F8,7C , 1E , 0E, 07,23 , FF , FF 

,FF,FF,FC,FE,7E,3F,0F,03,01, 2825 <125> 

1139 DATA 00,00,00,00,00,00,01,01,01,02,39 

,39,3D,07,03,01,01,01,39,39, 307 <008> 

1140 DATA 3D,07,03,01,01,01,39,39,3D,07,03 

,01,01,01,39,39,3D,07,03,01, 440 <192> 

1141 DATA 01,01,FE,C9,4D,BF,5F,2F,17,0B,05 

,02,FF,08,0A,0B,1B,1D,1E,0D, 1291 <027> 

1142 DATA B4,D8,4C,9E,B4,FB,CD,BD,1F,D1,1D 

,1D,10,1E,1E,16,16,37,03,03, 1659 <0B5> 

1143 DATA 03,02,02,02,01,01,01,01,01,01,01 

,00,50,AB,13,AD,45,03,C9,00, 729 <095> 

1144 DATA D0,01,60,AE,44,03,AB,00,B9,30,1D 

,1D,00,18,9D,00,18,C8,E8,C0, 1830 <127> 

1145 DATA 0B,DB,F1,60,AD,3F,03,BD,BC,90,8E 

,3F,03,8E,43,03,60,60,EA,EA, 2169 <214> 

1146 DATA EA,EA,EA,EA,B3,23, 1150 <242> 
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60 DIM TX<7,3>,VX<9>,TSX<7>:F0R 1=0 TO 2sP 



L:CWHITEJ":PRINT:PRINT:PRINT:PRINT"1 


OKE BB6+I,0:NEXT:POKE 844,0 

<202> 


- VIOLINSCHLUESSEL":PRINT 

<067> 

70 POKE 56,76i POKE 55,0:POKE 650,128iPOKE 


1042 

PRINT"2 - B-SCHLUESSEL":PRINT 

<036> 

36879,8sPOKE 36878,15:GOSUB 32000 

<239> 

1043 

PRINT"3 - BASS-SCHLUESSEL" 

<069 > 

90 TA(0)=19500!TE(0)=21499:TA(1)=21500!TE( 


1044 

BET AS:IF AS-"" OR VAL(AS>>3 OR VQL(A 


1>-23499!TA(2)=23500!TE(2)-24570 

< 165> 


♦ XI THEN 1044 

<079> 

110 FOR J-0 TO 3|FOR 1=0 TO 7l READ TXU,J 


1045 

SF—VAL(AS)—1:POKE 834,SF:POKE 835,0:P 


)iNEXTINEXT 

< 175> 


OKE 36869,254 

< 193> 

120 DATA 0,4,6,0,0,0,0,2,0,16,18,7,9,11,12 


1046 

PRINT"CCLRJ":POKE 36869,254:BOSUB 180 


.14 

<210> 


0 

<213> 

130 DATA 0,2B,30,19,21,23,24,26, 0,0,0,31', 


1050 

N—TA(3):SB—36876—S:POKE TE(8),255:G08 


0,0,0,0 

<101> 


UB 1610:OK-2:BOSUB 1950 

< 198 > 

150 TSX <0) -67! TSX < 1) —6Bi TSX<2>-69| TS7. (3) -7 


1090 

TF-0 

<254> 

01 TS7. (4) -71! T37. (5) -651 TS7. (6) -66 

<219> 

1100 

VQ=0:BET AS:PP-PEEK(653):IF AS-"" AND 


160 CC(1)“176iCC<2)-191iCC(3)“1BBiCC(4)“17 



PPO 4 THEN 1100 

< 170> 

2! CC (5) — 177i CC (6) =187i CC (7) —165 

<188> 

1101 

IF PP—4 THEN VA-1: PP-01 POKE 36876,243 


170 LF(1)-01LF C2> —1!LF <3> —01LF <4> —1iLF (5) — 



::POKE 7826,30:POKE 38546,5:POKE 3687 


0:LF(6)-liLF(7)-l 

<024> 


6,0:GOTO 1100 

<059> 

172 LG(1>-1:LB(2)=0!LB(3)-1iLB(4)=0:LB(5)— 


1103 

IF TF=1 THEN 1500 

<220> 

1:LG(6)—0:Lß(7)=1 

<082> 

1104 

IF ASO"" THEN Q-ASC(AS)!K—Q-64!IF Q> 


174 W(1)=44iW(2)-44:W(3)-22:W(4)-22lW 



136 AND Q<141 THEN 1550 

<01B> 

<5)»00:VV<6)-00iVV<7>=66 

<242> 

1106 

IF Q>132 AND Q<137 THEN OK-Q-133:POKE 


176 VX < 1 >-66:VX(2)-44iVX(3)=44iVX(4)-22iVX 



36876,245:GOSUB 1B80:GOSUB 1950:QOTO 


<5)=22:VX(6)=0:VX <7>-0 

<010> 


1100 

<195> 

180 QW <0)=2lQW(1)—11QW(2)=5lQW(3)—3:QW(4) — 


1107 

IF GK128 THEN 1111 

< 133> 

7: QW(5)=4:QW(6)=6 

< 158> 

110B 

IF PEEK(653)-1 THEN Q-Q-12B:K=Q-64:IF 


200 POKE 36B78,15: POKE 36B79,B: PRIIMT" CCLR, 



Q>64 AND Q<72 THEN VQ-l:BOTO 1120 

< 143> 

WHITE,RVSON,4RIGHT J MUSIC MAESTRO":PRIN 


1109 

IF PEEK(653)=2 THEN BOSUB 1900:IF Q>6 


T"CDOWN,4RIGHT,CYANJBY C. NEUPERT" 

<130> 


4 AND GK72 THEN VQ—1: K-Q-64:80T0 112 


210 :PRINT"C3D0WN,WHITE,RVSON J1CRVOFF,SPAC 



0 

<098> 

E,YELLOWJTOENE EINGEBEN/EDIT.PRINT"C 


1110 

GOTO 1100 

<050> 

WHITE,RVSON >2 CRVOFF,SPACE,YELLOW JTOENE 


1111 

IF AS—"—"THEN 10000 

<032> 

SPIELEN" 

<211 > 

1112 

IF AS-”t"THEN DF-1:BOSUB 2000:GOTO 11 


220 PRINT"CDOWN,WHITE,RVSON >3 CRVOFF,SPACE, 



00 

<091 > 

YELLOW >TOENE RESERVIEREN":PRINT"CDOWN, 


1113 

IF AS="*-"THEN DF-11 GOSUB 2100: GOTO 11 


WHITE,RVSDN>4 CRVOFF,SPACE,YELLOW JTRANS 



00 

<222> 

PONIEREN" 

<045> 

1114 

IF AS="P" THEN L=0:TX=0:GOTO 1130 

<007> 

230 PRINT"CDOWN,WHITE,RVSONJ5CRVOFF,SPACE, 


1115 

IF AS»"+" THEN BOSUB 3000:GOTO 1100 

<245> 

YELLOW JSAVE":PRINT"CDOWN,WHITE,RVSON >6 

s*en c 

1116 li- AS="-" THEN GOSUB 4000: GOTO 1100 

<255> 

CRVOFF,SPACE,YELLOW JLOAD" 

<090> 

1117 

IF AS="£" THEN POKE 36869,240:GOTO 20 


240 PRINT"C3D0WN,RED,3RIGHTJWAEHLEN SIE... 



0 

<111> 

CWHITEJ" 

<225> 

1120 

IF Q<65 OR Q> 71 THEN 1150 

< 149> 

250 BET A*:IF A*=‘‘" OR VAL(A*X1 OR VAL (A* 


1121 

IF VA=1 THEN VB=—VX(K):VA=0:GOTO 1125 

<01B> 

> > 6 THEN 250 

< 112> 

1122 

VB-0 

<006> 

260 GOSUB 900: PRINT"CCLR,WHITE>":ON VAL(A 


1125 

L=TX (K, OK) + VQ+VX (K) + VB: TX-TX (K, OK) 

<015> 

*> GOTO 1000,10000,5000,6000,7000,8000 

< 186> 

1126 

IF L<0 OR L>31 THEN POKE 36B76,245::: 


270 STOP 

<0B2> 


::::::POKE 36876,0:GOTO 1100 

<207> 

B00 PRINT"CDOWNJFUER DIESE STIMME"1 PRINT"C 


1127 

REM 

< 173> 

DOWNJWURDEN KEINE TOENE":PRINT"CDOWNJR 


1130 

TF=1:POKE 36876,243:POKE 7823,29:POKE 


ESERVIERT !":PRINT:RETURN 

<013> 


3B543,4:P0KE 36876,0:SYS 6067:GOTO 1 


900 POKE 36876,240:FOR QR-1 TO 120:NEXT:PO 



100 

< 143> 

KE 36876,0:RETURN 

<251 > 

1150 

IF AS-"#"THEN POKE 36876,246:POKE N,2 


1000 POKE 36878,IS:PRINT CHR*(147>iPOKE 36 



55:POKE 36876,0:GOTO 1522 

<233> 

879,8 

<0B7> 

1160 

GOTO 1100 

< 100> 

1010 PRINT"CDOWN,WHITEJWELCHE STIMME":PRIN 


1500 

R—VAL(A*):IF R<1 OR R>7 THEN POKE 368 


T:PRINT"C3SPACE,CYANJ[1... 33 7" 

<032> 


76,245::::::::.-:POKE 36876,0:BOTO 110 


1012 BET A*:IF AS-"“ OR VALIASXl OR VAL(A 



0 

<023> 

*)>3 THEN 1012 

< 169> 

1510 

TP=(R-l)#32 

<077> 

1013 GOSUB 900:S—VAL(A*>-1:IF AB3(TA(8)-TE 


1520 

POKE N,L+TP:GOTO 1530 

<033> 

(S)> >15 THEN 1015 

< 126> 

1522 

POKE 36876,245:POKE 7825,27:P0KE 3854 


1014 BOSUB 800:GOTO 1010 

<036> 


5,7:BOSUB 1610:FOR ZX-1 TO 2:B0SUB 90 


1015 PRINT"CCLR,DOWN,CYANJWOLLEN SIE VORZE 



0:NEXT 

<014> 

ICHEN":PRINT"CDOWN JEINGEBEN CSPACE,WHI 


1523 

FOR ZX-1 TO 1000:NEXT 

<019> 

TEJCJ/NJ 7" 

<20B> 

1524 

POKE 7825,13B 

< 1B4> 

1016 BET ASiIF AS-"“ OR ASO"J" AND ASO"N 


1530 

IF N< <TE(S> — 1) THEN N-N+l:GOTO 1540 

<129> 

"THEN 1016 

< 188> 

1535 

FOR ZX-1 TO 9:GOSUB 900:NEXT:FOR ZX-1 


1017 IF A*“"N" THEN 1041 

< 157> 


TO 1000:NEXT 

< 161 > 

1018 PRINT"CCLR,DOWN,WHITE J0 CCYAN,RIBHTJ — 


1540 

BOSUB 1600iTF-0:POKE 7823,28:POKE 385 


KEIN VORZEICHEN":PRINT"CDOWN,WHITEJ1C 



43,3:POKE 7826,138:GOTO 1100 

<074> 

SPACE,CYANJ- #":PRINT"CDOWN,WHITEJ2CC 


1550 

DF—Q—136:IF DF-1 THEN DF-10:BOSUB 200 


YAN,SPACEJ- BCYELLOWJ" 

<049> 


0:GOTO 1100 

<204> 

1019 FOR 1=0 TO 6:PRINT"CH0ME,12D0WN,4RIBH 


1551 

IF DF-2 THEN DF=50:GOSUB 2000:GOTO 11 


TJ"CHRS(TSX(I> > | " 7" 

<241 > 


00 

<000> 

1020 BET A*:IF AS-“" THEN 1020 

< 1B0> 

1552 

IF DF—3 THEN DF-10:GOSUB 2100:GOTO 11 


1021 BOSUB 900:Q-VAL(AS):IF Q>2 OR (Q=0 AN 



00 

<034> 

D AS<>"0"> THEN 1020 

<019> 

1553 

DF-50 

<061 > 

1022 IF Q-2 THEN Q—l 

< 139> 

1555 

BOSUB 2100:GOTO 1100 

< 09 1 > 

1025 V7.CTS7. (I)-64)-Q:NEXT I 

<093> 

1600 

BOSUB 1610:IF ASO"»" THEN BOSUB 1620 


1041 PRINT"CCLR,DOWN,3RIBHT.CYANJSCHLUESSE 



:RETURN 

<03B> 

Listing 2.»MUSIC MAESTRO« - Konzert auf dem VC 20. Bitte beachten Sie die Eingabehinweise auf Seite 76. 
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1610 PRINT"CH0ME,3D0WN,4RIGHT,WHITE,RVSON > 
JJJJJJJJ {RVOFF,BLEFT>"(N-TA<S> >-VRjTA 
B <16>"{RED,RVSON)JJJJJJJJ(RVOFF,BLEFT 
>"TE <S)-(N-VR) <200> 

1612 RETURN <146> 

1620 POKE 7750,13B.P0KE 7762,138 <171> 

1630 PDKE 838,R-lsPDKE B41,TXsSYS 6067iIP 

TX>0 THEN SYS 5640!GOTO 1640 <002> 

1635 SYS 5490 s RETURN <179> 

1640 POKE SG,PEEK(7390+L)s FOR QT-1 TQ 10# 

(2t(7-R>)sNEXT <004> 

1650 PDKE SB,0 <123> 

1699 RETURN <233> 

1800 POKE 36079,BsPRINT"(CLR,WHITE>"sGOSUB 

2900sBOBUB 2400 <052> 

1005 AD-79471ZZ-22s QN SF+1 GOSUB 2500,2600 

,2700 <135> 

1S10 QZ-0S FOR 1-7680+12+10*22 TO 7680+12+ 

19*22 STEP 22 <014> 

1820 POKE I,QZ8 PDKE 1 + 1,QZ+328POKE 1+2,QZ+ 

64sQZ-QZ+1sNEXT I <133> 

1830 FOR 1—6144+8*48 TO 6144+8*588POKE I,P 

EEK(32760+1-6144)sNEXT <186> 

1840 POKE 035,0s SYS 6067 <114> 

1B45 FOR 1-1 TO 21sP0KE 7702+1,137sPOKE 77 

90+1,137sNEXT <229> 

1850 POKE 7689,25sPOKE 7690,26sPOKE 7747,1 
2 s POKE 7748,13s POKE 7759,14sP0KE 7760 
,15 <07B> 

1860 POKE 7839,16sPOKE 7840,17s <209> 

1B70 POKE 7692,49+SsPOKE 38412,3 <248> 

1880 POKE 7842,49+OKsPOKE 7842+30720,7sPOK 

E 36876,0 <218> 

1890 RETURN <170> 

1900 FOR DR—1 TO 7sIF D=CC(DR)THEN D-QR+64 

sRETURN <090> 

1902 NEXTsRETURN <063> 

1950 FOR 1-7857 TO 8121 STEP 22sPOKE 1,138 
sNEXT ; 

1955 AD—7857+ <3—OK)*66s FOR I-AD TO AD+66 8 

TEP 22 <200> 

1960 POKE I,139sPOKE 1+30720,2sNEXT <249> 

1970 RETURN <250> 

2000 IF N+DF>—TE(S> THEN FOR QT-1 TO 9sG0SU 

B 900sNEXTs GOSUB 1610s RETURN <130> 

2010 N-N+DFsVR-0 <234> 

2015 Z-PEEK <N) s IF Z-255 THEN FOR QT-1 TO 3 

sGOSUB 900sNEXTsGOSUB 1610s RETURN <241> 

2020 Ql —INT(Z/32)sQ2—Z-Ql*32sTX—Q2sL-TXsR— 

Ql + lsGOSUB 1600s RETURN <044> 

2100 IF N-DF<TA(S> THEN FOR QT-1 TO 9sGDSUB 

900sNEXTsGOSUB 1610s RETURN <221> 

2120 N-N-DF:VR—0s GOTO 2015 <162> 

2400 RESTOREs FOR 1-1 TO 32s READ XsNEXT <239> 

2420 FOR 1-6240 TO 6391sREAD XsPOKE I.XsNE 

XT <113> 

2490 RETURN <006> 


2500 AD-AD-ZZsIF AD<7680 OR AD>8105 THEN R 


2820 FOR I-AD-1 TO AD +4*ZZ-1 STEP ZZsPOKE 

I,139s PDKE 1 + 14—3*(ZZ—22),1403 NEXT <179> 
2825 IF ZZ<>22 THEN RETURN <122> 

2030 PX—AD+2s FOR 1-0 TO 6 <075> 

2840 X-V/.(QW(I))sIF X-0 THEN 2S80 <17S> 

2850 IF X—1 THEN Cl-lBsC2-20S03-21sGOTO 28 

56 <062> 

2855 Cl-19s C2-22s C3-23 <070> 

2056 IF SF-2 THEN 2875 <070> 

2857 IF SF-1 THEN 2065 <003> 

2850 P-PX+W<QW(I))sIF LF(QW(I>)-1 THEN PO 
KE P,C1 bPX-PX+1bIF Cl-19 THEN POKE P- 
22,24 <00B> 

2859 IF LF(QM(I))—1 THEN 2880 <155> 

2861 POKE P,C2s POKE P+22,C3sPX-PX+1sGOTO 2 

880 <250> 

2865 P—PX+VX(QW(I))sIF LB(QW(I))-1 THEN PO 

KE P,C1 sPX-PX+1 s IF Cl-19 THEN POKE P- 
22,24 <025> 

2866 IF LG(QW(I))—1 THEN 2880 <178> 

2867 POKE P,C2sP0KE P+22,C3sPX-PX+1sGOTO 2 

880 <000> 

2875 P-PX+VV(QM(I))+22sIF LF(QW(I))-1 THEN 

POKE P,C1sPX-PX+1s IF Cl-19 THEN POK 
E P—22,24 <131> 

2876 IF LF(QW(I))—1 THEN 2880 <172> 

2877 POKE P,C2sPOKE P+22,C3sPX-PX+1 <171> 

2880 NEXT I <170> 

2890 RETURN <154> 

2900 FOR 1-7680 TO 8185sPOKE I,138sNEXTsRE 

TURN <235> 

3000 IF N>—TE(S> —1 OR N<TA(S) THEN FOR ZX- 

1 TO 9s GOSUB 900s NEXT8 RETURN <156> 

3005 POKE 36874,130 <246> 

3010 Nl-TE(S)+2 <152> 

3020 POKE Nl+1,PEEK(NI) <226> 

3030 NI—NI—1sIF NI>N THEN 3020 <147> 

3040 POKE NI ,0sPOKE 36874,0sPOKE 36876,235 
1 ' *t?-JR ZX-1 TO 5008 NEXT s POKE 36876,0sR 

ETURN <089> 

4000 IF N<-TA(S) OR N>-TE(S) THEN FOR ZX-1 

TO 9sGOSUB 900sNEXTsRETURN <17B> 

4005 POKE 36874,140 <234> 

4010 NI—N <126> 

4020 POKE NI —1,PEEK(NI)s NI—Nl + 1 <222> 

4030 IF N1<TE(S) THEN 4020 <0BB> 

4040 POKE 36874,0sN=N-lsPOKE 36876,237sFOR 

ZX-1 TO 900sNEXTsPOKE 36876,0 <107> 

4050 RETURN <042> 

5000 UB-PEEK (56 > »256-PEEK (55) s OB-24570 s FR- 

OB-UBs AF-UB+1 < 029 > 

3010 PRINT" (CLR,CYAN,DOWN,RIGHT>FREIE TOEN 

Es"jFR-35 <027> 

5020 FOR ZX-0 TO 1sPRINT"(2D0WN.WHITEJWIEV 
IEL TOENE WOLLEN"SPRINT"{DOWN>8IE FUE 
R STIMME “jZX+1 <064> 

5030 PRINT"{DOWN>RESERVIEREN ?“SPRINT <113> 

5035 INPUT RT(ZX) <174> 


ETURN <0B4> 

2510 QZ—08 FOR I-AD TO AD+6*ZZ STEP ZZ <104> 

2520 POKE 1,106+QZ s POKE 1 + 1,106+QZ+lsQZ-QZ 

+2s NEXT <117> 

2530 AD-AD+ZZsGOSUB 2800iRETURN <219> 

2600 IF AD>8IBS OR AD<7680 THEN RETURN <078> 

2610 QZ—0s FOR I-AD TO AD+4*ZZ STEP ZZsPOK 
E 1,127+QZs POKE 1 + 1,128+QZs QZ-QZ+2s NE 
XT <23B> 

2620 GOSUB 2800sRETURN <087> 

2700 IF AD<7680 OR AD>B185 THEN RETURN <17B> 

2710 POKE AD,120sPOKE AD+1,121sPOKE AD+ZZ, 

122sPOKE AD+ZZ+1,123sPOKE AD+2*ZZ+1,1 
24 <046> 

2720 POKE AD+3#ZZ,125sPOKE AD+3*ZZ+1,126sP 

OKE AD+2*ZZ,137sPOKE AD+4*ZZ,137 <199> 

2725 POKE AD+ 4*ZZ+1,137 <173> 

2730 GOSUB 2800 s RETURN <197> 

2800 IF AD+120>8IBS DR AD<76B1 THEN RETURN <060> 
2810 FOR J-0 TO 4sFOR I-AD+2 TO AD+13-3*(Z 

Z-22)sPDKE I+ZZ#J,137sNEXTsNEXT <120> 


5040 IF RT(ZX)+12>FR THEN PRINT"{3D0WN,RED 


>ES SIND NUR{GREENi",FR-15sPRINT"{DOW 
N.REDJTOENE FREI !IWHITEl"sPRINTsGOTO 
5035 <073> 

5045 FR—FR-RT(ZX)-4s NEXT ZX <102> 

5050 Tl-RT(0)tT2“RT(l)sT3-FR <102> 

5060 TA(0)-AFs TE(0)-AF+Tl + 1 <015> 

5080 TA(l)-AF+Tl+2sTE(l)—TA(1> +T2 <12B> 

5100 TA(2)-AF+T1+T2+2S TE(2)-TA(2)+T3 <135> 

5110 GOTO 200 <220> 

6000 INPUT"STIMME";SsIF S<1 OR S> 3 THEN 6 

000 < 001 > 

6010 S-S-lsIF ABS(TA(S)-TE <S))<10 THEN GOS 

UB 800 s GOTO 6000 <004> 

6020 INPUT" {CLR,DOWN >WIEVIELE HALBTOENE"j D 

TsIF DT<1 OR DT>29 THEN 6020 <222> 

6030 PRINT"(2D0WNJH0EHER C13 ODER"sPRINT"T 
IEFER C23"sPRINTsINPUT SFsIF SF<1 OR 
SF>2 THEN 6030 <033> 

6040 IF SF-2 THEN BF—1 <192> 

6050 FOR I—TA(S) TO TE(S)-1sT-INT(PEEK(I)/ 


Listlng 2. »MUSIC MAESTRO« - Konzert auf dem VC 20 (Fortsetzung) 
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VC 20 


32)s X-PEEK(I)-32«T11F PEEK(I)-255 THE 


12361 

PRINT"CRVSON>2 tRVOFF,SPACEJLARBHETTO 


N 6100 

<012> 


"s PRINT"CDOWN,RVSON >3 CRVOFF,SPACE)AD 


6055 IF X;SF*DT>1 AND X+SF#DT<32 THEN X=X+ 



AGIO"s PRINT"CDOWN,RVSON>4 CRVOFF,SPAC 


SF*DT 3 GOTO 6090 

<055> 


E5ANDANTE" 

< 196> 

6060 X=X-BF#12s GOTO 6055 

< 161 > 

12362 

PRINT"CDOWN,RVSON >5CRVOFF,SPACE >ALLE 


6090 POKE 1,X+32*TIPOKE 36876,PEEK(7390+X) 



BRO MODERATO“s PRINT"CDOWN,RVSON>6CRV 


iNEXT 

<064> 


OFF,SPACE}ALLEGRO"I PRINT"CDOWN,RVSON 


6100 POKE 36876,0sGOTO 200 

<064> 


>7 CRVOFF,BPACEJPREBTO" 

< 142> 

7000 INPUT"<CLR,DOWN,WHITE>BTIMME"j Ss IF B< 


12363 

BET A*sIF A*-"" OR VAHA4X1 OR VAL< 


1 OR S>3 THEN PRINT1 GOTO 7000 

7010 S-S-ltIF ABS <TA <S> —TE(S> ><15 THEN BOB 
UB 800:GOTO 7000 

<041 > 

<000> 

12364 

A*)> 7 THEN 12363 

BOSUB 9008 POKE B77,8lP0KE B76,35*(8- 
VAL(A*))SPRINT"CCLRJ" 

<101> 

< 159> 

7020 INPUT"C3DOWNJVON TON « "{TIiPRINTiINP 


12400 

FOR 1-0 TO 2sPOKE 835,Ii SYS 6067sNE 


UT"BIS TON * "|T2 

<211 > 


XT 

<145> 

7030 TI—Tl+TA(8)1T2-T2+TA(S)■IF Tl>-T2 OR( 


12405 

POKE 36869,254sBOSUB 2900 

< 112> 

T1<TA<8)0R T2>TE <S))THEN PRINTiGOTO 7 


12410 

POKE 36864,20sPOKE 36865,20sPOKE 368 


020 

<192> 


66,143sPOKE 36867,192sPOKE 36869,254 

< 137> 

7050 FOR 1-0 TO 31POKE I,PEEK<43+1>iNEXTiP 


12420 

ZZ —15s AD—7711s ON PEEK(8B3)+1 BOSUB 2 


RI NT " CCLR, WH I TE JPÄ43, P£ (0) i P1144, P£ < 1) 



500,2600,2700s GOTO 12430 

<076> 

lPH45,PL(2) !Pfl46,P£(3) IRUN" 

<003> 

12425 

BOSUB 2500 

<021 > 

7060 AA-INT(Tl/256>iBB-T1-256*AA-1iCC-INT( 


12430 

ZZ—15s AD—7861s ON PEEK(B84)+1 BOSUB 2 


T2/256)|DD-T2-256*CC+1 

<057> 


500,2600,2700 s GOTO 12440 

<070> 

7070 POKE 198,2s POKE 631,19iP0KE 632,13sP0 


12435 

BOSUB 2500 

<031 > 

KE 673,AAlPOKE 674,BBiPOKE 67S,CC:P0K 


12440 

ZZ=15!AD=8026sON PEEK(885)+1 BOSUB 2 


E 676,DD 

< 167> 


500,2600,2700 s GOTO 12450 

<217> 

7080 POKE 44,PEEK<673)lPOKE 43,PEEK(674)!P 


12445 

BOSUB 2500 

<041 > 

OKE 46,PEEK(675)iPOKE 45,PEEK(676)sSA 


12450 

QZ=0s FOR 1=7686 TO 8166 STEP 15sPOK 


VE"",1,1s END 

<025> 


E I,QZ E POKE 1 + 1,QZ+32a POKE I+2,QZ+64 

<091 > 

8000 POKE 0,PEEK(45)sPOKE 1,PEEK(46)sPRINT 


12460 

QZ—QZ+ls NEXT 

<01B> 

“lCUR,WHITE>Pfl45,P£(0)sP£46,P£(l)sRUN 

<241 > 

12470 

FOR 1=7830 TO 7979sPOKE 1+30720,3sNE 
XT 

< 166> 

8010 POKE 198,2sPOKE 631,19sP0KE 632,13sL0 


12480 

FOR I—79B0 TO 81B4sP0KE 1+30720,2sNE 


AD"",1,1 

< 115> 


XT 

<165> 

10000 BOSUB 12000 

<106> 

12490 

FOR 1=7705 TO 7709sPOKE 1+30720,7sNE 


10040 BET A*sIF A*="" THEN 10040 

< 155> 


XTs FOR 1—7855 TO 7859sPOKE 1+30720,5 


10050 SYS 5120 

<024> 


sNEXT 

<047> 

10060 BET A*sIF A*=""OR A*="S" THEN 10060 

<233> 

12495 

FOR 1=8020 TO 8024 sPOKE 1+30720,4 s NE 


10070 IF A*-" "THEN GOSUB 13000!BOSUB 1230 



XT 

<042> 

(Z-RnTfl 1 CTCi4(7t 


1 OAQC 

^'r’TI IRN 

l 1 

10080 GOSUB 13000s GOTO 200 

<099> 

.rj_ 

i... i urtn 

<i0i> 

12999 

rLTURN 

12000 GOSUB 13000 

<088 > 

13000 

POKE 36864,12sP0KE 36865,38sPOKE 368 


12005 ZX-0SPRINT"CCLR,WHITE}"sPOKE 36869,2 



66,150!POKE 36867,174sPOKE 36869,240 


40sFOR 1=0 TO 2 

<138> 


sRETURN 

< 113> 

12006 IF ABS(TA(I)-TE(I))<15 THEN 12040 

< 14B > 

30000 

DATA 000,251,34,34,34,34,35,0, 000,2 


1200B PRINTsPRINT"CCYANJSTIMME "(I+1 S "CWHI 



09,217,85,B5,83,211,0 

< 151 > 

TEJJ/N ?" 

< 142> 

30010 

DATA 000,247,132,231,133,133,132,0, 


12010 BET A*|IF A*»"" THEN 12010 

<216> 


000, 189,161,189,33,33,189,0 

< 134> 

12015 BOSUB 900 

<083> 

30020 

DATA 0,244,149,150,149,149,244,0, 0, 


12020 IF A*-"J" THEN POKE 880+1,1sZX=1sBOT 



190,8,8,8,8,137,0 

<207> 

0 12040 

<061 > 

30030 

DATA 36,126,36,36,255,36,126,36, 32, 


12030 IF A*="N" THEN POKE 880+1,0s GOTO 120 



56,38,34,255,36,56,0 

<094> 

40 

< 175> 

30040 

DATA 0,0,72,72,255,72,252,72, 72,252 


12035 GOTO 12010 

< 157> 


,72,72,255,72,0,0 

<159> 

12040 NEXT IsIF ZX-0 THEN 200 

<218 > 

30050 

DATA 64,64,64,64,255,112,72,68, 72,7 


12045 ZX-0!FOR 1-0 TO 2!IF PEEK(880+1)-1 T 



2,112,112,255,0,0,0 

<019> 

HEN POKE B70+1,0s ZX-1 

< 151 > 

30060 

DATA 0,0,0,0,255,32,32,32 

<213> 

12046 NEXTsIF ZX=0 THEN 200 

<132> 

30070 

DATA 251,128,128,248,8,B,248,0, 226, 


12050 FOR 1-0 TO 2s IF PEEK(880+1)-0 THEN 



12B,128,128,12B,128,146,0 

<203> 

12090 

<126> 

30075 

DATA 254,128,128,252,128,128,254,0 

<039> 

12060 PRINT"CCLR,DOWN,4RIGHT >STIMME ";I +1j 


30080 

DATA 60,126,254,255,254,188,128,128, 


" s"sPRINTsPRINT 

<04B> 


126,126,64,126,126,64,64,64 

<063> 

12070 PRINT"1 - VIOLINSCHLUESBEL"SPRINT 

<032> 

30090 

DATA 12B,128,252,132,132,252,4,4 

<150> 

12072 PRINT"2 - B-SCHLUESSEL"!PRINT 

<144> 

32000 

PRINT"CCLRJ"sPOKE S03,0sPOKE 884,1sP 


12074 PRINT"3 - BASS-SCHLUESSEL" 

< 17B> 


OKE 885,2sBOSUB 12405sPOKE 36B7B,15 

< 166> 

12075 BET A»tIF A*-"" OR VAL(A*X1 OR VAL( 


32005 

FOR 1=0 TO 2sPOKE 835,IsSYS 6067sNEX 


A<> >3 THEN 12075 

<167> 


T 

<192> 

12080 Q-VAL(A*)-lsBOSUB 900sPOKE BB3+I,Q 

<174> 

32010 

X-INT(RND(1)#30)+1s Y-INT(RND(1 ) *6)s P 


12090 NEXT I 

<236> 


OKE 838,Ys POKE B41,XsP0KE 835,01POKE 


12100 REM 

<224> 


834,0sSYS 5640 

<012> 

12300 FOR 1=0 TO 2sIF PEEK(880+1 > =0 THEN 1 


32020 

POKE 835,1sPOKE 834,1sSYS 5640sPOKE 


2330 

<245> 


835,2iPOKE 834,2 i SYS 5640 

<045> 

12310 H—INT(TA(I ) /256)sL=TA ( I)-H*256sPOKE 


32030 

Z-PEEK(7390+X ) sPOKE 36876,ZiPDKE 368 


860+1,LsPOKE 863+I,H 

< 159> 


75,ZsPOKE 36874,Z 

<044> 

12330 NEXT I 

<222> 

32040 

FOR ZX-1 TO 22*Y8 NEXT 

<120> 

12340 FOR 1=890 TO 916sPOKE 1,0!NEXT 

< 178> 

32050 

BET A*sIF A*=""THEN 32005 

<007> 

12350 POKE 840,lsPOKE 849,1sPOKE 850,1 

<089> 

32060 

POKE 36B76,0s POKE 36875,0sPOKE 36874 


12360 PRINT"(CLR,CYAN,6SPACE,RVBON,SPACEIT 



,0sBOSUB 13000s RETURN 

<009> 

E M P 0 " I PRINT"CWHITE,3D0WN,RVSONJ 
1CRVOFF,SPACE >LARBO " s PRINT 

<194> 

e 

er 
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CI 6/VC 20 


GRUNDLAGEN 


Ein 6502- 

Simukitor 
in Basic 

Der Simulator ist eine Hilfe für den Einstieg in die 
Maschinensprache-Programmierung auf dem 
VC20/C16. Man kann direkt am Bildschirm verfol¬ 
gen, was sich bei der Abarbeitung eines Pro¬ 
gramms in der Zentraleinheit des Computers, im 
6502/7501-Prozessor tut. 

D ie meisten Leser, die sich für Maschinensprache inter¬ 
essieren, werden mit Basic vertraut sein, aber in der 
Regel noch ein paar Schwierigkeiten mit der Funktion 
einzelner Maschinenbefehle haben. Wir wollen deshalb im 
folgenden ein Basic-Programm vorstellen, welches die 
Maschinenbefehle simuliert. Den Prozessorregistern ent¬ 
sprechen dabei einfache Variablen, und der Stapel wird mit 
Hilfe eines Arrays simuliert. Die momentanen Werte der Pro¬ 
zessorregister werden am Bildschirm in hexadezimaler Form 
ausgegeben. Durch die Verwendung von Basic dauert die 
Ausführung eines Befehls etwa lOOOOOmal länger, als der 
Prozessor selbst arbeitet. Dies ist aber gerade dazu gut, um 
in einer Art Einzelschrittverfahren die Funktion eines Pro¬ 
gramms nachzuvollziehen. 

Direkt nach dem Starten fragt das Programm nach der 
Startadresse, ab der ein Programm bearbeitet werden soll. 
Das zu testende Maschinenprogramm muß also bereits im 
Speicher stehen. Man kann sowohl eingebaute ROM- 
Routinen testen, als auch mit einem Assembler erstellte Pro¬ 
gramme nachvollziehen. 

Auch ist es möglich, kleine Programme mit POKE-Befehlen 
einzugeben und dann ab der entsprechenden Speicherzelle 
den Test zu starten. 

Im Anschluß werden die Werte der Prozessorregister, die 
an das Programm übergeben werden sollen, erfragt. Dabei 
kann man den Wert des Prozessorstatusregisters in binärer 
Form eingeben. Schließlich werden noch bis zu 10 Adressen 
erfragt, bei denen das Programm anhalten soll. Wird im Pro¬ 
grammablauf eine dieser Adressen erreicht, so hält das Pro¬ 
gramm an. Alle Eingaben - außer den Daten des Prozessor¬ 
statusregisters - müssen in hexadezimaler Form erfolgen. 

So funktioniert der 6502-Simulator 


Nun wird das Programm schrittweise abgearbeitet und der 
aktuelle Stand der Prozessorregister nebeneinander auf dem 
Bildschirm angezeigt. Durch Drücken der SHIFT-Taste kann 
man das Programm kurzzeitig anhalten. 

Das Programm ist wie folgt aufgebaut: 

Die Zeilen 10 bis 90 geben die Kopfzeile des Programms 
aus und beinhalten die Eingaben. Dort werden auch einige 
Felder und Funktionen definiert, die zu späteren Berechnun¬ 
gen notwendig sind. In Zeile 7 0 befindet sich der Aufruf eines 
Unterprogramms ab Zeile 49000, welches ein Demonstra¬ 
tionsprogramm in die Speicherzellen ab 34768=$8700 
»POKEd«. In den Zeilen 100 bis 900 sind einige Unterpro¬ 
gramme enthalten, die der Umrechnung von Hexadezimal¬ 


zahlen dienen, die hier nicht weiter erläutert werden. Ab Zeile 
1000 bis 1060 befindet sich die Schleife, die für jeden Befehl 
durchlaufen wird. Dabei wird zunächst der aktuelle Stand der 
Prozessorregister angezeigt (Unterprogrammaufruf 2000), 
dann die Variable OP mit dem Wert der momentan über den 
Programmzähler adressierten Speicherzelle besetzt und 
anschließend das Unterprogramm ab Zeile 1100 aufgerufen, 
welches einen Befehl auswertet. Schließlich wird noch der 
Programmzähler um eins erhöht und wieder zur Zeile 1000 
gesprungen, wenn kein Abbruchkriterium erfüllt ist. 

Das Unterprogramm ab Zeile 1100 ist ein Sprung Verteiler 
auf die einzelnen Programmstücke, jeweils ein Sprung für 
einen Befehl. Ein unzulässiger Befehl bedeutet immer einen 
Sprung auf das Unterprogramm ab Zeile 1400, welches mit 
einer entsprechenden Meldung am Bildschirm endet. 

Das Unterprogramm ab Zeile 2000 dient zur Anzeige aller 
Prozessorregister. Das Statusregister wird dabei binär dar¬ 
gestellt, wobei ein Zeichen durch die Funktion CHR$ 
(48+N) gebildet wird, was hier einer »0« oder »1« entspricht, 
je nachdem, ob N gleich 0 oder 1 ist. Die anderen Prozessor¬ 
register werden mit Hilfe des Unterprogramms ab Zeile 200 
in hexadezimale Zahlen umgewandelt. Diese werden gesam¬ 
melt in Zeile 2090 in der zweiten Bildschirmzeile ausgege¬ 
ben. 

Die Zeilen 3000 bis 9000 enthalten Unterprogramme, die 
für die Ausführung von Befehlen notwendig sind, beziehungs¬ 
weise allgemeine Unterprogramme, die die Programmierung 
der anderen vereinfachen. 

Ab Zeile 3000 wird ein 1-Byte-Operand geholt, was 
dadurch geschieht, daß der Programmzähler um 1 erhöht 
wird und der Variablen 0 der Wert der angesprochenen Spei¬ 
cherzelle zugewiesen wird. 0 soll hier die Abkürzung für 1 
Byte-Operand sein. Im Unterprogramm ab 4000 wird ent¬ 
sprechend ein 2-Byte-Operand geholt, der in der Variablen 
00 abgelegt wird. 

Die Unterprogramme ab den Zeilen 5000 bis 6000 fassen 
die einzelnen Statusflags zur Variablen P zusammen bezie¬ 
hungsweise zerlegen diese. 

Ab Zeile 7000 steht das Unterprogramm für die Ausfüh¬ 
rung eines relativen Sprunges. 

Komplizierte Addition 


Da die Addition ein komplizierter Prozeß ist, da insbesondere 
Binär- oder Dezimalarithmetik verwendet werden kann, wird 
diese in dem Unterprogramm ab Zeile 8000 behandelt. Ana¬ 
log wird ab 8200 die Subtraktion behandelt. In diesen Unter¬ 
programmen wird zunächst erfragt, ob das Dezimalflag 
gesetzt ist. Wenn nicht, ergibt sich der neue Wert des Akku¬ 
mulators einfach aus: 

Alter Wert + Speicherwert + Carry-Flag 

Das neue Carry-Flag wird dann gesetzt, wenn der Wert des 
Akkumulators größer als 255 ist. Dann wird der Akkumulator 
noch auf einen Wert bis 255 zurückgesetzt (weil die Variable 
A, anders als der Akkumulator, Zahlen größer als 255 auf¬ 
nehmen kann) und das Negativ- und das Zero-Flag, also hier 
die Variablen N und Z, entsprechend besetzt. Wenn jedoch 
das Dezimal-Flag gesetzt Ist, so werden zuerst die nieder¬ 
wertigen 4 Bit des Akkumulators mit den niederwertigen 4 Bit 
des Speichers verknüpft und anschließend die höherwerti¬ 
gen 4 Bit. Ein Übertrag kommt immer dann zustande, wenn 
das Ergebnis größer als 9 ist. 

Ab Zeile 10000 stehen die Unterprogrammstücke, die 
jeweils einem Maschinenbefehl entsprechen. Die Zeilen¬ 
nummern der Unterprogramme sind dabei wie folgt aufge¬ 
baut: 

Zeilennummer Befehl = 10000 + 100 x Wert Maschinen¬ 
code 
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GRUNDLAGEN 


CI 6/VC 20 


00 

BRK 

33 

illegal 

66 

ROR Op 

01 

ORA (Op,X) 

34 

illegal 

67 

illegal 

02 

illegal 

35 

AND Op,X 

68 

PLA 

03 

illegal 

36 

ROL Op,X 

69 

ADC #Op 

04 

illegal 

37 

illegal 

6A 

ROR #Op 

05 

ORA Op 

38 

SEC 

6B 

illegal 

06 

ASL Op 

39 

AND Op,Y 

6C 

JMP (Op) 

07 

illegal 

3A 

Illegal 

6D 

ADC Op 

08 

PHP 

3B 

illegal 

6E 

ROR Op 

09 

ORA #Op 

3C 

illegal 

6F 

illegal 

OA 

ASL A 

3D 

AND Op,X 

70 

BVS Op 

OB 

illegal 

3E 

ROL Op,X 

71 

ADC (Op),Y 

OC 

illegal 

3F 

illegal 

72 

illegal 

OD 

ORA Op 

40 

RTI 

73 

illegal 

OE 

ASL Op 

41 

EOR (Op,X) 

74 

illegal 

OF 

illegal 

42 

illegal 

75 

ADC Op,X 

10 

BPL Op 

43 

illegal 

76 

ROR Op,X 

11 

ORA (Op).Y 

44 

illegal 

77 

Illegal 

12 

illegal 

45 

EOR Op 

78 

SEI 

13 

illegal 

46 

LSR Op 

79 

ADC Op.Y 

14 

illegal 

47 

illegal 

7A 

Illegal 

15 

ORA Op.X 

48 

PHA 

7B 

illegal 

16 

ASL Op,X 

49 

EOR #Op 

7C 

illegal 

17 

illegal 

4A 

LSR A 

7D 

ADC Op.X 

18 

CLC 

4B 

illegal 

7E 

ROR Op.X 

19 

ORA Op,Y 

4C 

JMP Op 

7F 

illegal 

1A 

illegal 

4D 

EOR Op 

80 

illegal 

1B 

illegal 

4E 

LSR Op 

81 

STA (Op.X) 

IC 

illegal 

4F 

illegal 

82 

illegal 

ID 

ORA Op,X 

50 

BVC Op 

83 

illegal 

IE 

ASL Op,X 

51 

EOR (Op),Y 

84 

STY Op 

1F 

illegal 

52 

illegal 

85 

STA Op 

20 

JSR Op 

53 

illegal 

86 

STXOp 

21 

AND (Op,X) 

54 

illegal 

87 

illegal 

22 

illegal 

55 

EOR Op,X 

88 

DEY 

23 

illegal 

56 

LSR Op,X 

89 

illegal 

24 

BIT Op 

57 

illegal 

8A 

TXA 

25 

ANDOp 

58 

CLI 

8B 

illegal 

26 

ROLOp 

59 

EOR Op.Y 

8C 

STY Op 

27 

illegal 

5A 

illegal 

8D 

STA Op 

28 

PLP 

5B 

illegal 

8E 

STXOp 

29 

AND #Op 

5C 

illegal 

8F 

illegal 

2A 

ROL #Op 

5D 

EOR Op,X 

90 

BCC Op 

2B 

illegal 

5E 

LSR Op,X 

91 

STA (Op),Y 

2C 

BIT Op 

5F 

illegal 

92 

illegal 

2D 

ANDOp 

60 

RTS 

93 

illegal 

2E 

ROL Op 

61 

ADC (Op,X) 

94 

STY Op.X 

2F 

illegal 

62 

Illegal 

95 

STA Op,X 

30 

BMI Op 

63 

Illegal 

96 

STX Op.Y 

31 

AND (Op).Y 

64 

illegal 

97 

illegal 

32 

illegal 

65 

ADC Op 

98 

TYA 



Illegale Opcodes 


Da wir an dieser Stelle davon ausgehen, daß Basic hinlänglich 
bekannt ist, werden für die Unterprogramme zu den einzel¬ 
nen Befehlen keine Erklärungen mehr gegeben. Vielmehr 
sollen gerade die Unterprogramme in Basic dazu dienen, 
Ihnen die Arbeitsweise der Befehle zu verdeutlichen. 

Wie Sie aus Tabelle 1 ersehen können, sind nicht alle der 
256 theoretisch möglichen Operations-Codes mit tatsächli¬ 
chen Funktionen belegt. Sie können jedoch dem Prozessor 
einen solchen Operations-Code anbieten. Die Reaktion des 
Prozessors auf einen solchen Befehl ist durch seine interne 
Struktur definiert. Bei einigen illegalen Befehlen hört der Pro¬ 
zessor auf zu arbeiten und kann dann nur noch mit einem 
Reset-Impuls reaktiviert werden. Einige Befehle führen 
jedoch nicht zum Absturz des Computers, sondern führen 
exotische Funktionen aus, die eine Kombination von offiziel¬ 
len Operationen darstellen. So zum Beispiel die folgenden 
drei Befehle: 

A7 aa Der Akkumulator und das X-Register werden mit dem 
Inhalt der Zero-Page-Adresse aa geladen. 

87 aa Das Ergebnis einer UND-Funktion zwischen Akku 
und X-Register wird in die Zero-Page-Adresse aa 
gespeichert. 

97 aa Das Ergebnis einer UND-Funktion zwischen Akku 
und X-Register wird in die Zero-Page-Adresse aa+Y 
gespeichert. 

Um das Programm nicht noch weiter aufzublähen, wurde 
beim 6502/7501-Simulator auf die Auswertung illegaler 
Opcodes verzichtet. (ev) 

Buchauszug »Das Commodore 64 Buch«, Band 4, M&T-Verlag AG 


99 

STA Op,Y 

BB 

illegal 

DD 

CMP Op,X 

9A 

TXS 

BC 

LDY Op.X 

DE 

DEC Op.X 

9B 

illegal 

BD 

LDA Op.Y 

DF 

illegal 

9C 

illegal 

BE 

LDX Op,Y 

EO 

CPX #Op 

9D 

STA Op.X 

BF 

illegal 

El 

, SBC (Op.X) 

9E 

Illegal 

CO 

CPY #Op 

E2 

illegal 

9F 

illegal 

CI 

CMP (Op,X) 

E3 

illegal 

AO 

LDY #Op 

C2 

illegal 

E4 

CPX Op 

AI 

LDA (Op.X) 

C3 

illegal 

E5 

SBC Op 

A2 

LDX #Op 

C4 

CPY Op 

E6 

INC Op 

A3 

illegal 

C5 

CMP Op 

E7 

illegal 

A4 

LDY Op 

C6 

DEC Op 

E8 

INX 

A5 

LDA Op 

C7 

Illegal 

E9 

SBC #Op 

A6 

LDX Op 

C8 

INY 

EA 

NOP 

A7 

illegal 

C9 

CMP #Op 

EB 

Illegal 

A8 

TAY 

CA 

DEX 

EC 

CPX Op 

A9 

LDA #Op 

CB 

Illegal 

ED 

SBC Op 

AA 

TAX 

CC 

CPY Op 

EE 

INC Op 

AB 

illegal 

CD 

CMP Op 

EF 

illegal 

AC 

LDY Op 

CE 

DEC Op 

FO 

BEQ Op 

AD 

LDA Op 

CF 

Illegal 

Fl 

SBC Op.Y 

AE 

LDX Op 

DO 

BNE Op 

F2 

Illegal 

AF 

illegal 

Dl 

CMP (Op),Y 

F3 

Illegal 

BO 

BCS Op 

D2 

Illegal 

F4 

Illegal 

Bl 

LDA (Op).Y 

D3 

Illegal 

F5 

SBC Op.X 

B2 

illegal 

D4 

illegal 

F6 

INC Op,X 

B3 

illegal 

D5 

CMP Op.X 

F7 

Illegal 

B4 

illegal 

D6 

DEC Op,X 

F8 

SED 

B5 

LDA Op,X 

D7 

illegal 

F9 

SBC Op,Y 

B6 

LDX Op.Y 

D8 

CLD 

FA 

illegal 

B7 

illegal 

D9 

CMP Op,X 

FB 

illegal 

B8 

CLV 

DA 

illegal 

FC 

illegal 

B9 

LDA Op,Y 

DB 

illegal 

FD 

SBC Op.X 

BA 

TSX 

DC 

illegal 

FE 

INC Op,X 





FF 

illegal 


Tabelle 1. Die Maschinenbefehle des 6502/7501-Prozessors 
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CI 6/VC 20 


GRUNDLAGEN 


DEMO6502 


10 - 50000 


Variablen: 


Name 

Typ 

Bereich 

Bedeutung 

A 

G 

0...255 

Akkumulator 

B 

G 

0,1 

Break-Flag 

C 

G 

0,1 

Carry-Flag 

D 

G 

0,1 

Dezimal-Flag 

H 

H 

Integer 

Hilfsvariable 

H$ 

H 

2 Zeichen 

Hilfsvariable 

HO$ 

H 

31 Zeichen 

Eingabezeile 

HE$ 

G 

"0123456789ABCDEF" 

Hexadezimalziffern 

HH 

H 

0...65535 

Hilfsvariable 

HH$ 

H 

4 Zeichen 

Hilfsvariable 

Hl 

H/R 

0...255 

Höherwertiges Byte 

HP 

H 

0...10 

Anzahl Abbruchpunkte 

1 

G 

0,1 

Interrupt-Disable-Flag 

J 

H 

Integer 

Laufvariable 

LO 

H/R 

0...255 

Niederwertiges Byte 

M 

H 

0...65535 

Speicheradresse 

N 

G 

0,1 

Negativ-Flag 

0 

H 

0...255 

Operand (1 Byte) 

oo 

H 

0...65535 

Operand (2 Byte) 

OP 

H 

0.255 

Befehlscode 

p 

G 

0...255 

Prozessorstatus 

P5 

G 

0,1 

Bit 5 von P 

PC 

G 

0...65535 

Programmzahler 

S 

G 

0...255 

Stapelzeiger 

V 

G 

0,1 

Overflow-Flag 

X 

G 

0...255 

X-Register 

Y 

G 

0...255 

Y-Register 

Z 

G 

0,1 

Zero-Flag 


Felder (Arrays): 


Name 


HP 

ST% 


Dirnen. 


10 

255 


Typ 


G 

G 


Bereich 


0...65535 
0...255 


Bedeutung 


Abbruchstellen 

Stack 


Tabelle 2a. Variablenliste zu »Demo 6502« 


Unterprogrammaufrufe : (nur im Bereich 10 - 8440) 


in 

nach 

Zweck 

22 

2000 

Anzeige Register 

26 

400 

Wert von 4stelliger Hexzahl bestimmen 

44 

350 

Wert von 2stelliger Hexzahl bestimmen 

46 

350 

Wert von 2stelliger Hexzahl bestimmen 

48 

350 

Wert von 2stelliger Hexzahl bestimmen 

50 

350 

Wert von 2stelliger Hexzahl bestimmen 

62 

400 

Wert von 4stelliger Hexzahl bestimmen 

70 

49000 

Beispielprogramm »poken« 

270 

200 

2stellige Hexzahl bilden 

300 

200 

2stellige Hexzahl bilden 

420 

350 

Wert von 2stelliger Hexzahl bestimmen 

450 

350 

Wert von 2stelliger Hexzahl bestimmen 

1010 

2000 

Anzeige Register 

1045 

200 

2-stellig,e Hexzahl bilden 

1050 

1100 

Befehl ausführen 

2010 

250 

4stellige Hexzahl bilden 

2040 

200 

2stelllge Hexzahl bilden 

2050 

200 

2stellige Hexzahl bilden 

2060 

200 

2stelllge Hexzahl bilden 

2070 

200 

2stellige Hexzahl bilden 


Verzweigungen nach außen: 


ln Ze 


1090 

1370 

1410 


nach 


STOP 

STOP 

STOP 


Bedingung 


PC = HP(J) 

OP größer als 255 


Bemerkung 


Abbruchpunkt erreicht 
illegaler Befehl 


Tabelle 2b. Unterprogrammaufruf zu »Demo 6502« 



10 PRINT "<CLRX3SPACE>PCC3SPA 



CE >NV-BDIZC C3SPACE>ACT2SPAC 
EJXR C2SPACE>YR <2SPACE>SP 

<142> 


12 HES“ "01234567B9ABCDEF " 

<25S> 


14 DIM ST7. (255) s REM STACK 

16 DEF FN EO(M)=(M AND (NOT A) 

<210> 


) UR KNUT Ml AND AI 

<182> 


18 DEF FN V(X)“X-48+7*(X>64) 

20 DEF FN F0(Xl-(A3C(MID*IH0t, 

<016> 


X , 1) )-48) AND 1 

<160> 


22 GOSUB 200101 

<242> 


24 INPUT "CHQMEJ(DOWN)";H0* 

26 HH*»LEFT*(H0*,4)xGOSUB 400t 

<239> 


PC-HH 

<090> 


20 N-FN F0(7) 

<181> 


30 V=FN F0(B) 

<216> 


32 P3=FN F0C91 

<2I4> 


34 B-FN FBI 10) 

<055> 


36 D=FN F0(11) 

<067> 


38 I=FN F0(12) 

<091> 


40 Z=FN F0I13) 

< 163> 


42 C-FN F0I141 

44 H*-MID*IH0»,18,2)sGOSUB 350 

<07S> 


:A-H 

<254> 


46 H*-MID*(H0*,22,2)xGOSUB 350 



i X=H 

<11») 


48 H*-MID*<H0t,26,2):GOSUB 350 



s Y”H 

<240> 


50 H*=MID*(H0*,30,2):BOSUB 330 



tS»H 

<024 > 


52 PRINT "<2D0WN>" 

< 102> 


54 HP*HP+1 

56 PRINT HP"<LEFT>. ABBRUCHPUN 

< 167> 


KT"; 

<071> 


56 INPUT "C3SPACE)<3LEFT>";HH* 
60 IF HH*="X" THEN HP=HP-1:GOT 

< 114> 


Q 60 

<045 .■> 


62 GOSUB 400 

<030> 


64 HP(HP)«HH 

< 121 > 


66 GOTO 54 

<084 > 


68 PRINT "tUP>(23SPACE5"; 

<230> 


70 BOSUB 49000 

<21B> 


72 GOTO 1000 

<012> 


140 l 

150 REM »HH» WERT IN HIGH- UND 

<116> 


LUW ZERLEGEN *** 

< 029 > 


160 HI“INT(HH/256) 

< 1B2> 


170 L0-HH-256*HI 

<246> 


100 RETURN 

<23B> 


190 s 

< 166> 

lUTMfe»' 

200 REM » 2-STELLIGE HEXZAHL 

(H*> AUS H BILDEN 



* 

< 1B7 > 


210 H*=MID*(HE*,H/16+1 t D+MID* 



(HES,(H AND 151+1,1) 

<166> 


220 RETURN 

<022> 


240 x 

250 REM * 4-STELLIGE HEXZAHL 

<216> 


(HH*) AUS HH BILDEN 



* 

<196> 


260 H=INT(HH/256) 

<122> 


270 BOSUB 200 

<224> 


200 HH*=HS 

<057 > 


290 H=HH-256*H 

<255> 


300 GOSUB 200 

<254> 


310 HH*-HH*+H* 

<0365 


320 RETURN 

< 124 > 


340 « 

330 REM * WERT VON 2-STELLIGER 

<062 > 


HEX-ZAHL (H*) -> H 



• 

< 084 > 


360 H~16*FN 9(ASC(H*))+FN V(AG 



C(MID*(H*,2)1) 

< 110 > 


370 RETURN 

< 1 74 > 


390 x 

400 REM « WERT VON 4-STELLIGER 

< 112> 


HEX-ZAHL (HH*) -> HH 



« 

<098 > 


410 H*“LEFT*IHH*,2> 

<179> 


420 BUSUB 350 

<206> 


430 HH-236*H 



440 H*-RIGHT*(HH*,2> 

<241 > 


450 BOSUB 350 

<236> 


460 HH=HH+H 

<020> 


470 RETURN 

<01Q> 


990 s 

1000 REM *** SCHLEIFE FUER JED 

<204> 


FN BEFEHL •** 

<011> 


1010 GOSUB 2000 

<212> 


1020 IF HP-0 THEN 1000 

1030 FÜR J-l TO HPxIF PC-HP(J) 

<126> 


THEN 1000 

<024> 


1035 NEXT J 

<U1> 


1040 OP=PEEK(PC) 

1045 H-OPx GOSUB 200-.PRINT "OPC 

<033> 


ODEi "H*"C2SPACE >"j 

< 153> 


1050 GOSUB 1100 

<006 > 


1055 PC-PC+1 

< 013 > 


1060 GOTO 1000 

<240> 


1000 PRINT "ABBRUCH (";J;"> "j 

< 150 > 


1090 STOP 

<140> 


1100 IF OP=0 THEN 10000 

1110 ON OP GOTO 10100, 1400 

<011> 


, 1400, 1400,10500,10600, 



Listing »Demo 6502« 
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CI 6/VC 20 



1400,10800,10900,11000 

< 136> 

4020 0=PEEK(PC> 

<179> 

10660 

POKE 0,M 

<B37> 

1120 

□N DP-10 BGTD 1400, 1400 


4030 POPC+1 

< 194 > 

10670 

Z— (M-0) 

<235> 


,11300,11400, 1400,11600, 


4040 0Q=0+256#PEEK(PC) 

<205> 

10680 

N-(M AND 128)/128 

<160> 


11700, 1400, 1400, 1400 

<021 > 

4050 RETURN 

<042> 

10690 

RETURN 

<079> 

1130 

ON OP-20 GOTO 12100,12200 


4990 i 

<140> 

10790 

g 

<090 > 


, 1400,12400,12500, 1400, 


5000 REM *** STATUS ZUSAMMENFA 


10000 

REM **» PHP 

< 130 > 


1400, 1400,12900,13000 

< 1 28 > 

SSEN *#* 

< 176> 

100 10 

GOSUB 5000 

< 130 > 

1140 

ON QP-30 GOTO 1400,13200 


5010 P- 128*N+64*V+32*P5+16+B+8 


10820 

ST-/.(S)=P!S=(S-1) AND 255 

< 190> 


,13300, 1400, 1400,13600, 


*D+4*I+2*Z+C 

<2111 

10830 

RETURN 

<220> 


13700,13800, 1400,14000 

<091> 

5020 RETURN 

<252> 

10890 

: 

<19B> 

1150 

ON OP-40 GOTO 14100,14200 


5990 : 

<124> 

10900 

REM *** ORA #IMMEDIATE 

<159> 


, 1400,14400,14500,14600, 


6000 REM »»« STATUS ZERLEGEN * 


10910 

GOSUB 3000 

<214> 


1400,14800,14900, 1400 

<082 > 

** 

< 1B8> 

10920 

A=A OR 0 

<147> 

1160 

ON OP-50 GOTO 1400, 1400 


6010 N »IP AND 1281/128 

<159> 

10930 

N-<A AND 12B1/12B 

<027> 


,15300,15400, 1400,15600, 


6020 V “(P AND 641/ 64 

<09B> 

10940 

Z—(A“0) 

<248> 


15700, 1400, 1400, 1400 

<046> 

6030 P5“(P AND 321/ 32 

<226> 

10950 

RETURN 

<084> 

1170 

ON OP-60 GOTO 16100,16200 


6040 B =<P AND 161/ 16 

<157> 

10990 

: 

<042> 


, 1400,16400,16500, 1400, 


6050 D =(P AND B)/ 8 

< 109 > 

11000 

REM *** ASL A 

<137> 


1400, 1400,16900,17000 

< 038 > 

6060 I -<P AND 4)/ 4 

<121> 

11010 

A-A*2 

<039> 

11B0 

ON OP-70 GOTO 1400,17200 


6070 Z -<P AND 2)/ 2 

<190> 

11020 

C=-(A>235) 

< 164 > 


,17300,17400, 1400,17600, 


60B0 C -P AND l 

<214> 

11030 

A-A AND 255 

<106> 


17700,17B00, 1400,18000 

< 088 > 

6090 RETURN 

<050 > 

11040 

Z— <A-0> 

<157> 

1190 

ON OP-G0 GOTO 1B100, 1400 


6990 i 

<100> 

11050 

N-(A AND 120)/12B 

< 149> 


, 1400, 1400,L G500,10600, 


7000 REM **# RELATIVEN SPRUNG 


11060 

RETURN 

< 196> 


1400,16800,10900, 1400 

<246> 

AUSFUEHREN #** 

< i23> 

11290 

a 

<090 > 

1200 

ON OP-90 GOTO 1400, 1400 


7010 IF 0>127 THEN 0-0-256 

<153> 

11300 

REM *** ORA ABSOLUTE 

<149> 


,19300,19400, 1400,19600, 


7020 PC-POO 

< 166> 

11310 

GOSUB 4000 

<114) 


19700, 1400, 1400, 1400 

<072> 

7030 RETURN 

<230> 

11320 

A-A OR PEEK(00) 

<169> 

1210 

ON OP-100GOTO 20100,20200 


7990 t 

<092> 

11330 

N=(A AND 1281/128 

<175> 


, 1400,20400,20300,20600, 


8000 REM *#* A-A+M+C (ADC-BEFE 


11340 

z— (A-0) 

< 140> 


1400,20800,20900,21000 

<237> 

HL) »** 

< 060 > 

11350 

RETURN 

<232> 

1220 

ON OP-110GOTO 1400,21200 


B010 IF D=0 THEN A=A+M+ClC=-(A 


11390 

B 

<190> 


,21300, 1400, 1400, 1400, 


>255)!GOTO 80/0 

< 143> 

11400 

REM *** ASL ABSOLUTE 

<001> 


21700,21600, 1400,22000 

<0 1 B> 

B0Z0 H-(A AND 15) + (M AND 151+C 

<033> 

11410 

GOSUB 4000 

<214> 

1230 

ON OP-120GOTO 22100, 1400 


0030 C—(H>9) 

< 114> 

11420 

W-PEEK100) 

<146> 


, 1400, 1400,22500,22600, 


8040 H=H AND 15 

< 107> 

11430 

M=M»2 

< 189> 


1400, 1400,22900, 1400 

<053> 

B050 A=(A AND 240)+(M AND 240) 


11440 

C—<M>255) 

<077 > 

1240 

ON OP-130GQTO 1400,23200 


+H+16*C 

<179> 

11450 

M=M AND 255 

<000> 


,23300,23400, 1400,23600, 


8060 C— (A/99) 

< 146> 

11460 

POKE 00,M 

< 192> 


1400,23800, 1400,24000 

<066> 

0070 A=A AND 253 

< 194 > 

11470 

Z—(M-0) 

<017> 

1250 

ON OP-140GOTO 24100,24200 


8080 N=(A AND 128)/128 

<227> 

11480 

N«=(M AND 120)/128 

< 19B> 


, 1400,24400,24500, 1400, 


8090 Z—(A-0) 

< 192> 

11490 

RETURN 

<116> 


1400,24800,24900,25000 

<089> 

8100 RETURN 

<02B> 

11590 

! 

< 136> 

1260 

ON OP-150GOTO 1400,25200 


0190 : 

<036> 

11600 

REM **« BPL 

<036> 


,25300,25400, 1400, 1400, 


0200 REM *«* A=A-M-1+C CSBC-BE 


11610 

GOSUB 3000 

< 152> 


25700, 1400, 1400,26000 

< 165> 

FEHL) *** 

<002> 

11620 

IF N=0 THEN GOSUB 7000 

<022> 

1270 

ON OP—160GOTO 26100,26200 


8210 IF D~0 THEN A=A-M-1+C:C=- 


11630 

RETURN 

<002> 


, 1400,26400,26500,26600, 


(A>=0):GOTO 8270 

<044 > 

11690 

a 

<236 > 


1400,26800,26900,27000 

<037> 

B220 H=(A AND 151-01 AND 151-1 


11700 

REM ** ORA (INDIRECT),Y 

<097> 

1280 

ON OP-1706OTO 1400,27200 


+c 

<002> 

11710 

GOSUB 3000 

<252> 


,27300,27400, 1400,27600, 


8230 C— (H>=0> 

< 165> 

11720 

OO-PEEK(0)+256*PEEK(0+1) 



27700, 1400, 1400,28000 

<055 > 

8240 H=H AND 15 

<057> 


+Y 

<062> 

1290 

ON OP-180GOTO 28100,28200 


8250 A=(A AND 240)-(M AND 240) 


11730 

A=A OR PEEK(00) 

<069 > 


, 1400,28400,28500,28600, 


+H-16+16*C 

<239> 

11740 

N=(A AND 128)/128 

<075> 


1400,28800,28900,29000 

<143> 

8260 C=-<A>=0) 

<226> 

11750 

Z=-(A=0) 

<040> 

1300 

ON ÖP-190GOTO 1400,29200 


8270 A=A AND 255 

<203> 

11760 

RETURN 

<132> 


,29300, 1400, 1400,29600, 


8280 C»(A AND 1281/128 

<074 > 

12090 

• 

<12B> 


29700,29800, 1400,30000 

<242> 

8290 Z—(A=0) 

<212> 

12100 

REM *«« ORA ZEROPAGE,X 

< 159 > 

1310 

ON aP-200GOTO 30100,30200 


8300 RETURN 

< 137> 

12110 

GOSUB 3000 

<144> 


, 1400,30400,30500,30600, 


8390 a 

<05B> 

12120 

A=A OR PEEK(0+X) 

< 140 > 


1400,30800,30900, 1400 

< 169> 

8400 REM «*» A-M (CMP-BEFEHL) 


12130 

N=(A AND 128)/128 

<213> 

1320 

ON OP-210GOTO 1400, 1400 


##* 

<086 > 

12140 

Z“—(A“0) 

< 178> 


,31300,31400, 1400,31600, 


0410 C—<(A-M>>=0) 

<0B5> 

12150 

RETURN 

<014> 


31700, 1400, 1400, 1400 

< 104> 

8420 N=(<A-M) AND 128)/120 

<239> 

12190 

g 

<228> 

1330 

ON OP—220GOTO 32100,32200 


0430 2— <<A-M>-0> 

<241> 

12200 

REM *** ASL ZERGPAGE,X 

<011> 


, 1400,32400,32500, 1400, 


8440 RETURN 

<021 > 

12210 

GOSUB 3000 

<244> 


1400,32800,32900,33000 

<212> 

9990 i 

<060> 

12220 

M-PEEK(0+X) 

<231 > 

1340 

ON OP—230GOTO 1400,33200 


10000 REM *** BRk 

<216> 

12230 

M-h*2 

<227> 


,33300,33400, 1400,33600, 


10005 HH=PC+2tGOSUB 150 

<222> 

12240 

C— (M>255) 

<115> 


33700,33800, 1400,34000 

<101> 

10010 ST7.(S)=HI:S=(S-1) AND 25 


12250 

M=M AND 255 

<03B> 

1350 

ON OP-240GQTO 34100, 1400 


5 

<208> 

12260 

POKE 0+X,M 

< 128> 


, 1400, 1400,34500,34600, 


10015 ST7. (S) =LOa 9= (S-1) AND 25 


12270 

Z“—(M-0) 

<055 > 


1400,34800,34900, 1400 

<224> 

5 

<245> 

12200 

N-(M AND 12B1/12G 

<236> 

1360 

ON OP-250BOTQ 1480, 1400 


10020 B-l 

<035> 

12290 

RETURN 

<156> 


,35300,35400, 1400 

< 194> 

10025 GOSUB 3000 

< 107 > 

12390 

B 

< 174> 

1370 

STOP 

<166> 

10030 ST7.(8)-P:S-(S-1) AND 255 

<162> 

12400 

REM »*« CLC 

< 127> 

1400 

PRINT "UNGUELTIGER CODE"* 

<011> 

10035 1-1 

<078> 

12410 

C-0 

<127> 

1410 

STOP 

<206> 

10040 PC-PEEK(65534)+256»PEEK( 


12420 

RETURN 

<030> 

1990 

i 

<188> 

65535) 

<243> 

12490 

t 

<01B> 

2000 

REM *** ANZEIGE *** 

<070> 

10045 GOGUB 2000 

<103> 

12500 

REM • *« ORA ADGQLUTE,Y 

< 0 1 0 > 

2010 

HH-PC t BOSUB 250 * PC*-HH* 

< 19B> 

10050 PRINT “BRK ERREICHT' 1 ! 

<220> 

12510 

GOSUB 4000 

<042> 

2020 

ST*-CHR* (48+N) +CHR* ( 48+V) 


10055 END 

< 151 > 

12520 

A-A ÜR PEEK(00+Y) 

<195> 


+CHR* (4B+P5) +CHR*(4B+B) 

<249> 

10090 a 

< 160> 

12530 

N-(A AND 128)/128 

< 103> 

2030 

ST*-ST*+CHR*(40.D)+CHR*(4 


10100 REM »»* ORA (IND1RECT, X) 

<23B> 

12540 

Z— <A=0> 

<068 > 


8+1)+CHR* < 48+Z >+CHR*< 4B+C 


10110 GOGUB 3000 

<176> 

12550 

RETURN 

<162> 


) 

<129> 

10120 00-P£EK(0+X)+2S6*PEEK(0+ 


12890 

I 

< 166> 

2040 

H-AsGOSUB 2001A*-H* 

<209> 

X+l> 

<030> 

12900 

REM •#* ORA ABSOLUTE,X 

<154> 

2050 

H-X:GOSUB 200aX*-H* 

<006> 

10130 A=A UR PEEK(00) 

<249> 

12910 

GOSUB 4000 

<190> 

2060 

H=VlGOGUB 200tY*=H* 

<040> 

10140 N=(A AND 1281/128 

<255> 

12920 

A-A OR PEEK (00+X) 

<079> 

2070 

H=SlGOSUB 200:S*=M* 

<162> 

10150 Z— (A-0) 

<220> 

12930 

N=(A AND 128)/12B 

<251 > 

2090 

PR 1 NT " (HOME i (.DOWN > <2SPAC 


10160 RETURN 

<056> 

12940 

Z—(A-0) 

<216> 


E)"PC»"<2SPACE>"ST$" «SPA 


10490 ! 

<050> 

12930 

RETURN 

<052> 


CE)''A*'‘ 12SPACE}“X*" {2SPAC 


10500 REM ««* ORA ZEROPAGE 

<154> 

12990 

: 

<010> 


EVY*” <2SPACE>“S* 

<071> 

10510 GOSUB 3000 

<068> 

13000 

REM **» ASL ABSOLUTE, X 

<006> 

2100 

RETURN 

< 126> 

10520 A=A OR PEEK(O) 

< 147> 

13010 

GOSUB 4000 

<034> 

2990 

1 

<172> 

10530 N=1A AND 129)/12B 

<137> 

13020 

M— PEEK(00+X ) 

<179> 

3000 

REM *** l-BYTE-OPERAND HO 


10540 Z— <A=0) 

< 102> 

13030 

M—M*2 

< 009 > 


LEN *** 

<242> 

10550 RETURN 

< 194 > 

13040 

C— <M>255> 

<153> 

3010 

PC*PC+1 

<190> 

10590 a 

<152> 

13050 

M-M AND 253 

<076 > 

3020 

□-PEEK(PC) 

<193> 

10600 REM *** ASL ZEROPAGE 

<006> 

13060 

POKE 00+X,M AND 255 

<039> 

3030 

RETURN 

<038> 

10610 GOSUB 3000 

<16B> 

13070 

Z=-(M=0> 

<095> 

3990 

i 

<156> 

10620 M— PEEK(O) 

<04B> 

13080 

N=(M AND 128)/12B 

<O20> 

<1000 

REM »#« 2-BYTE-OPERAND HQ 


10630 M-M*2 

< 151 > 

13090 

Return 

<194> 


LEN *«* 

<034> 

10640 C=-(M>255) 

<039> 

13190 

8 

<212> 

4010 

PC-PC+1 

<174> 

10650 M-M AND 255 

<210> 

13200 

REM #** JSR 

<249> 


100 
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13210 

13220 

13230 

HH—PC+2E GOSUB 1S0 
STX<S)-HIsS«(S-l> AND 25 
5 

ST7.(S)=L0i5“(S-l) AND 25 
3 

< 123> 

< 114> 

<156> 

15300 

15310 

15320 

15330 

15340 

REM ##* AND ZEROPAGE,X 
GOSUB 3000 

A=A AND PEEK(Q+X) 

N*(A AND 12B)/128 

Z—(A-0) 

<1B1 > 
<040> 

<003> 
<109> 
<074 > 

17690 

17700 

17710 

17720 

17730 

■ 

REM •** EOR ABSOLUTE 
GOSUB 4000 

A=FN EO(PEEK(00)) 

N-(A AND 12B1/12B 


<140> 

<212> 

< 164> 

< 197> 

<223> 

13240 

GOSUB 4000 

<0i0> 

15350 

RETURN 

<166> 

17740 

Z=-(A=0> 


<190> 

13250 

PC-00-1 

<U2> 

15390 

: 

<126> 

17750 

RETURN 


<026> 

13260 

RETURN 

< 108 > 

15400 

REM «H**RQL ZERÜPAGE,X 

<231 > 

17790 

8 


<240> 

13290 

: 

<056> 

15410 

GOSUB 3000 

<142> 

17800 

REM »»• LSR ABSOLUTE 


< 252 > 

13300 

REM »** AND (INDIRECT,X1 

<004> 

15420 

M-PEEK(0+X) 

< 129> 

17810 

GOSUB 4000 


<008> 

13310 

13320 

GOSUB 3000 

OO-PEEK (O+X)+256«*PEEK<0+ 
X+l) 

<072> 

< 184 > 

15430 

15440 

15450 

M-M+2+C 

C— (M>255) 

M-M AND 233 

<021 > 
<013> 
<1927 

17820 

1783(2) 

1 7840 

M-PEEK(00) 

C-M AND 1 

M—INT(M/2) 


<196> 

<231 > 

<017> 

13330 

A-A AND PEEK(00) 

< 114 > 

15460 

POKE 0+X,M AND 255 

<170> 

17830 

POKE ÜO,M 


<232> 

13340 

N-(A AND 128)/128 

<153> 

154/0 

Z—(M-0) 

<209> 

17060 

z—(M-0) 


<057 > 

13330 

Z—(A-0) 

<110> 

15480 

N-(M AND 1281/128 

< 134> 

17870 

N=(M AND 128)/128 


<238> 

1 3360 

RETURN 

<210> 

15490 

RETURN 

<052 > 

1 7080 

RETURN 


<156> 

13590 

1 

<104> 

15590 

s 

<070> 

17990 

• 



13600 

REM «**«» BIT ZEROPAGE 

<250> 

15600 

REM «hm* SEC 

< 151 > 

18000 

REM *«*«* BVC 


<080> 

13610 

GOSUB 3000 

<120> 

15610 

C-l 

<039> 

18010 

GOSUB 3000 


<202> 

13620 

M-PEEK(0) 

<000> 

15620 

RETURN 

< 184 > 

18020 

IF V-0 THEN GOSUB 7000 


<136> 

13630 

N-(M AND 120)/128 

< 062 > 

15690 

I 

<172> 

1BM30 

RETURN 


<052> 

13640 

V=(M AND 64)/64 

<00i> 

15700 

REM «hm* AND ABSOLUTE,Y 

<034> 

18090 

i 


<030> 

13650 

Z=-((A AND M>-0> 

<205> 

15710 

GOSUB 4000 

< 196> 

18100 

REM «»» EOR (INDIRECT) 

V 

<015> 

13660 

RETURN 

<00o> 

15720 

A-A AND PEEK(00+Y) 

<0607 

1B110 

GOSIJB 3000 


<046> 

13690 

13700 

REM *»» AND ZEROPABE 

< 204 > 

< 176> 

15730 

15740 

N-(A AND 128)/128 

Z— (A-0) 

<001 > 
<222> 

18120 

OO-PEEK(0)+256*PEEK(0+l) 

♦Y 

<112> 

13710 

GOSUB 3000 

<220> 

15750 

RETURN 

<058 > 

18130 

A-FN EO(PEEK(00)) 


<097 > 

13720 

A—A AND PEEK(0) 

<010> 

16090 

8 

<062> 

10140 

N—(A AND 128)/128 


< 1 25> 

13730 

N-(A AND 12B)/12B 

<033> 

16100 

REM »** AND ABSOLUTE,X 

< 176> 

18150 

Z— (A-0) 


<090> 

13740 

Z— (A-0) 

<254> 

16110 

GOSUB 4000 

<0067 

18160 

RETURN 


<1B2> 

13750 

RETURN 

<090 > 

16120 

A-A AND PEEK(QQ+Y) 

<206> 

18490 

2 


<17B> 

13/90 

I 

<048> 

16130 

N-(A AND 120)/128 

< 149> 

18500 

REM »»* EOR ZEROPAGE, X 


<222> 

13800 

REM «►«*«* ROL ZERÜPAGE 

<224 > 

16140 

Z— (A-0) 

<114> 

18510 

GOSUB 3000 


<194> 

13810 

GOSUB 3000 

<064> 

16150 

RETURN 

<2067 

18520 

A-FN ED(PEEK(0+X)) 


<003 > 

13820 

M-PEEK(0) 

<200> 

16190 

i 

< 164 > 

18530 

N— <A AND 128)/128 


<007 > 

13B30 

M=M«*2+C 

<201 > 

16200 

REM **« ROL ABSOLUTE,X 

<226> 

18540 

Z=-(A=0) 


<228> 

13840 

C—-(M>255) 

<193> 

16210 

GOSUB 4000 

<1087 

18550 

RETURN 


<064> 

13850 

M=M AND 255 

< 116> 

16220 

M-PEEK(OO+X) 

<077> 

18590 

, 


<022> 

13860 

POKE 0,M AND 255 

< 11B> 

16230 

M-M+2+C 

<059> 

18600 

REM «mm* LSR ZEROPAGE, X 


<006> 

13B70 

Z— (M-0) 

<133> 

16240 

C— <M>255) 

<051 > 

18610 

GOSUB 3000 


< 038 > 

13880 

N~(M AND 1201/120 

< 058 > 

16250 

M=M AND 255 

<230> 

1B620 

M—PEEK(0+X) 


<025> 

13890 

RETURN 

<232> 

16260 

POKE OO+X,M AND 255 

< 191 > 

18630 

C-M AND 1 


<013> 

13990 

s 

<250> 

16270 

Z-—(M=0> 

<247> 

18640 

M—INT(M/2) 


<055> 

14000 

REM «** PLP 

< 020 > 

16280 

N=(M AND 128)/128 

<172> 

18650 

POKE 0+X,M 


< 16Q> 

14010 

S=(S+1> AND 255 

<130> 

16290 

RETURN 

<090> 

18660 

Z— (M-0) 


<095> 

14020 

P=ST7.(S) 

< 199> 

16390 

X 

<110> 

18670 

N=(M AND 128)/128 


<020> 

14030 

GOSUB 6000 

<054> 

16400 

REM «HH* RTI 

<013> 

18680 

RETURN 


< 194> 

14040 

RETURN 

<126> 

16410 

S=(S+1> AND 255 

<246> 

18790 



<224> 

14090 

i 

<096> 

16420 

P-ST7.(S) 

<059 > 

18B00 

REM «mm* CLI 


< 1B3> 

14100 

REM *** AND «IMMEDIATE 

<1B3> 

16430 

S=(S+1) AND 253 

<1707 

18010 

1-0 


<201 > 

14110 

GOSUB 3000 

< 112> 

16440 

<020> 

18820 

RETURN 


<080> 

14120 

A=A AND 0 

<012> 

16450 

PC=ST7.(S> 

<203> 

18890 

: 


<068> 

14130 

N=(A AND 128)/12B 

< 181 > 

16460 

S=(S+1> AND 255 

<040> 

18900 

REM «MM* EOR ABSOLUTE,Y 


<0/3 > 

14140 

Z-~ (A-0) 

< 146> 

16470 

PC=256*PC+ST7. (S) 

< 121 > 

18910 

GOSUB 4000 


<092> 

14150 

RETURN 

<238> 

16400 

RETURN 

<026> 

18920 

A-FN EO(PEEK(00+Y)) 


<121 > 

14190 

i 

< 196> 

16490 

: 

<210> 

18930 

N=(A AND 128)/128 


< 153 > 

14200 

REM «HM* ROL A 

<101> 

16500 

REM «HH* EOR (INDIRECT,X) 

<045> 

18940 

Z——(A=0) 


< 118> 

14210 

14220 

14230 

A=A*2+C 

C—(A>255> 

A-A AND 255 

<087 > 
<060> 
<002> 

16510 

16520 

GOSUB 3000 

OO-PEEK < 0+ X)+256*PEEK < 0+ 
X+l> 

<226> 

<0B0> 

18950 

19290 

19300 

RETURN 

: 

REM «mm* EOR ABSOLUTE,X 


<212> 

<216> 

<217> 

14240 

Z—-(A-0) 

<246> 

16530 

A-FN EO(PEEK(00)> 

<021 > 

19310 

GOSUB 4000 


<240> 

14250 

N-(A AND 128)/128 

<045> 

16540 

N—(A AND 128)/12B 

<049> 

19320 

A-FN EO(PEEK (OO+X )) 


<237> 

14260 

RETURN 

<092> 

16550 

Z—(A-0) 

<014> 

19330 

N—(A AND 120)/128 


<045 > 

14390 

l 

<142> 

16560 

RETURN 

< 1 06> 

19340 

Z— (A-0) 


<010> 

14400 

REM «*«** BIT ABSOLUTE 

<020> 

16890 

8 

<1007 

19350 

RETURN 


< 102> 

14410 

GOSUB 4000 

< 166> 

16900 

REM *** EOR ZEROPAGE 

<217> 

19390 

X 


<060> 

14420 

M-PEEK(00) 

<098 > 

16910 

GOSUB 3000 

<1187 

19400 

REM «hm* LSR ABSOLUTE,X 


<001 > 

14430 

N-<M AND 128)/128 

<100> 

16920 

A-FN EO(PEEK(01) 

<073> 

19410 

GOSUB 4000 


<084> 

14440 

V=(M AND 641/64 

<039> 

16930 

N=(A AND 12B1/120 

<1877 

19420 

M-PEEK(OO+X) 


<229> 

14450 

Z—< (A AND M)-0) 

<243> 

16940 

z—(A-0) 

<152> 

19430 

C-M AND 1 


<051 > 

14460 

RETURN 

<030> 

16950 

RETURN 

<244 7 

19440 

M—INT(M/2) 


<093> 

14490 

n 

<242> 

16990 

I 

<202> 

19450 

POKE DO+X,M 


<042> 

14500 

REM «»«*«* AND ABSOLUTE 

< 171 > 

17000 

REM «MH* LSR ZERÜPAGE 

< 001 > 

19460 

z—(M-0) 


< 135> 

14510 

GOSUB 4000 

<0ia> 

17010 

GOSUB 3000 

<218> 

19470 

N-(M AND 128)/128 


<060> 

14520 

A-A AND PEEK(00) 

<032 > 

17020 

M-PEEK <01 

< 098 > 

19480 

RETURN 


<234> 

14530 

N-(A AND 128)/128 

<071 > 

17030 

C-M AND 1 

< 193> 

19590 

8 


<006 > 

14540 

Z— (A-0) 

<036> 

17040 

M—INT(M/2) 

<235> 

19600 

REM «HM* RTS 


<175> 

14550 

14590 

RETURN 

< 128> 
<0B6> 

17050 

17060 

POKE 0,M 

Z— - (M*0) 

<097 > 
<019> 

19610 

S-(S+1) AND 235aHI-8T%(S 
) 

<147> 

14600 

14610 

REM «HM* ROL ABSOLUTE 
GOSUB 4000 

<221 > 

< 112> 

17070 

17000 

N—(M AND 128)/128 

RETURN 

<200> 

< 118> 

19620 

8— ( S+1 ) AND 253 1 L0-ST7. (S 
) 

< 161 > 

14620 

M-PEEK(00) 

<044> 

17190 

i 

< 14B> 

19630 

PC-236«HI+L0 


<221 > 

14630 

14640 

M-M«*2+C 

C—(M>255> 

<239 > 
<231 > 

17200 

17210 

REM *** PHA 

BT7(S)-As B-(8-1) AND 255 

< 165> 
<200> 

19640 

REM PC-PC+1 GESCHIEHT 
EI 1040 

B 

<116> 

14650 

M=M AND 255 

<154> 

17220 

RETURN 

<0047 

19650 

RETURN 


<14B> 

14660 

POKE 00,M AND 255 

< 161 > 

17290 

X 

<2487 

19690 

: 


<106> 

146/0 

Z— (M-0) 

< 171 > 

17300 

REH •*» EOR HIMMEDIATE 

<222> 

19700 

REM •«* ADC (INDIRECT, 

O 

<048> 

14680 

N=(M AND 1281/12B 

<096> 

17310 

GOSUB 3000 

<0087 

19710 

GOSUB 3000 


<122> 

14690 

14790 

RETURN 

i 

<014> 

<032> 

17320 

17330 

A-FN E0(0) 

N-(A AND 12B1/128 

<0827 

<0777 

19720 

OO-PEEK(0+X)+256*PEEK(0+ 
X+l) 

<234> 

14800 

REM «»*«* BMI 

<055 > 

17340 

Z— (A-0) 

<042> 

19730 

M-PEEK(00) 


<074 > 

14810 

GOSUB 3000 

<048> 

17350 

RETURN 

< 134 > 

19740 

GOSUB 8000 


< 194 > 

14020 

1F N’l THEN GOSUB 7000 

<206> 

17390 

X 

<0927 

19750 

RETURN 


<2S0> 

14830 

RETURN 

< 154 > 

17400 

REM *** LSR A 

<132> 

20090 

| 


< 254 > 

14090 

: 

< 134> 

17410 

C-A AND l 

< 129> 

20100 

REM «mm* ADC ZEROPAGE 


<220> 

14900 

REM «HM* AND (INDIRECT),Y 

<232> 

17420 

A—INT(A/2) 

<056> 

20110 

GOSUB 3000 


<014> 

14910 

14920 

GOSUB 3000 

OO-PEEK(O)+256«*PEEK <0+1) 

+Y 

<150> 

<216> 

17430 

17440 

17450 

Z—(A-0) 

N—(A AND 128)/128 

RETURN 

<134> 

<076> 

<236> 

20120 

20130 

20140 

M-PEEK(0) 

GOSUB 8000 

RETURN 


< 150> 

<074 > 

< 130> 

14930 

A=A AND PEEK(OO) 

< 190> 

17590 

a 

<038> 

20190 

8 


<098> 

14940 

N™(A AND 1281/128 

<229> 

17600 

REM *** JMP ABSOLUTE 

< 172> 

20200 

REM «*** ROR ZERÜPAGE 


<024 > 

14950 

z— (A-0) 

< 194 > 

17610 

GOSUB 4000 

<062> 

20210 

GOSUB 3000 


< 114> 

14960 

15290 

RETURN 

<030> 

<024> 

17620 

17630 

pc=oo-i 

RETURN 

<1647 

<1607 
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20220 

M-PEEK <0) 

<250> 

22680 N=(M AND 1281/128 

<222> 

26090 


<156> 

20230 

M— < 128*0 +M/2 

<254> 

22690 RETURN 


<140> 

26100 

REM *** LDA <INDIRECT,X) 

<035> 

20240 

C—(HOINT <M) ) 

<024 > 

22890 s 


<004 > 

261 10 

GOSUB 3000 

<172> 

20250 

M=M AND 255 

< 166> 

22900 REM *** STA 

(INDIRECT,Xi 

<084 > 

26120 

OO-PEEK(0+X)+256*PEEK(0+ 


20260 

PORE 0,1*1 

< 005 > 

22910 GOSUB 3000 


<020> 


X+l) 

<028> 

20270 

Z—(M-0) 

< 183> 

22920 OO-PEEK(Q+X)+256+PEEK(0+ 


26130 

A—PEEK(00) 

<076> 

20280 

N—(M AND 128)/128 

< 10B> 

X+l 1 


<130> 

26140 

NMA AND 128)/12B 

<253> 

20290 

RETURN 

<026> 

22930 POKE 00,A 


<229> 

26150 

Z-MA-0) 

<210> 

20390 

i 

<044 > 

22940 RETURN 


< 136 > 

26160 

RETURN 

<054 > 

20400 

REM *** PHP 

<076> 

23190 ! 


<050> 

26190 

a 

<002 > 

20410 

SMS+l) AND 255 

<180> 

23200 REM »«» STY 

ZEROPAGE 

< 178> 

26200 

REM *»■ LDX »IMMEDIATE 

<043> 

20420 

A-STX<8> 

< 109> 

23210 GOSUB 3000 


< 066 > 

26210 

GOSUB 3000 

<0L8> 

20430 

RETURN 

< 166> 

23220 POKE 0,Y 


<045> 

26220 

X-0 

<034 > 

20490 

l 

<146> 

23230 RETURN 


<172> 

26230 

N-(X AND 128)/12B 

<0SB> 

20500 

REM «** ADC «IMMEDIATE 

<227 > 

23290 x 


<150> 

26240 

Z—<X-0> 

<250> 

20510 

G03UB 3000 

< 162> 

23300 REM »»« STA 

ZEROPAGE 

<000> 

26250 

RETURN 

< 144> 

20520 

M-0 

< 134> 

23310 GOSUB 3000 


<16B> 

26390 

1 

<204 > 

20530 

GOSUB 8000 

<222> 

23320 POKE 0,A 


< 144 > 

26400 

REM «»* LDY ZEROPAGE 

<174> 

20540 

RETURN 

<022 > 

23330 RETURN 


<01S> 

26410 

GOSUB 3000 

<220> 

20390 

i 

<246> 

23390 i 


<2S2> 

26420 

Y-PEEK(O) 

< 148> 

20600 

REM «** ROR A 

< 157 > 

73400 REM «*# STX 

7ER0PAGE 

< 123> 

26430 

N— (Y AND 128)/128 

<036> 

20610 

A«(12B*C)+A/2 

< 1 40 > 

23410 GOSUB 3000 


<012> 

26440 

Z— (Y-0) 

<004> 

20620 

O- (AOINT(A) > 

<051 > 

23420 POKE 0,X 


<215> 

26450 

RETURN 

<090> 

20630 

A-A AND 233 

<052> 

23430 RETURN 


< 118> 

26490 

l 

<04B> 

20640 

Z— <A-0) 

<040> 

23590 : 


<19B> 

26500 

REM »* LDA ZEROPAGE 

< 004 > 

20650 

N“(A AND 128)/128 

< 095 > 

23600 REM »»* DEY 


<106> 

26510 

GOSUB 3000 

<064 > 

20660 

RETURN 

<142> 

23610 YMY-ll AND 

255 

< 103> 

26520 

A-PEEK<0> 

<152> 

20790 

i 

<192> 

23620 Z—(V-0) 


<234> 

26530 

NMA AND 1201/128 

< 133> 

20B00 

REM JMP IND1RECT 

<241 > 

23630 N-<Y AND 1281/128 

<030> 

26540 

Z—(A-0) 

<099> 

20810 

QOSUB 4000 

<216> 

23640 RETURN 


<074> 

26550 

RETURN 

<190> 

20020 

PC-PEEK (OG) +256#PEEK (00+ 


23790 I 


< 142> 

26590 

X 

<14B> 


1)-1 

<024> 

23800 REM *** TXA 


<16B> 

26600 

REM »»» LDX ZEROPAGE 

<074> 

20030 

RETURN 

<058> 

23810 A-X 


<219> 

26610 

GOSUB 3000 

< 164> 

20890 

i 

<036> 

23820 Z-MA-0) 


<174> 

26620 

X-PEEK(O) 

<088 > 

20900 

REM »«« ADC ABSOLUTE 

<215> 

23830 NMA AND 1281/128 

<229> 

26630 

N*(X AND 128)/128 

<206> 

20910 

GOSUB 4000 

<060 > 

23840 RETURN 


<122> 

26640 

Z—(X-0) 

< 142> 

20920 

M-PEEK(00) 

<248> 

23990 s 


<088> 

26650 

RETURN 

<036> 

20930 

GOSUB 8000 

<112> 

24000 REM *** STY 

ABSOLUTE 

<173> 

26790 

i 

<094 > 

20940 

RETURN 

<16B> 

24010 GOSUB 4000 


<112> 

26800 

REM *** TAY 

<004> 

20990 

: 

< 136> 

24020 POKE 00,Y 


<053> 

26810 

Y=A 

<152> 

21000 

REM ##* ROR ABSULUTE 

< 118> 

24030 RETURN 


<210> 

26B20 

Z—(Y-0) 

<130> 

21010 

GOSUB 4000 

< 162> 

24090 s 


< 190> 

26830 

N=(Y AND 128)/128 

<182> 

21020 

M-PEEKCOO) 

<094 > 

24100 REM *** STA 

ABSOLUTE 

<231 > 

26840 

RETURN 

<226> 

21030 

M=(12B*C)+M/2 

<036> 

24110 GOSUB 4000 


<214> 

26890 

3 

< 196> 

21040 

C— (MOINT(M) ) 

<062 > 

24120 POKE 00,A 


< 149> 

26900 

REM *** LDA «IMMEDIATE 

<214> 

21050 

M-M AND 255 

<204> 

24130 RETURN 


< 056 > 

26910 

GOSUB 3000 

<212> 

21060 

POKE 00,M 

< 140> 

24190 s 


<034> 

26920 

A-0 

< 136> 

21070 

Z=-(M=0) 

<221 > 

24200 REM »** STX 

ABSOLUTE 

<118> 

26930 

NMA AND 1281/128 

<025> 

21080 

NMM AND 1281/128 

<146> 

24210 GOSUB 4000 


<058> 

26940 

Z=-(A=0) 

<246> 

21090 

RETURN 

<064> 

24220 POKE 00,X 


< 191 > 

26950 

RETURN 

<082> 

21190 

2 

<082 > 

24230 RETURN 

m 

<156> 

26990 

X 

<040> 

21200 

REM »»* BVS 

<249> 

24390 i 


<236> 

27000 

REM *** TAX 

<205> 

21210 

GOSUB 3000 

<098> 

24400 REM *** BCC 


<248> 

27010 

X=A 

<094> 

21220 

IF V=1 THEN GOSUB 7000 

<064> 

24410 GOSUB 3000 


<252> 

27020 

Z—(X=0) 

<012> 

21230 

RETURN 

<2047 

24420 IF C-0 THEN 

GOSUB 7000 

<034> 

27030 

N—(X AND 128)/128 

<096> 

21290 

X 

<184> 

24430 RETURN 


<102> 

27040 

RETURN 

< 172> 

21300 

REM *** ADC ( INDIRECT),Y 

<020>' 

24490 x 


<080> 

27190 

X 

<242> 

21310 

GOSUB 3000 

< 200 > 

24500 REM *** STA 

(INDIRECT),Y 

<054 > 

27200 

REM *** LDY ABSOLUTE 

< 126> 

21320 

00=PEEK(0)+256«PEEK(0+11 


24510 GOSUB 3000 


<096> 

27210 

GOSUB 4000 

<0i0> 


+Y 

<010> 

24520 OO-PEEK(0)+256#PEEK(0+1 ) 


27220 

Y=PEEK(00) 

<246> 

21330 

M=PEEK(00) 

<150> 

+Y 


< 162> 

27230 

N=(Y AND 1281/128 

<074> 

21340 

GOSUB 8000 

<014> 

24530 POKE 00,A 


<049> 

27240 

Z— (Y-0) 

<042> 

21350 

RETURN 

<070> 

24540 RETURN 


<212> 

27250 

RETURN 

<128> 

21690 

■ 

<074 > 

24790 8 


< 126> 

27290 

X 

<086> 

21700 

REM *** ADC ZEROPAGE,X 

<225> 

24000 REM »«» STY 

ZEROPAGE,X 

< 183> 

27300 

REM »*» LDA ABSOLUTE 

<202> 

21710 

GOSUB 3000 

< 090 > 

24B10 GOSUB 3000 


< 142> 

27310 

GOSUB 4000 

<110> 

21720 

M-PEEK(0+X) 

<077> 

24820 POKE 0+X,Y 


<248 > 

27320 

A-PEEK(001 

<2S0> 

21730 

GOSUB 8000 

<150> 

24030 RETURN 


<248> 

27330 

N*(A AND 1281/128 

< 171 > 

21740 

RETURN 

<206> 

24890 ! 


<228> 

27340 

Z— <A=0) 

< 136> 

21790 

1 

<176> 

24900 REM **» STA 

ZEROPAGE,X 

<005> 

27350 

RETURN 

<22B> 

21800 

REM *** ROR ZERQPAGE,X 

<031 > 

24910 GOSUB 3000 


<244> 

27390 

1 

< 106 > 

21810 

GOSUB 3000 

<192> 

24920 POKE 0+X , A 


<002 > 

27400 

REM *** LDX ABSOLUTE 

<071 > 

2LB20 

h=PEEK(0+X ) 

< 179> 

24930 RETURN 


<094 > 

27410 

GOSUB 4000 

<212> 

21830 

M-(12B*C>+M/2 

<074 > 

24990 l 


<072> 

27420 

X-PEEK(QO) 

<1B8> 

21840 

C— (MOINT(M) 1 

<100> 

25000 REM *** STX 

ZEROPAGE,Y 

< 132> 

27430 

N“(X AND 1281/12B 

<244> 

21850 

M-M AND 233 

<242> 

25010 GOSUB 3000 


<088 > 

27440 

Z—(X-0) 

<1B0> 

21860 

POKE 0+X,M 

<076> 

25020 POKE 0+Y,X 


<098 > 

27430 

RETURN 

<074> 

21870 

Z— (M-0) 

<003> 

25030 RETURN 


< 194 > 

27390 

t 

<132> 

21860 

N-(M AND 120)/128 

< 184 > 

25190 l 


<01B> 

27600 

REM *** CLV 

< 104 > 

21090 

RETURN 

<102> 

25200 REM *** TYA 


< 172> 

27610 

V-0 

<161 > 

21990 

1 

<120> 

23210 A-Y 


< 109 > 

27620 

RETURN 

<244 > 

22000 

REM «*» SEI 

<207> 

23220 Z— (A-0) 


<048> 

27690 

l 

<234> 

22010 

1-1 

< 113> 

25230 N-(A AND 1281/128 

<103> 

27700 

REM *»* LDA < INDIRECT),Y 

<007 > 

22020 

RETURN 

<234> 

25240 RETURN 


<150> 

27710 GOSUB 3000 

<2501> 

22090 

| 

<222 > 

25290 8 


<11B> 

27720 

OO-PEEK(0)+256*PEEK(0+1 ) 


22100 

REM »*» ADC ABSOLUTE,Y 

<07B> 

25300 REM *»« STA 

ABSOLUTE,Y 

< 112> 


+Y 

<060 > 

22110 

GOSUB 4000 

<246> 

25310 GOSUB 4000 


< 142> 

27730 

A-PEEK(00) 

<152> 

22120 

M-PEEK(OO+Y) 

<137> 

25320 POKE OO+Y,A 


< 122> 

27740 

NMA AND 1201/128 

<073> 

22130 

GOSUB 8000 

<042> 

25330 RETURN 


<240> 

27750 

Z—(A-0) 

<030> 

22140 

RETURN 

<09B> 

25390 1 


<220> 

27760 

RETURN 

<130> 

22490 

2 

<112) 

25400 REM *•* TXS 


<008 > 

27990 

a 

<024 > 

22300 

REM *** ADC ABSOLUTE,X 

<220 > 

25410 S-X 


<111> 

28000 

REM *** LDY ZEROPAGE,X 

<136> 

22510 

GOSUB 4000 

<136> 

25420 RETURN 


<076> 

28010 

GOSUB 3000 

<040> 

22520 

M-PEEK(00+X) 

<025 > 

25690 : 


<010> 

2B020 

Y-PEEK(O+Xl 

<075> 

22530 

GOSUB 6000 

<190> 

23700 REM *** STA 

ABSOLUTE,X 

<0007 

28030 

N-(Y AND 128)/128 

<112> 

22540 

RETURN 

< 246 > 

25710 GOSUB 4000 


<0347 

28040 

Z—(Y-0) 

<0Ü0> 

22390 

: 

<214 > 

25720 POKE QQ+X,A 


<206> 

28050 

RETURN 

<166> 

22600 

REM *** ROR ABSOLUTE,X 

<026> 

25730 RETURN 


< 132> 

28090 

a 

< 124> 

22610 

GUSUB 4000 

<238> 

25990 s 


<056 > 

28100 

REM *+* LDA ZEROPABE,X 

<212> 

22620 

M-PEEK<00+X) 

<127> 

26000 REM *** LDY 

»IMMEDIATE 

<098> 

20110 

GOSUB 3000 

<140> 

22630 

MM 128*0+M/2 

<112) 

26010 GOSUB 3000 


<072> 

26120 

A-PEEK (0+X) 

<079> 

22640 

C— (MOINT(M) ) 

< 13B> 

26020 Y-0 


<092> 

28130 

N=(A AND 128)/12B 

<209> 

22650 

M-M AND 255 

<024> 

26030 N=(Y AND 128)/128 

<1447 

28140 

Z— (A-0) 

<174> 

22660 

POKE OO+X.M AND 255 

<241 > 

26040 Z— <Y=0> 


<112> 

28150 

RETURN 

<010> 

22670 

Z— <M=0) 

<041 > 

26050 RETURN 


<198> 

28190 


<226> 
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20200 REM »»* LDX ZEROPAGE,X 

<081> 

30450 Z=—((Y—M)-0) 

<247> 

33050 Z—(M=0> 

<008> 

28210 GOSUB 3000 

<242> 

30460 RETURN 

<034> 

33060 N=(M AND 1281/128 

< 189> 

28220 X=PEEK <Q+Y) 

< 018 > 

30490 x 

< 240 > 

33070 RETURN 

< 107> 

2B230 N»(X AND 128)/128 

<026> 

30500 REM *** CMP ABSOLUTE 

<1B0> 

33190 s 

< 145 > 

28240 Z—<X»0) 

<218> 

30510 GOSUB 4000 

<008> 

33200 REM **» INX 

<250> 

28250 RETURN 

< 112> 

30520 M-PEEK(OO) 

<196> 

33210 X-(X+1> AND 255 

<206> 

28390 i 

<170> 

30530 QOSUB 8400 

< 124 > 

33220 Z— (X-0) 

<117> 

20400 REM *** CLV 

<142> 

30540 RETURN 

<11&> 

33230 N-<X AND 12B)/128 

<201 > 

28410 V B 0 

<199> 

30590 i 

<084 > 

33240 RETURN 

<021 > 

20420 RETURN 

<028 > 

30600 REM *** DEC ABSOLUTE 

<072> 

33290 ! 

<247) 

28490 s 

<016> 

30610 GOSUB 4000 

< 108 > 

33300 REM *## SBC »IMMEDIATE 

<203> 

20S00 REM •*» LDA ABSOLUTE,Y 

<065> 

30620 M-PEEK(00) 

<040> 

33310 GOSUB 3000 

<007> 

28510 QOSUB 4000 

<040> 

30630 M-(M-l) AND 255 

<087> 

33320 M-0 

<235> 

20520 A«PEEK(00+V> 

<139> 

30640 POKE 00,M 

<066> 

33330 GOSUB 8200 

<099) 

28530 N-(A AND 1281/128 

<101> 

30650 Z— (M-0) 

< 147) 

33340 RETURN 

<123> 

2BS40 Z—(A-0) 

<066> 

30660 N-(M AND 120)/128 

<072> 

33390 l 

<091 > 

28550 RETURN 

< 158> 

30670 RETURN 

<246> 

33400 REM »*# NOP 

<123> 

28590 : 

< 116 > 

30790 » 

<030 > 

33460 RETURN 

<243) 

2B600 REM «»* TSX 

<034 > 

30800 REM *** BNE 

< 178> 

33390 l 

<037 > 

28610 X-S 

<203> 

30810 GOSUB 3000 

<046 > 

33600 REM »*• CPX ABSOLUTE 

<115) 

28620 Z— <X-0> 

<0B8> 

30820 1F Z-0 THEN QOSUB 7000 

<012> 

33610 GOSUB 4000 

<061 > 

28630 N-(X AND 128)/12B 

<172> 

30B30 RETURN 

<152) 

33620 M-PEEK(00) 

<249) 

28640 RETURN 

<248> 

30890 3 

< 130> 

33630 C=-((X-M)>=0> 

<237> 

28790 : 

<062> 

30900 REM *** CMP (INDIRECT),Y 

<239> 

33640 M-((X-M> AND 1281/128 

<080) 

28800 REM *** LDY ABSOLUTE,X 

< 131 > 

30910 GOSUB 3000 

< 146> 

33650 Z—( (X-M) >-0> 

<093> 

28810 QOSUB 4000 

<086> 

30920 00-PEEK(0)+256*PEEK(0+l) 


33660 RETURN 

< 1B9> 

2BB20 Y-PEEKIOO+X) 

<023> 

+Y 

<212> 

33690 i 

<137> 

28830 N-(Y AND 128)/128 

<150> 

30930 M-PEEK(OO) 

<096> 

33700 REM *** SBC ABSOLUTE 

< 191 > 

28840 Z—(Y-0) 

< 11B> 

30940 GOSUB8400 

<024> 

33710 GOSUB 4000 

< 161 > 

28850 RETURN 

<204 > 

30950 RETURN 

<016> 

33720 M-PEEK(OO) 

<093> 

28890 i 

< 162> 

31290 s 

<022> 

33730 GOSUB B200 

<245) 

28900 REM ««« LDA ABSOLUTE,X 

<207> 

31300 REM *»* CMP ZEROPAGE,X 

< 190> 

33740 RETURN 

<013> 

28910 QOSUB 4000 

< 186 > 

31310 GOSUB 3000 

<038> 

33790 t 

<237 > 

28920 A=PEEK(QO*X) 

<027> 

31320 M-PEEK(0+X) 

<023> 

33B00 REM *•»* INC ABSOLUTE 

<169) 

28930 N=(A AND 12B)/12B 

<249> 

31330 QOSUB 8400 

<162> 

33810 GOSUB 4000 

<007) 

28940 Z—(A-0) 

<214> 

31340 RETURN 

<154> 

33B20 M-PEEK(00) 

< 195> 

28950 RETURN 

<050> 

31390 i 

<122> 

33830 M=(M+1) AND 255 

< 178) 

28990 t 

<008 > 

31400 REM •** DEC ZEROPAGE,X 

<0B2> 

33840 POKE 00,M 

<221 > 

29000 REM *#* LDX ABSOLUTE,Y 

< 080 > 

31410 GOSUB 3000 

< 138> 

33850 Z—(M-0) 

<046> 

29010 QOSUB 4000 

<032> 

31420 M-PEEK<0+X) 

<125> 

33860 N—(M AND 128)/128 

<227) 

29020 X-PEEK(OD-)Y) 

<223> 

31430 M=(M—1) AND 255 

<125> 

33870 RETURN 

<145> 

29030 N=(X AND 128)/128 

< 064 > 

31440 POKE 0+X,M 

<002> 

33990 x 

< 1B3> 

29040 Z— <X=0) 

< 000 > 

31450 l=~ (M-0) 

<185> 

34000 REM *«* BEQ 

<210> 

29050 RETURN 

<150> 

31460 N=(M AND 128)/128 

<iiB> 

34010 GOSUB 3000 

< 199> 

29190 s 

<210> 

31470 RETURN 

<02B> 

34020 IF Z-l THEN GOSUB 7000 

< 197> 

29200 REM *** CPY »IMMED1ATE 

< 191 > 

31590 t 

<068> 

34030 RETURN 

<049> 

29210 GOSUB 3000 

< 226> 

31600 REM *** CLD 

<022> 

34090 b 

<029> 

29220 C=-((Y-O)>=0) 

<020> 

31610 D-0 

<025 > 

34100 REM *#* SBC (INDIRECT),Y 

<252> 

29230 N=(( Y—Q) AND 128)/128 

<057> 

31620 RETURN 

<1B0> 

34110 GOSUB 3000 

<045) 

29240 Z=-<(Y-O)=0) 

29250 RETURN 

<057> 

<096 > 

31700 REM *** CMP ABSOLUTT ' 

<16Q> 
<041 > 

34120 OQ-PEEK(0)+256*PEEK(0+1) 
+Y 

<111> 

29290 C 

<054> 

31710 QOSUB 4000 

<192> 

34130 M-PEEK(00) 

<251> 

29300 REM *#» CMP <INDIRECT,X) 

<013> 

31720 M—PEEK(00+ Y) 

<0B3> 

34140 GOSUB 8200 

<147) 

29310 GOSUB 3000 

<070> 

31730 GOSUB 8400 

<052> 

34150 RETURN 

< 171 > 

29320 00=PEEK(0+ X)+256*PEEK(0+ 


31740 RETURN 

<044> 

34490 : 

<175> 

X+l) 

< 180 > 

32090 s 

<060> 

34500 REM *** SBC ZEROPAGE,X 

<201 > 

29330 M=PEEK(00) 

<020> 

32100 REM *#* CMP ABSOLUTE,X 

<185> 

34510 QOSUB 3000 

< 191 > 

29340 GOSUB 8400 

< 204 > 

32110 GOSUB 4000 

<004> 

34520 M-PEEK(O+X) 

< 178> 

29350 RETURN 

<196> 

32120 M-PEEK(00+X) 

<229> 

34S30 GOSUB 8200 

<027> 

29590 : 

<100> 

32130 GOSUB 8400 

<200> 

34540 RETURN 

<051 > 

29600 REM *** CPY ZERQPAGE 

<222> 

32140 RETURN 

<192> 

34590 s 

<021 > 

29610 GOSUB 3000 

< 116> 

32190 i 

<160> 

34600 REM **+ INC ZERQPAGE,X 

< 179> 

29620 M-PEEK(O) 

<252> 

32200 REM *** DEC ABSOLUTE,X 

<077> 

34610 GOSUB 3000 

<037> 

29630 C—( (Y-M) >-0> 

<172> 

32210 GOSUB 4000 

< 184> 

34620 M-PEEK(O+X) 

<024> 

29640 N—((Y—M) AND 128)/128 

<211 > 

32220 M-PEEK(00+X) 

<073> 

34630 M—(M+1) AND 255 

<2i6> 

29650 Z—-((Y-M)=0) 

< 209 > 

32230 M-(M-l) AND 255 

<163> 

34640 POKE O+X.M 

< 157 > 

29690 i 

<200> 

32240 POKE QO+X,M 

<132> 

34650 Z— (M-0) 

<084 > 

29700 REM *** CMP ZEROPAGE 

<185> 

32250 Z«-(M-0) 

<223> 

34660 N=(M AND 1281/128 

<009> 

29710 GOSUB 3000 

<21B> 

32260 N—(M AND 128)/128 

<150> 

34670 RETURN 

<183> 

29720 M-PEEK(0) 

<098> 

32270 RETURN 

<068) 

34790 a 

<221 > 

29730 GOSUB 8400 

<086> 

32390 l 

<106> 

34800 REM **» SED 

<047 > 

29740 RETURN 

<07B> 

32400 REM *** CPX «IMMEDIATE 

<0B6> 

34810 D—1 

< 194 > 

29790 i 

<046> 

32410 GOSUB 3000 

< 122> 

34820 REIURN 

<079> 

29800 REM *«» DEC ZEROPAGE 

<077> 

32420 C— ( (X-0) >=0) 

<044 > 

34890 i 

<067 > 

29810 GOSUB 3000 

<062 > 

32430 N-<(X—0) AND 128)/12B 

< 145 > 

34900 REM *** SBC ABSOLUTE,Y 

<054 > 

29820 M-PEEK(0) 

<19B> 

32440 Z— <(X-O>-0) 

<081 > 

34910 GOSUB 4000 

<091) 

29830 M-(M-l) AND 255 

<049 > 

32450 RETURN 

<24B> 

34920 M-PEEK(00+Y) 

<23B> 

29840 POKE 0,M 

< 107 > 

32490 i 

<206> 

34930 GOSUB 8200 

< 175 > 

29850 Z—(M-0) 

< 109> 

32500 REM **# SBC (INDIRECT.X) 

<023> 

34940 RETURN 

< 199> 

29860 N-(M AND 128)/128 

<034 > 

32510 GOSUB 3000 

<222 > 

33290 i 

<213> 

29870 RETURN 

<208 > 

32520 OQ-PEEK(Q+X)+256*PEEK(0+ 


35300 REM «*» SBC ABSOLUTE, X 

< 196 > 

29990 » 

<24B> 

X + l) 

<07B> 

35310 GOSUB 4000 

<237 > 

30000 REM #** INY 

<098> 

32530 M-PEEK(00) 

<174> 

33320 M-PEEK(00+X) 

<126> 

30010 Y-(Y+1> AND 255 

<089 > 

32540 GOSUB 8200 

<070> 

35330 GOSUB 8200 

<067 > 

30020 Z— (Y-0) 

<02B> 

32550 RETURN 

<094) 

35340 RETURN 

<091> 

30030 N“<Y AND 120)7128 

<0O0> 

32790 b 

<255) 

35390 : 

<059> 

30040 RETURN 

< 124> 

32800 REM *«« CPX ZEROPAGE 

<041) 

35400 REM *** INC ABSOLUTE, X 

<174) 

30090 i 

<092 > 

32B10 GOSUB 7.000 

<015) 

35410 GOSUB 4000 

<083> 

30100 REM *#* CMP 4IMMEDIATE 

< 190> 

32Q20 M-PEEK(0) 

< 151 > 

35420 M-PEEK(00+X) 

<22B> 

30110 QOSUB 3000 

<10B> 

32830 C— ( (X-M) >-0) 

<199> 

35430 M-(M+l) AND 255 

<254 > 

30120 M-0 

<000 > 

32840 N-KC-M) AND 1281/128 

<232> 

35440 POKE OO+X,M 

<031) 

30130 QOSUB 8400 

<232> 

32850 Z—( (X-MJ-0) 

<236> 

35450 Z—(M-0) 

< 122> 

30140 RETURN 

<224> 

32860 RETURN 

< 151 > 

35460 N—(M AND 128)/128 

<047 > 

30190 s 

<192> 

32890 : 

<099) 

35470 RETURN 

<221) 

30200 REM ««» DEX 

<099) 

32900 REM *»« SBC ZEROPAGE 

<196) 

35500 i 

< 169> 

30210 X«(X-1> AND 255 

<063> 

32910 QOSUB 3000 

< 115> 

49000 FnR HH-3476B TO 347838 RE 


30220 Z— (X-0) 

< 166> 

32920 M-PEEK(0) 

<251) 

AD HiPOKE HH.HtNEXT:RETU 

30230 N—(X AND 128)/128 

<250> 

32930 GOSUB 8200 

<207) 

RN 

<055> 

30240 RETURN 

< 147> 

32940 RETURN 

<231 > 

50000 DATA 9,240,0,8,89,8,8,8, 


30390 t 

< 138> 

32990 s 

<199> 

B,8,B,8,B,0,0,0 

< 123> 

30400 REM #** CPY ABSOLUTE 

<217> 

33000 REM *** INC ZEROPAGE 

<172) 



30410 GOSUB 4000 

< 162> 

33010 GOSUB 3000 

<215> 

READY. 


30420 M—PEEK(00) 

<094> 

<210> 

<249> 

33020 M=PEEK(0) 

33030 M-(M+1> AND 255 

<095> 

< 140 > 

Listing »Demo 6502« (Schluß) 


30440 N=((Y-M) AND 12B)/12B 

33040 POKE Q,M 

<086> 
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Der Kampf ums Überleben 


Sie haben den Auftrag, mit Ihrem Kampfhub¬ 
schrauber »HUEY«, ihren Vorposten Material 
zukommen zu lassen. Der Kampf ums Überleben 
beginnt gleich nach dem Start, denn bedenken 
Sie, »der Feind schläft nie«. 

Sie sind Pilot eines Kampfhubschraubers und haben die 
Aufgabe, ein entferntes Ziel zu erreichen, um einen Ihrer 
Stützpunkte mit Vorräten zu versorgen. Ihr Weg geht mitten 
durch feindliches Gebiet; Flugzeuge, Hubschrauber und 
Boden-Luft-Raketen versuchen, Sie abzuschießen. 

Zu Ihrer Verteidigung haben Sie Granatenwerfer und Wär¬ 
meraketen zur Verfügung. 

Sind Sie trotz aller Behinderungen glücklich an das Ziel 
gelangt, so erhalten Sie je nach Abschußquote eine Aus¬ 
zeichnung. 

Starten des Programms 

Nach dem Eintippen und Speichern starten Sie das Pro¬ 
gramm mit »Run«. 

Das Titelbild erscheint, und Sie werden nach ihrem Namen 
gefragt, der bis zu acht Zeichen lang sein darf. 

Haben Sie diesen eingegeben, so werden Sie noch nach 
dem Schwierigkeitsgrad gefragt; hier geben Sie als »Neuling« 
am besten »1« ein. Jetzt erscheint Ihr Hubschraubercockpit. 
Der Hubschrauber steht auf der Erde, mit laufendem Motor. 
Beschreibung der Instrumente 

Oben links sehen Sie die fünf Leuchtanzeigen, die digital 
die Umdrehungen des Motors anzeigen. Die erste von links 
leuchtet; dies ist das Zeichen für »Motor eingeschaltet«. 
Rechts daneben ist die Statusanzeige für die vier Raketen¬ 
rohre zu sehen (vier Leuchten, alle weiß). 

Ganz rechts oben sind dann noch sechs System- 
Kontrolleuchten zu sehen (von links): System ein, Fuel, Gra¬ 
naten, Raketen, Rotor und Motor. Grün oder weiß bedeutet 
immer »OK«, rot bedeutet »Fehler«. 

Weiter unten sehen Sie dann die Anzeige für den Granaten¬ 
vorrat (»AMM.«) und für Raketen (»ROC.«). 

Daneben die Geschwindigkeitsanzeige (»SPD.«), Höhen¬ 
anzeige (»ALT.«), darunter die (analoge) Anzeige der Motor¬ 
umdrehungen pro Minute (»RPM.«), der Rotorumdrehungen 
pro Minute (»ROT.«) und die Kilometer-Anzeige (»KM«), die 
Ihnen die zurückgelegte Strecke anzeigt. Rechts dann noch 
die Punktestand-Anzeige (»SCORE«) und in der Mittelkon¬ 
sole der Kompaß (»POS.«) und die Treibstoffanzeige 
(»FUEL«). 


hierzu so lange auf < RETURN >, bis die Systemkontrolle 
(oben rechts) für den Rotor grün zeigt. Der Rotor beginnt sich 
nun zu drehen (Schauen Sie auf die Anzeige für den Rotor 
[»ROT.«]). 

Warten Sie, bis der Rotor 1/10 der Motorumdrehungen 
erreicht hat (die Anzeige für den Rotor steigt nicht mehr), 
dann steigern Sie die Umdrehungszahl des Motors bis auf 
mehr als 2000 rpm (Joystick links + Feuer) und warten wie¬ 
der, bis die Rotordrehzahl gleich der Motordrehzahl ist. Bevor 
Sie jetzt abheben, sollten Sie die Raketenrohre laden (1 bis 
4 drücken, die Anzeigen oben in der Mitte müssen rot leuch¬ 
ten), da, sobald Sie abheben, die Feinde kommen. 


Die Feinde und ihre Bekämpfung 


Die Steuerung des Hubschraubers 

Gesteuert wird der Hubschrauber über einen Joystick in Port 
1 und die Tastatur. 

»Joystickbewegungen«: 

Joystick links - Linkskurve des Hubschraubers 

Joystick rechts - Rechtskurve des Hubschraubers 

Joystick oben - Erhöhen der Fluggeschwindigkeit 

Joystick unten - Vermindern der Fluggeschwindigkeit 

Joystick links + Feuer - Erhöhen der Motordrohzahl 
Joystick rechts + Feuer - Vermindern der Motordrehzahl 
Joystick oben + Feuer - Vermindern der Flughöhe 
Joystick unten + Feuer - Erhöhen der Flughöhe 

Feuer - Abschuß einer Granate 

»Tastatur:« 1,2,3,4 - Rakete in entsprechendes Rohr laden 

[Space] - Abschuß einer Rakete 

[Return] - Rotor einkuppeln 

F - Tank, Granaten und Raketen auttüllen 

(nur bei Höhe 0) 

Der Start des Hubschraubers 

Zunächst müssen Sie den Rotor einkuppeln. Drücken Sie 


Hubschrauber werden am besten mit Granaten abgeschos¬ 
sen (Feuer drücken). Achtung: Nicht jede Granate trifft, daher 
muß man mehrmals auf einen Hubschrauber schießen; falls 
die fünfte Granate nicht trifft, sollte man lieber eine Rakete 
abschießen! Ein Hubschrauber bringt 50 Punkte. Flugzeuge 
können nur mit Raketen abgeschossen werden und bringen 
je 150 Punkte. 

Raketen treten nur unter einer bestimmten, vom Level 
abhängigen Höhe auf (Level 1 = 2000 m, Level 2 = 4000 
m etc.). Sie müssen ebenfalls mit Raketen abgeschossen 
werden und bringen 200 Punkte. 

Fliegen des Hubschraubers 

Zürn 'oheben drücken Sie Feuer und ziehen gleichzeitig 
den Joystick nach unten. Schauen Sie kurz auf die Höhen¬ 
anzeige (»ALT.«), die ansteigt und gehen Sie auf etwa 1000 
Fuß. Nun warten Sie, bis in Ihrem Sichtfeld ein Feind (als 
Punkt sichtbar) erscheint. Versuchen sie nun, den Feind 
durch Steigern der Höhe knapp über den Horizont zu bringen 
und durch Steuern links und rechts über den Pfeil (»t«) auf 
dem Cockpit. Inzwischen dürfte der Feind so groß geworden 
sein, daß Sie erkennen, welche Art Sie vor sich haben. Wenn 
es kein Hubschrauber ist, feuern Sie eine Rakete ab, anson¬ 
sten drücken Sie mehrmals Feuer (Sie müssen den Hub¬ 
schrauber so nah wie möglich herankommen lassen, sonst 
können Sie ihn nicht abschiessen). 

Wenn dann gerade kein Feind in Sicht ist, können Sie los¬ 
fliegen (Joystick nach oben drücken). Der Hubschrauber 
neigt sich nach vorne, die Geschwindigkeitsanzeige steigt, 
die Kilometer-Anzeige beginnt zu laufen. 

Nach einer bestimmten Strecke (Level 1: 400 km, Level 
2: 800 km) haben Sie es geschafft und werden bei entspre¬ 
chendem Spielstand in die Hl-Score-Tabelle eingetragen. 
Hinweis 

Falls Sie keine Raketen/Granaten und/oder Mangel an 
Treibstoff haben (rote Leuchten in der Systemkontrolle), so 
kann der Hubschrauber nach dem Landen wieder aufgefüllt 
werden (F). Beachten Sie bitte, daß die Geschwindigkeit des 
Hubschraubers kleiner als 20 Meilen sein muß! 

Die Positionsanzeige (»POS.«) gibt die Position des Hub¬ 
schraubers in Grad an. Null Grad ist die Ideallinie; falls Sie 
unter einem Winkel fliegen, kommen Sie langsamer voran 
oder fliegen gar zurück (km-Anzeige.). 

Bei manchen Joysticks (wie zum Beispiel Quickshot II) kön¬ 
nen Störungen auftreten! 

Technische Daten des Hubschraubers 

Geschwindigkeit: 260 Meilen/h (= 433 km/h) 

Gipfelhöhe: 20000 Fuß (= 7,6 km) 

Die geringe Gipfelhöhe erklärt sich durch die starke Bewaff¬ 
nung! (D. Kuhlmann/do) 
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10 REM ************* 

EN>!!!CORANGEJ•CREDJ!<BLACK>sCWHITE>R!!!•CBLACK> = { 

20 REM * HUEY C-16 * 

WHITE1C!!!!!![BLACK,RVSON >GC2SPACE,RVOFF >£" 

30 REM * 1986 BY * 

860 PRINTTAB (7) “¥IRVSON,2SPACE) 

40 REM *D. KUHLMANN* 

8 C2SPACE,RVOFF1 

60 REM ************* 

870 F0RI-1T08 

80 P0KE55,255:PQKE56,55:CLR 

880 PRINTTAB<8-1)"CRVSON>£CRVOFF>£"SPC(20+1*2)"»CR 

100 REM ***** VARIABLEN ***** 

VSON>»CRVOFF>" 

110 N*(1)°"ppppppP.W-K.KAK.K.W.»«>. j.LEJüLfc^YWvVYY’’ 

890 NEXT 

120 N* (2) - ■" 

900 PRINT"CRVS0N,5SPACE1«CRV0FF1"SPC<28)"{RVSON }£.C 


5SPACE>" 


910 PRINT"CRVSON,10SPACE >® CRVOFF J"SPC <18)"CRVSON >& 

150 N*(5) ="YVVVVWUJ3JJjLjtj&jt***M'frfrrf.VrtrtritVif“ 

C10SPACE1" 


920 PRINT"CRVSON >AMM. 000C2SPACE,2SHFT-SPCE,6SPAC 

E>tCI4SPACE>00000 “ 

Iota n* V 1 / s 1 n* V Zi LHr IH 1 W 

170 R« (3) - "LIEUTNANT" s R* <4) COMMANDER" 

180 R*(5)-"GENERAL":R*( 6 )-“CRVSON >RAMBO " 

930 PRINT"CRVSON >ROC. C2SPACE>00 SPD C3SPACE>000 C2S 

190 V—65280:AL-0:RO-0: RF-0:SP-0:RF-0 

PACE>ALT 00000 C4SPACE >SCORE “ 

200 A=0:KO-0:P=0s KM-0:AA-200:RA-10 

940 PRINT"CRVSON,10SPACE>RPMC2SPACE>0000C2SPACEJR0 

210 RP—800 e FU—7000: N—3: X1 -0: Y1 —0: XA-0 

T C3SPACE>000 C10SPACE >" 

220 YA=0!FL-0:G-0:AM-AA:RC-RA:RO-0 

950 PRINT"CRVSON,10SPACE >KMC3SPACE>0000 C21SPACE >" 

230 R ( 1) =0: R (2) =0: R <3> =0: R (4) =0: SC-0 

960 PRINTTAB(6)"¥{RVS0N,26SPACE,RV0FF>£" 

240 E-0 

970 PRINTTAB<10)"»CRVSON,5SPACEIP0S.C3SPACE>0C5SPA 

250 REM ***** TITEL ***** 

CE,RVOFF>i" 

260 S*-"":P0KEV+18,196:POKEV+19,20B 

9B0 PR INTT AB < 13) " ¥ CR VSON, 12SP ACE, RVQFF > f," 

270 COLOR0,1:C0L0R4,1:COLOR1,2:SCNCLR 

990 PRINTTAB(14)"CRVSON,4SPACE1FUELC4SPACE,RVOFF>" 

280 CHAR1,1,2,"KS—SOFTWARE SCHWEINFURT PRAESENTIER 

1000 PRINTTAB(14)"CRVSON,3SPACE,RVOFF,RED}•CGREEN} 

T i” 

!!!!!CBLACK,RVSON,3SPACE.RVOFF>" 

290 CHAR1 ,2,5, "T TC2SPACE>T TC2SPACE>Tm2SPACE>T 

1010 PRINTTAB(14)"CRVSON,12SPACE,RVOFF>" 

Tt3SPACE}TTT<6SPACE}T TTT“ 

1020 PRINTTAB(14)"CRVSON,12SPACE,RVOFF>" 

300 CHAR1,2, 6 , "T TC2SPACEJT TC2SPACEJTC4SPACEIT TC 

1030 PRINTTAB <13)"CRVSON >£C12SPACE >»CRVOFF,HOME >" 

3SPACE >TC 8 SPACE >T T" 

1040 PQKEV+6,16 

310 CHARl,2,7,“TiTC2SPACE>T TC2SPACE>TTC3SPACE>TTT 

1050 REM AKTUELLE WERTE PRINTEN 

C3SPACE>TC3SPACE,SHFT—SPCE1TTC2SPACE>T TTT" 

1060 CHAR1,6,13,"CBLACK,RVSON>“:PRINTUSING:AM 

320 CHAR1,2,8,"T TC2SPACE1T TC2SPACE>TC5SPACE>T{4S 

1070 CHAR1,7,14,"CBLACK,RVSON>":PRINTUSING"##" 5 RC 

PACE>TCSSPACE>T T T" 

1080 CHAR1,15,15,"CBLACK,RVSON >“:PRINTUSING"**##“| 

330 CHAR1,2,9, "T TC2SPACE >TTT C2SPACE17TTC3SPACE >TI 

RP 

4SPACE JTTT C 6 SPACE >T TTT" 

1090 CHAR1,34,13,"CBLACK,RVSON>":PRINTUSING"««*#*" 

340 CHAR1,4,13,"WRITTEN 1986 BY D. KUHLMANN (C)" 

:SC 

350 CHAR1,0,18,"BITTE BEBEN SIE IHREN NAMEN EIN:“ 

1100 CHAR1,27,15,"CBLACK,RVSON >":PRINTUSING "###"5 R 

360 GETKEYAS:A-ASC <A*):IFA=13GOTO440 

0 

370 L-LENCS*):IFL>7GOTO440 

1110 COLOR1,6,5:CHAR1,11,1,"!":CHAR1,29,1,“*" 

380 IFA—20GOTO410 

1120 CHAR1,24,1,“!" 

390 IFA< 32QRA >909OTO360 

1130 IFRF—1THENCHAR1,28,1,"!" 

400 PRINTA*;:S*=S*+A*:GOTO360 

1140 K'r M ***** HAUPTPROGRAMM ***** 

410 IFL<1THEN360 

1150 : 

420 S*=LEFT*(S*,L-1):PRINT"CLEFT,SPACE,LEFT >";:BOT 

1160 SOUND1,0,0:S0UND2,0,0:Z-RP/30 

□360 

1170 SOUND1,Z,150:S0UND2,Z+l,150 

430 : 

1180 REM HORIZONT 

440 IFLEN < S* > < BTHENS*=S*+.GOTO440 

1190 COLOR1,10,2:CHAR1,2,10,N*(N> 

450 CHAR1,0,20,"BITTE LEVEL (1 BIS 6 ) EINGEBEN !" 

1200 A= I NT < RP / 10) : I FRO=AGOTO1250 

460 GETKEYA*:A=VAL(A*> 

1210 IFRF—0GOTO1250 

470 IFA<1ORA >6THEN460 

1220 IFRO>ATHENRQ=RO-1:GOTO1240 

4B0 L-A*2a KF-L*200a SCNCLR 

1230 RD—RO+l + INT <A/100) 

490 REM ***** ZEICHENSATZ ***** 

1240 CHAR1,27,15,"CBLACK,RVSON>":PRINTUSING"*#*" : R 

500 RESTORE 

0 

510 POKEV+18,PEEK(V+18)AND251 

1250 REM JOYSTICKABFRAGE 

520 PQKEV+19,PEEK(V+19)0R56 

1260 A-JOY(1) 

530 FORI-832T0B49:READA:POKEI,A:NEXT:SYS832 

1270 IFA=7GOTO2010 

540 PQKE836,210:P0KE839,58 

1280 IFA-3GOTO2090 

550 P0KE842,211:P0KEB45,59:SYS832 

1290 IFA-1GOTO2160 

560 DATA162, 0,189, 0,208,157, 0, 56 

1300 IFA—5GOTQ2230 

570 DATA189, 0,209,157, 0, 57,202,208 

1310 1FA-133GOTO2290 

580 DATA241, 96 

1320 IFA-129GOTO2370 

590 REM ***** NEUE ZEICHEN ***** 

1330 IFA- 135GOTO2520 

600. FORI-14600TO14703:READQ:POKEI,Q1NEX T 

1340 IFA—131BOT02610 

610 DATA 0, 0,126,126,126, 0, 0, 0 

1350 IFA-12BGOTO3050 

620 DATA 0, 0, 0, 16, 16, 0, 0, 0 

1360 REM TASTATUR 

630 DATA 0, 0, 16, 56, 16, 0, 0, 0 

1370 GETA*:IFA*=""GOTO1420 

640 DATA 0, 0, 16,124, 16, 0, 0, 0 

1380 IFA*-“ "GOTO2740 

650 DATA 0, 0, 24,255, 24, 0, 0, 0 

1390 IFA*—CHR#(13)G0T02710 

660 REM RAKETE 

1400 IFA*—"F"ANDALC1GOTO3190 

670 DATA 0, 8 , 0, 20, 28, 62,127,119 

1410 A=VAL(A*):IFA >0ANDA< 5BQTO2440 

680 DATA 0, 0, 8 , 28, 28, 62, 62, 62 

1420 IFNC3GOTO2010:REM NEIGUNG LINKS 

690 DATA 0, 0, 0, 0, 0, 8 , 2B, 28 

1430 IFN>3GOTO2090:REM NEIGUNG RECHTS 

700 REM EXPLOSION 

1440 REM FEIND 

710 DATA164,137, 50, 73,168, 84, 44,129 

1450 IFE< >0GOTQ1560:REM FEIND VORHANDEN 

720 REM HUBSCHRAUBER 

1460 IFAL<1GOTO1820:REM BODEN 

730 DATA 0, 0,124, 56, 56,124, 68 , 0 

1470 MV—0: E— I NT < L* 10*RND (0 > ) 

740 DATA255, 24,126,219,255,255,189,195 

1480 IFE<18THENE—0:GOTQ1820:REM KEIN F. 

750 REM FEINDRAKETE 

1490 FL—FL+1:E—INT <20*RND(1)) 

760 DATA119,127, 62, 28, 28, 8 , 8 , 0 

1500 X1—INT(26*RND(1))+7:XA—X1 

770 DATA 0, 0, 28, 62, 62, 28, 0, 0 

1510 Yl—INT( 5*RND(1))+4:YA-Yl 

780 REM ***** VOREINSTELLUNGEN ***** 

1520 IFE<L*2ANDAL<L*1000THENE—2:GOTO1820:REM RAKET 

790 V0L8:PUDEF"0" 

E 

800 PRINTCHR*(142)CHRS(8) 

1530 IFE<L*5THENE—3:GOTO1820:REM FLUGZ. 

810 REM ***** BILD ***** 

1540 E=l:GOTO1820:REM HUBSCHR. 

820 POKEV+6,0 

1550 : 

830 COLOR0,2,6:CQL0R4,2,4 

1560 REM FEIND BEWEGEN 

840 PRINT"CCLR,BLACK!"TAB(5)" »CRVSON,5SPACE>0 H FC 
2SPACE > 1234 C2SPACE 1SFG8.RM C4SPACE , RVOFF IX." 

850 PRINTTAB( 6 )"»CRVSON,2SPACE>rKRV0FF,WHITE1ECGRE 
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1570 MV-MV+1:IFMV>64-L*4BQTO3460 
1580 ONEGOTO1700,1740:REM FLUGZ.,RAKETE 
1590 I FMV< 16—LTHENZ—34 ! BQTO1630 
1600 IFMV<32-L*2THENZ=35: BOTO1630 
1610 IFMV< 48—L*3THENZ=36 sSQTO1630 
1620 Z=37 

1630 IF Y1 < 3B0T01980: REM AUS 

1640 IFY1>9THENY1=9 

1650 IFX1<12—Y1QOTO19B0:REM AUS 

1660 IFX1>27+Y16OTO1900 

1670 COLORl,lsCHARl,XA,YA," “ 

1680 CHAR1,XI,Y1,CHR#(Z) 

1690 XA=X1! YA=Y1 1 GOTO 1820 

1700 IFMV<16-LTHENZ=34aGOTO1630 

1710 I FMV< 32-L*2THENZ»351GOTO1630 

1720 IFMV<48-L*3THENZ-42: BOTO1630 

1730 Z—43: GOTQ1630 

1740 REM RAKETE 

1750 COLOR1,1 

1760 IFMV>52-L*4GOTO3240 

1770 IFMV<13-LTHENCHAR1,19,9,CHR*<34>:BOTO1820 
17B0 I FMV< 26-L*2THENCHAR1,19,9, “ : GOTO 1820 

1790 I FMV< 39-L*3THENCHAR1,19,9,"-":GOTO1820 
1000 CHAR1,19,9," " i CH AR 1,19,11,“,“ 

1810 : 

1820 REM FUEL VERM. 

1830 FU=FU—RP/500-AL/1000 
1840 IFFU<1000THEN3240 
1850 COLOR1, 6 ,5 sIFFU<2000BOTO1880 
1860 CHAR1,16+FU/1000,21,"!“ 

1870 GOTO1890 

1880 C0LQR1,3,5:CHAR1,25,1,"!"SGOTO1860 
1890 REM KM PLUS 

1900 IFKM7KFGOTO3540:REM AM ZIEL 

1910 IFKO<90THENP=(90-KO>/2*SPa GOTO 1950 

1920 IFKO<1B0THENP—(KO-90)/2*SP: GOTO1950 

1930 IFKO<270THENP=-(270-KO)/2*SP:GOTO1950 

1940 P=(KO-270)/2*SP 

1950 KM-KM+P/10000:IFKM<0THEN3240 

1960 PRINT:CHAR1,15,16,“(BLACK,RVSONJ":PRINTUSING" 
##*#"J KM 
1970 GOTO1140 

1980 REM FEIND AUS G4GR 

1990 PRINT:E=0: CHAR1,XA,YA,“ " 

2000 GOTO 1140 

2010 REM ***** UNTERPROGRAMME ***** 

2020 REM LINKS FLIEGEN 

2030 IFRF-0THEN1440:REM ROTOR NOCH AUS 

2040 IFN<5THENN=N+l 

2050 KO=KO-1:X1=X1+1:IFKO<0THENKO=359 

2060 CHAR 1,21,18,“ (BLACK , RVSON} " : PRINTUS1 NE"*«*“ ( K 

O 

2070 GOTO1440 
2080 : 

2090 REM RECHTS FLIEGEN 
2100 IFRF-0THEN1440 
2110 IFN>1THENN=N-1 

2120 KO=KO+l:Xl=Xl-l:IFKO>359THENKO=0 

2130 CHAR1,21,18,"(BLACK,RVSON>":PRINTUSING"»««"(K 

0 

2140 GOTO1440 
2150 : 

2160 REM SCHNELLER 
2170 IFAL<1GOTO1360 
2180 IFSP >250GOTO1360 

2190 A-PEEK < V +6 > aIFA<23THENPOKEV+6,A+1 

2200 SP-SP+10:CHAR1,16,14,"(BLACK,RVSON)":PRINTUSI 

NB"**»"(SP 

2210 GOTO1360 

2220 a 

2230 REM LANGSAMER 
2240 IFSP<16OTO1360 

2250 A-PEEK(9+6):IFA >16THENPQKEV+6, A-1 

2260 SP-SP-10:CHAR1,16,14,“(BLACK,RVSON}":PRINTUSI 

NG"*»*”|BP 

2270 GOTO1360 

2280 : 

2290 REM STEIGEN 
2300 IFRF=0QRRQ<200THEN1360 
2310 S=INT((20000—AL+RP)/20001 
2320 IFRP<AL/3THENS—S-(AL/150) 

2330 IFS<.05THEN1360 

2340 AL-AL+S:CHAR1,25,14,"(BLACK,RVSON J“:PRINTUSIN 

G“»###»“|AL 

2350 Yl—Yl+1:GOTO1360 

2360 : 

2370 REM SINKEN 

2380 AL=AL-20:1FAL< 20THENAL—0 

2390 CHAR1,25,14,“(BLACK,RVSONJ“:PRINTUSING"#**#*“ 
(AL 

2400 IFAL<>0GOTO2420 


2410 IFSP >10GQTO3240 
2420 Yi—Yl—1:GQTQ1360 
2430 : 

2440 REM RAKETE LADEN 

2450 IFR(A)=1GRRC<1GOTQ1360 

2460 SOUND1,0,0:SOUND1,900,5 

2470 R < A > -1:CHAR1,17+A,1,"(RVOFF,RED >!“ 

2480 RC=RC-1:CHAR1,7,14,"(BLACK,RVSON >":PRINTUSING 
"#*“(RC 

2490 IFRC<1THENCOLOR1,3,5:CHAR1,27,1,“!" 

2500 GOTO1360 
2510 ! 

2520 REM MOTOR SCHNELLER 
2530 IFRP 79000THEN1360 
2540 RP-RP+RP/B0 

2550 CHAR1,15,15,"(BLACK,RVSON >":PRINTUSING“#*»#“( 
RP 

2560 A—INT(RP/2200):COLOR1,6,3 
2570 IFA-3THENC0L0R1,9,5 
2580 IFA—4THENC0L0R1,3,5 
2590 CHAR1,11+A,1,"!":BOTO1360 
2600 > 

2610 REM MOTOR LANGSAMER 
2620 IFRP< 801THEN1360 
2630 RP-RP-RP/80 

2640 CHAR1,15,15,"(BLACK,RVSON J":PRINTUSING"***#"} 
RP 

2650 A—INT«RP/2200):COLOR1,6,3 
2660 IFA>3G0T01140 
2670 IFA—3THENC0L0R1,3,3 
2680 IFA-2THENC0L0R 1,9,3 
2690 CHAR1,12+A,1,"!":GOTO1360 
2700 : 

2710 REM ROTOR ON 

2720 COLOR1,6,5:CHAR1,28,1,“!" 

2730 RF—1:GOTO1360 

2740 REM RAKETE 

2750 1—0:COLOR1,3,5 

2760 1=1+1:IFR<I)=1THEN2780 

2770 IFI<4THEN2760:ELSE1360 

2780 SOUND1,0,0:SOUND2,0,0:SOUND2,900,10 

2790 FORI-500TO0STEP—10 

2800 CC:iND3,I,l 

2810 if- I-500THENCHAR1,19,12," (RED,RVOFF>&“ 

2820 IFI—350THENCHAR1,19,12,“ “:CHAR1,19,11,“'“ 
2830 IFI—200THENCHAR1,19,11,“ “:CHAR1,19,10,“(“ 
2840 NEXT 

2850 CHAR1,19,10,"(ORANGE}*" 

2860 SOUND3,0,10:1=0 
2870 1=1+1:IFR(I)-1BOTO28B0:ELSE2B70 
2880 R<I)=0:CHAR1,17+1,1,“(RVOFF,WHITE>!" 

2890 IFPEEK(3451> < >32THEN2920 
2900 GOTO1360 
2910 1 

2920 REM TREFFER 
2930 G=G+1:B=PEEK(3451) 

2940 SQUND3,0,0 
2950 CHAR1,19,9,“(ORANGE!)“ 

2960 S0UND3,10,100 

2970 FORI-8TO0STEP-11 FORA-1TO100:NEXT 
2980 VOLI:NEXT 
2990 CHAR1,19,9," " 

3000 SC=SC+50*E:IFE—2THENSC—SC+100 
3010 E-0-.VOLB 

3020 CHAR1,34,13,“(BLACK,RVSON)“aPRINTUSING“#****“ 
(SC 

3030 BOTO1140 
3040 : 

3050 REM KANONE 
3060 IFAM<1GOTO1360 

3070 SOUND1,0,01S0UND3,0,0:S0UND3,300,30 
3080 FORI»BTO1STEP-1:FORA-1TO501NEXT 
3090 VOLIa NEXT a VOLB 

3100 AM=AM-1:PRINT a CHAR1,6,13,“(BLACK,RVSON >“ 

3110 PR X NTUSING“»»»“|AM 

3120 IFAM< 1 THENCOLOR 1,3,5a CHAR 1,26,1, 11 ! “ 

3130 IFPEEK<3451)-43G0T03150 
3140 GOTO1440 
3150 A—INT < 10*RND (1)) 

3160 IFA<8GOTQ1440 
3170 GOTQ2920 
3180 I 

3190 REM AUFFUELLEN 
3200 SOUND1,0,0:SOUND1,600,20 
3210 FU-7000:RC=RA:AM-AA 
3220 F0RI=1TQ4:R<I)=0:NEXT 
3230 GOTOB10 
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3240 REM ***** GAME OVER ***** 

3230 SQUND3,0,0s S0UND3«100,100 
3260 FORI=1TO16:FORA=0TO7:COLOR0,I,A 
3270 NEXTiVOL <17—1)/2:NEXT 

3280 PRINT"<BLACK>"tCHAR1,15,7,"GAME OVER." 
3290 CHARI,14,9,“-PRESS FIRE-“ 

3300 IFJOY (1)0128THEN3300 
3310 REM HISCORE-TABLE 
3320 SCNCLR:COLOR0,2,4s CQL0R4,1 
3330 CHAR1,13,2 , “ HISCORE-TABLE” 

3340 CHAR1,8,4,"DIE 10 BESTEN PILOTEN:" 

3350 FORI-1TO10:IFSCC-SC<I>THENNEXT:GOTO3400 
3360 Z=I 

3370 F0RA=IT09iSC(I+l>=SC<I> 

3380 S*(I+1)-S*<I>:NEXT 
3390 S*(Z)=S*:SC(Z)»SC 
3400 : 

3410 FOR1=1TO10:CHARl,10,5+1,"" 

3420 PR INTUS ING" 4M!" 11 g : PRINT" »S*(I)SC(I) 
3430 NEXT 

3440 GETKEYA*:IFA*<>" "THEN3440 
3450 GOTO100 

3460 REM ***** ABSCHUSS ***** 

3470 FORI=1TO60 

3480 S0UND3,0,0:S0UND3,1000,1 

3490 F0RA=1T05:NEXT 


3500 A1=INT(39*RND(1>):A2=INT(24*RND(1 > > 

3510 PRINT:CHARl,Al,A2,"(BLACK>ä" 

3520 IFI/10=INT <I/10)THENCHAR1,23+1/10,1,"(RED >!" 

3530 NEXT:GOTO3240 

3540 REM ***** GEWONNEN ***** 

3550 PRINT:SOUND1,0,0:SQUND2,0,0 
3560 POKEV+18,196:POKEV-H9,208 
3570 IFE=1ANDFL >2THENFL—FL-1 

3580 PRINT” (CLR>":A=100/FL*G/10-4: IFA<1THENA-1 
3590 CHAR1,1,5,“(BLACK>S1E HABEN ES GESCHAFFT !" 
3600 CHARl,1,8,"SIE HABEN"+STR*(B)+ " FEINDE ABGESC 
HOSSEN !" 

3610 CHARl,1,11,“IHR RANG:"+R*<A> 

3620 CHAR1,15,20,"(SPACE3 !" 

3630 FORA=1T03:S0UND3,950,5:FORZ-1TO400:NEXT:NEXT 
3640 FORA=1TO3:SOUND3,930,3:FORZ=1TO150:NEXT:NEXT 
3650 GETA*:IFA*<>" "THEN3630 
3660 GOTO3320 

©B4'm- 


Listing. »HUEY« (Schluß). 

Bitte beachten Sie die Eingabehinweise auf Seite 76. 


Raumsdilmltt 
auf dem VC 20 

Kämpfen Sie sich durch einen Asteroidengürtel. 
Nur so können Sie mit Ihren fünf Raumschiffen 
überleben. 

A steroids ist ein typisches Action-Spiel in Maschinen¬ 
sprache. Der Spieler steuert ein Raumschiff in der Mitte 
des Spielfeldes, das sich um seine eigene Achse in 
alle Richtungen drehen läßt. Ihre Aufgabe ist es, zu verhin¬ 
dern, daß das Raumschiff durch herannahende Asteroiden 
zerstört wird. Es gilt nun, diese vorher durch Abschießen zu 
zerstören. Ab und zu verstecken sich auch Ufos unter den 
Asteroiden, deren Abschuß eine besonders hohe Punktzahl 
bringt. Am Anfang erscheinen nur einige große Asteroiden. 
Je besser der Spieler nun ist, desto mehr Asteroiden erschei¬ 
nen - nun auch kleinere - und desto schneller wird das Spiel. 
Man hat fünf Raumschiffe zur Verfügung. Bei über 1000 
Punkten gibt es Bonus-Raumschiffe. Ist ein Abschießen 
eines herannahenden Asteroiden nicht mehr möglich, kann 
mit der SPACE-Taste (Hyperspace) ein Raumsprung in die 
obere Bildschirmebene vollzogen werden (beziehungsweise 
wieder in die Position in der Bildschirmmitte). Dabei besteht 
jedoch das Risiko, daß Ihr Raumschiff zerstört wird. - Mit der 
Taste »F7« wird der Antrieb des Raumschiffes eingeschaltet. 
Er bewirkt, daß sich das Raumschiff langsam in die jeweilige 
Schußrichtung bewegt. 

Eingabe des Programms: 

Das Programm benötigt mindestens eine 8 KByte Erweite¬ 
rung. Mit ihr wird das Programm wie folgt geladen: 

Im Direktmodus bitte folgendes eingeben: 

POKE 44,32:POKE 8192,0:NEW:POKE 648,30:SYS 58648. 

Dann wird das Programm »Asteroids Loader« (Listing 1) ein¬ 
getippt und gespeichert beziehungsweise geladen. Es ent¬ 
hält Prüfsummen, die auf einen Eingabefehler aufmerksam 
machen. 

Jetzt wird mit dem Befehl RUN das Programm »Loader« 


gestartet. Wenn es dazu auffordert, ist NEW und 
< RETURN > einzugeben. Anschließend ist noch die Zeile 

POKE 44,33:POKE 8448,0:NEW 

erforderlich. Nun läßt sich das Hauptprogramm »Main Pro¬ 
gram« (Listing 2) eingeben und speichern, beziehungsweise 
von Kassette laden. Dieses startet man einfach mit RUN. 
Alles v/e^ere wird im Programm erklärt. 

Mit einer 16 KByte-Erweiterung ist vor dem Laden des 
Loader-Programms die Zeile: 

POKE 44,33: POKE 8448,0:NEW:POKE 648,30: SYS 58648 

einzugeben. Anschließend tippt man das Programm »Loader« 
ab und startet es mit RUN. Wenn das Programm dazu auffor¬ 
dert, gibt man NEW ein und lädt das Hauptprogramm ohne 
zusätzliche Befehle. 

Durch Änderung des Wertes 70 in Zeile 12040 kann die 
Geschwindigkeit verändert werden (bis ...85). Wenn das 
Spiel nicht so schnell werden soll, kann dies geändert wer¬ 
den, indem im Hauptprogramm in Zeile 20010 der zweite 
Wert (3) erhöht wird, zum Beispiel auf 15. 

(Claus Neupert/ah) 


1 REM ************************************ 

** <052> 

2 REM <064> 

3 REM » ASTEROIDS << (DATA—LOADER3 <200> 

4 REM <066> 

5 REM <067> 

6 REM 1985 BY C. NEUPERT <140> 

7 REM <069> 

B REM <B70> 

9 REM ************************************ 

*» <060> 

10 DIM H(75):FOR 1-0 TO 9 <139> 

20 H <48+1) =1:H<65+1)-1 + 10:NEXT I <104> 

30 FOR 1-5420 TO 7399: READ M <231> 

40 H“ASC (LEFTf(A$,1))lL-ASC(RIGHT*(A*,1)) <223> 

50 D—H <H)*16+H(L)I S-3+D: POKE I,D <243> 

60 A-A+l: IF A<20 THEN NEXT: A—1 <165> 

65 PRINT "ZEILE "gl000+Zi <181> 

70 READ V: Z-Z+lilF V-B THEN 85 <049> 

80 PRINT" FEHLER !"g999+Z:STOP <023> 

85 IF A<0 THEN 100 <223> 

90 S-0:A-0:PRINT:NEXT <050> 

100 PRINT"(CLR.2D0WNJGEBEN SIE JETZT 'NEW 

"SPRINT"(DOWNJEIN UND LADEN SIE DAS"! <136> 
110 PRINT"CDOWNJHAUPTPROGRAMM !" <080> 
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120 END <122> 

990 REM <034> 

991 REM DECIMAL ADDRESS 5420 TD 7399 <035> 

992 REM <036> 

1000 DATA AD,SS,1D,D0,01,60,CE,42,10,30,01 

,60,A9,19,SD,42,1D,20,52,17, 160B <120> 

1001 DATA A9,20,91,FB,AE,E4,03,BD,E6,03,20 

,DA,1B,A5,FC,30,1D,C9,1E,30, 2474 <0B7> 

1002 DATA 19,C9,20,10,15,B1,FB,BD,41,1D,AD 

,E4,03,91,FB,A5,FB,8D,DC,03, 253B <179> 

1003 DATA A5,FC,BD,DD,03,60,20,52,17,18,90 

,EA,DA,1B,A5,FC,C9,1E,30,1B, 2382 <108> 

1004 DATA0AS,C5,C9,3F,D0,03,BD,58,1D,C9,20 

,D0,04,BD,56,ID,60,AD,E2,03, 2294 <250> 

1005 DATA B5,00,20,2C,1A,20,00,19,AD,56,1D 

,C9,02,D0,01,60,20,26,16,20, 1212 <176> 

1006 DATA 52,17,B1,FB,C9,08,30,07,A9,03,BD 

,36,1D,60,EA,A4,FE,A2,96,CA, 2487 <011> 

1007 DATA D0, FD, 88 , D0, FB, 20,2C ,15, AD, 41,1D 

,C9,20,D0,E5,A4,00,C0,01,F0, 2604 <164> 

1008 DATA 07,SB,84,00,18,90,BF,EA,20,58,1B 

,20,44,16,20,26,16,1B,90,9C, 1553 <031> 

1009 DATA AE,DF,03,D0,01,60,BD,3C,03,B5,FB 

,BD,64,03,85,FC,A9,20,A0,00, 2379 <103> 

1010 DATA 91,FB,BD,8C,03,20,37,1B,F0,0B,0E 

,F0,03,A0,00,BC,DF,03,4C,E5, 2309 <195> 

1011 DATA 1B,4C,DB,1B,A0,00,A9,15,91,FB,A5 

,FB,9D,3C,03,A5,FC,9D,64,03, 2399 <108> 

1012 DATA CE,0B,90,60,90,60,BC,0B,90,31,AE 

,E3,03,F0,04,CE,E3,03,60,A2, 23B3 <09l> 

1013 DATA 03,BE,E3,03,AD,0D,90,30,01,60,38 

,E9,04,BD,0D,90,60,EA,EA,EA, 2239 <012> 

1014 DATA A9,F2,CD,0A,90,D0,06,A9,BF,8D,0A 

,90,60,BD,0A,90,60,BD,0A,90, 2421 <005> 

1015 DATA 60,31,36,30,20,A3,FB,4B,A5,FC,48 

,A2,20,A9,00,20,EB,1A,A2,1A, 2097 <069> 

1016 DATA A9,16,20,E8,1A,A2,1A,A9,D4,20,ES 

,1A,A2,17,A9,17,20,E8,1A,A2, 2169 <172> 

1017 DATA 17,A9,FE,20,E8,1A,A2,1A,A9,18,20 

,ES,1A,A2,17,A9,D2,20,E8,1A, 2261 <135> 

101S DATA A2,1A,A9,2C,20,E8,1A,A2,17,A9,D6 

,20,E8,1A,68,B5,FC,6B,85,FB, 2526 <129> 

1019 DATA 60, EA, EA, EA, EA, 38, E9,0C, AA, BD, 4C 

,1D,20,DA,1B,20,C7,1A,A5,FC, 2748 <177> 

1020 DATA 30,39,C9,1E,30,35,A0,04,A2,00,86 

,01,20,5D,16,A9,9B,BD,0D,90, 1667 <254> 

1021 DATA A9,0F,SD,38,1D,A2,DC,CA,D0,FD,CS 

,20,5D,16,CE,3B,1D,D0,F2,A9, 2712 <0B3> 

1022 DATA 20,85,01,A0,01,20,3D,16,A9,19,BD 

,0C,90,BD,0B,90,20,AB,02,60, 1559 <163> 

1023 DATA C9,15,D0,06,A9,03,8D,56,1D,60,C9 

,0C,30,03,4C,AD,16,20,C7,1A, 1752 <111> 

1024 DATA A5,FC,30,33,C9, IE,30,2F,A0,00,A9 

,17,91,FB,A9,02,20,FB,1A,A9, 2236 <113> 

1025 DATA B7,BD,0D,90,A9,2B,BD,3B,1D,A2,FF 

,CA,D0,FD,CE,38,1D,D0,F6,A9, 2910 <051> 

1026 DATA 46,20,AB,02,A9,01,20,F8,1A,A9,20 

,A0,00,91,FB,60,AD,F0,03,30, 2065 <251> 

1027 DATA 08,CD,E2,03,10,03,4C,C0,17,60,AD 

,DC,03,B5,FB,AD,DD,03,85,FC, 2410 <090> 

1028 DATA A0,00,60,36,33,A0,00,BC,0C,90,BC 

,0B,90,4C,FB,16,EE,48,D1,BC, 2117 <027> 

1029 DATA EB,E0,14,30,02,A2,00,60,EA,EA,£B 

,E0,03,30,02,A2,00,60,EA,EA, 2487 <202> 

1030 DATA EE,4B,1D,AE,4B,ID,E0,05,30,03,18 

,90,1B,EE,FB,03,AE,FB,03,E0, 2239 <236> 

1031 DATA 05,30,0B,A2,00,BE,FB,03,A9,0C,99 

,84,03,60,0?,08,99,84,03,60, 1844 <150> 

1032 DATA 4C,C4,1B,A2,00,BE,4B,1D,A9,15,99 

,B4,03,AD,F0,03,BD,DF,03,60, 2109 <10B> 

1033 DATA 4C,BA, 18,E0,04,30,02,A2,00,EB,BE 

,FA,03,E0,01,F0,35,E0,02,F0, 22B9 <134> 

1034 DATA 5E,E0,03,F0,03,4C,DF,17,4C,60,18 

,AE,F4,03,20,70,17,BE,F4,03, 2059 <057> 

1035 DATA BD,CE,1D,AC,F0,03,99,3C,03,A9,1F 

,99,64,03,AE,F8,03,20,7A,17, 2113 <177> 

1036 DATA 8E,F8,03,BD,67,1D,1B,?0,23,EA,AE 

,F1,03,AC,F0,03,20,70,17,BE, 2295 <021> 

1037 DATA Fl,03,BD,6A, ID,99,3C,03,BD,7E, 1D 

, ,99,64,03,AE,F5,03,20,7A,17, 19B3 <045> 

1038 DATA SE,F5,03,BD,5E,ID,99,SC,03,4C,84 

,17,EA,EA,EA,AE,F2,03,AC,F0, 2762 <034> 

1039 DATA 03,20,70,17,6E,F2,03,BD,92,ID,99 

,3C,03,A9,1E,99,64,03,AE,F6, 2012 <181> 

1040 DATA 03,20,7A, 17,BE,F6,03,BD,61,1D,99 

,BC,03,4C,B4,17,EA,EA,EA,EA, 2349 <245> 

1041 DATA AE,F3,03,AC,F0,03,20,70,17,BE,F3 


,03,BD,A6,1D,99,3C,03,BD,BA, 2365 <076> 

1042 DATA ID,99,64,03,AE,F7,03,20,7A, 17,BE 

,F7,03,BD,64,ID,99,BC,03,4C, 196B <05B> 

1043 DATA 84,17,AC,F0,03,10,01,60,EA,EE,E2 

,03,CC,E2,03,30,01,60,CE,E2, 2394 <115> 

1044 DATA 03,AD,E2,03,C9,27,30,02,60,EA,AE 

,FA,03,4C,C3,17,BB,17,AD,98, 2233 <201> 

1045 DATA 17,C9,05,10,03,EE,98,17,A5,FE,C9 

,03,10,01,60,C6,00,C6,00,60, 1889 <102> 

1046 DATA AD,DF,03,F0,08,A9,00,QD,4B,1D,4C 

,91,17,4C,AF,17,EA,EA,EA,EA, 2515 <123> 

1047 DATA EE,4A,1D,A9,17,CD,4A,1D,F0,03,4C 

,0C,16,A9,00,BD,4A,1D,BD,0B, 1759 <222> 

1048 DATA 90,8E , F0,03,8D, DF , 03,4C , C0,17, EC 

,E2,03,30,01,60,4C,C0,17,0E, 2102 <U4> 

1049 DATA A6,00,BD,B4,03,C9,15,D0,03,4C,E0 

,15,C9,0C,F0,4A,C9,0B,F0,06, 2277 <U7> 

1050 DATA AB,CB,9B,1S,90,02,A9,08,9D,B4,03 

,BD,3C,03,85,FB,BD,64,03,85, 226B <042> 

1051 DATA FC,A0,00,A9,20,91 ,FB,BD,8C,03,20 

,37,1B,F0,06,BE,F0,03,4C,C0, 2354 <24B> 

1052 DATA 17,A6,00,BD,B4,03,A0,00,91,FB,A5 

,FB,9D,3C,03,A5,FC,90,64,03, 2430 <175> 

1053 DATA 60, EA, EA , EA, EA, EA, EA, EA, EA , EA, A9 

,00,BD,F9,03,BD,3C,03,85,FB, 3400 <134> 

1054 DATA 85,01,BD,64,03,85,02,85,FC,20,1F 

,1B,A9,E9,20,1C,1B,A9,01,20, 1727 <030> 

1055 DATA IC,1B,A9,01,20,IC,1B,A9,16,20,IC 

,1B,A9,FE,20,IC,1B,A9,16,20, 1323 <011> 

1056 DATA IC,1B,A9,01,20,1C,1B,A9,01,20,IC 

,1B,A5,01,B5,FB,A5,02,B5,FC, 1671 <023> 

1057 DATA BD,BC,03,20,DA,1B,BD,8C,03,20,DA 

,1B,A0,00,B1,FB,C9,20,F0,18, 2303 <214> 

1058 DATA C9,0B,30,14,EE,F9,03,AC,F9,03,C0 

,0B,10,0A,B9,E6,03,9D,BC,03, 2135 <102> 

1059 DATA 18,90,CD,EA,A5,01,85,FB,A5,02,85 

,FC,A6,00,BD,BC,03,20,37,1B, 2321 <05B> 

1060 DATA F0,06,20,46,1B,4C,C0,17,20,26,1B 

,A0,0F,A9,E9,20,F3,1B,A0,10, 1818 <100> 

1061 DATA A9,01,20,F3,1B,A0,11,A9,01,20,F3 

’B,A0,0D,A9,14,20,F3,1B,A0, 1945 <002> 

1062 Z. iTA 0E, A9,02,20, F3,1B, A0,14, A9,16,20 

,F3,1B,A0,13,A9,FF,20,F3,1B, 2065 <203> 

1063 DATA A0,12,A9,FF,20,F3,1B,EA,EA,60,A9 

,00,EA,EA,EA,60,60,EA,EA,EA, 3233 <095> 

1064 DATA AE,DE,03,D0,01,60,AD,E0,03,85,FB 

,AD,E1,03,B5,FC,A5,03,20,DA, 2692 <0B0> 

1065 DATA 1B,A5,FC,30,5F,C9,1E,30,5B,C9,20 

,10,57,EE,5D,1D,A2,0D,EC,5D, 2157 <210> 

1066 DATA 1D,F0,4D,4B,A5,FB,48,AD,E0,03,85 

,FB,AD,E1,03,85,FC,A0,00,B1, 2813 <092> 

1067 DATA FB,C9,16,D0,04,A9,20,91,FB,91,FB 

,6B,B5,FB,68,B5,FC,B1,FB,C9, 32B5 <095> 

1068 DATA 20,30,1B,AE,0C,90,CA,CA,CA,SE,0C 

,90,CE,0B,90,A9,16,91,FB,A5, 2454 <095> 

1069 DATA FB,BD,E0,03,A5,FC,8D,E1,03,60,A0 

,00,BC,DE,03,4C,61,17,EA,EA, 2690 <091> 

1070 DATA A2,00,BE,0C,90,BE,0B,90,8E,DE,03 

,AD,E0,03,85,FB,AD,E1,03,85, 2442 <131> 

1071 DATA FC,Al ,FB,C9,16,F0,01 ,60,A9,20,81 

,FB,60,EA,EA,AE,E2,03,BD,3C, 3021 <075> 

1072 DATA 03,C5,FB,D0,07,BD,64,03,C5,FC,F0 

,06,CA,E0,00,D0,ED,EB,8E,F0, 3138 <249> 

1073 DATA 03,4C,44,17,EA,EA,EA,EA,20,DA,1B 

,A5,01,C9,20,F0,01,BA,A2,00, 2323 <06B> 

1074 DATA 81,FB,9B,EA,A8,A5,FC,1B,69,78,85 

,FC,9B,A2,00,B1,FB,A5,FC,3B, 3152 <212> 

1073 DATA E9,78,85,FC,60,A4,FE,A2,64,CA,10 

,FD,BB,10,FB,4C,E0,15,EA,EA, 3174 <134> 

1076 DATA 20,DA,1B,A9,20,A0,00,91,FB,60,A5 

,FB,9D,3C,03,A5,FC,9D,64,03, 2443 <004> 

1077 DATA A9,0C , 1B, 90,1A , EA, EA, 20 , DA, 1B, A5 

,FC,30,08,C9,1E,30,04,C9,20, 2109 <10B> 

1078 DATA 30,06,A5,00,8D,F0,03,60,4C,22,1A 

,A0,00,91,FB,60,EA,EA,EA,EA, 2423 <060> 

1079 DATA A5,C5,C9,21,F0,09,C9,22,F0,1B,C9 

,23,F0,3D,60,AE,E4,03,E0,00, 2609 <113> 

1080 DATA F0,07,CA,BE,E4,03,1B,90,1A,A2,07 

,BE,E4,03,18,90,12,AE,E4,03, 2149 <0B3> 

1081 DATA E0,07,F0,04,E8,1B,90,E7,A2,00,BE 

,E4,03,EA,EA,AD,DC,03,85,FB, 2BB9 <191> 

1082 DATA AD,DD,03,85,FC,A2,00,AD,E4,03,81 

,FB,60,EA,EA,AE,DE,03,E0,00, 2915 <041> 


Listing 1. Ladeprogramm für das Spiel »Asteroids«. 
(Fortsetzung) 
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VC 20 + 8 KByte 


1083 DATA F0,01,60,E8,BE,DE,03,AE,DC,03,BE 

,E0,03,AE,DD,03,8E,El,03,AE, 2644 <241> 

1084 DATA E4,03,BD,E6,03,85,03,A9,FS,8D,0C 

,90,A9,F2,8D,0B,90,A9,00,BD, 2517 <252> 

1085 DATA 5D,1D,60,CE,CC,C1,CC,C4,8C,DD,30 

,0A,18,65,FB,B5,FB,90,02,E6, 2776 <130> 

1086 DATA FC,60,18,65,FB,83,FB,B0,02,C6,FC 

,60,EA,EA,EA,20,DA,1B,98,A0, 3123 <207> 

1087 DATA 00,91,FB,60,32,0B,73,17,00,10,28 

,44,82,B2,FE,B2,00,1E,22,42, 1589 <115> 

1088 DATA A2,14,08,10,78,24,22,21,22,24,78 

,00,10,0B,14,A2,42,22,1E,00, 935 <241> 

1089 DATA 41,7F,41,41,22,14,08,00,08,10,28 

,43,42,44,78,00,00,0F,12,22, 838 <214> 

1090 DATA 42,22,12,0F,00,78,44,42,45,28,10 

,08,20,50,BB,07,41,22,44,38, 1126 <206> 

1091 DATA 0C,52,Al,82,84,48,28,18,IC,22,44 

,B2,E1,11,0A,04,18,14,12,21, 1264 <204> 


1092 DATA 41,85,4A,30,C0,1F,22,24,12,09,90 

,49,48,25,14,22,42,44,2B,48, 1266 <169> 

1093 DATA 3C,02,El,21,12,21,CI,06,00,03,07 

,04,0B,31,46,8B,70,93,0E,04, 1124 <082> 

1094 DATA 60,90,09,64,E0,10,30,C0,80,80,40 

,80,44,64,12,0A,05,02,02,01, 1483 <254> 

1095 DATA 04,09,33,C4,18,20,40,80,08,10,10 

,A0,40,00,00,00,18,18,24,3C, 916 <092> 

1096 DATA 42,FF,E7.7E,00,00,00,30,30,00,00 

,00,E0,CC,0C,20,80,84,31,10, 1371 <020> 

1097 DATA 01,00,64,60,08,02,BE,38,30,4B,B4 

,08,48,48,24,08,08,40,60,90, 1197 <105> 

1098 DATA 60,0C,04,00,42,2C,41,33,2C,46,43 

,2C,33,30,2C,35,46,2C,43,39, 999 <044> 

e 84 '«r 

Listlng 1. Ladeprogramm für das Spiel »Asteroids«. 
(Schluß) 


10 

REM 

#*#**#*****##**###*#*#** 

<063> 

15 

REM 


* 

< 15B> 

20 

REM 

ASTEROIDS MAIN PROBRAM 

* 

< 1B2> 

25 

REM 


# 

< 168> 

30 

REM 


* 

< 173> 

31 

REM 



<093> 

32 

REM 

1985 BY CLAUS NEUPERT 

* 

<251 > 

33 

REM 

HUMBOLDTSTR. 44 

* 

<081 > 

34 

REM 

4600 DORTMUND 1 

* 

<055> 

35 

REM 


* 

<17B> 

36 

REM 


# 

<179> 

37 

REM 

#***###**###******###*## 

<090> 

40 

REM 



< 102> 

50 

REM 

POKE 55,40!POKE 56,21 


<110> 

60 

REM 

PDKE 648,30!SYS 58648 


<020> 

65 

BOSUB 15000 


< 125> 

70 

BOSUB 10000 


<050> 

80 

GOSUB 11000 


<076> 

90 

GOSUB 12000 


<102> 


200 POKE 6040,1iPOKE 6027,10iPOKE 7514,0iP 

OKE 7515,0 <209> 

300 81-36876!82-36875!83-36874!SN-36877!SL 

»368783C—30720 < 010 > 

310 RA=5aHS=0iHT-0 <041> 

400 POKE 994,3BiFOR I»1 TO 3B!P0KE 1008,1s 

SYS 6080sNEXTsPOKE 254,33sP0KE 994,5 <07B> 

500 POKE 36878,15iPOKE 36879,8!POKE 36869, 

255 s PRINT"tCLR,WHITE >"!POKE 988,2531PO 


KE 989,30!HS—1 <058> 

505 POKE 7510,0iPOKE 7512.03POKE 990,0iPOK 

E 991,0!POKE 996,0 <071> 

506 POKE 7489,32!POKE 197,64 <183> 

510 POKE PEEK(988)+256*PEEK(9B9),PEEK(996) 

I <162> 

520 SYS 5500 <148> 

530 IF PEEK(7510)-3 THEN 700 <016> 

540 IF PEEK(7510)-2 THEN B00 <051> 

550 IF PEEK(7510)=32 THEN POKE 7510,0iGOTO 

1200 <133> 

700 POKE 81,01POKE S2,0iPOKE 33,01M-PEEK(9 

BB)+256*PEEK(9B9> <121> 

703 POKE SL,15iPOKE M,25tP0KE M+C,7iP0KE 8 

N,12Bl■IiIFOR 0-1 TO 201 <072> 

704 POKE SL.15-INT(Q/1.333)l!in <242> 

705 FOR 0-1 TD 16iIF 0/2-INT(0/2)THEN POKE 

M+C,5iGOTO 710 <095> 

706 POKE M+C,2 <196> 

710 NEXTlNEXT!POKE SN,0iPOKE SL,15lP0KE 11+ 

C,1iBOSUB 20001POKE 988,253iPOKE 989,3 
0 <115> 

717 IF RA>8 THEN RA-10 <230> 

720 RA-RA-1iIF RA-0 THEN 1500 <075> 

725 FOR 1-1 TO RA1POKE 7704+1,01NEXT IiFOR 

J=1 TO 8001NEXT J <164> 

730 X-PEEK(994)lPOKE 994,3BiF0R 1=1 TO 38s 
POKE 1008,1sSYS 6080!NEXTIPOKE 994,X:8 
DTO 500 <042> 


800 POKE Sl,0iPOKE 82,0!POKE 83,0!PO-PEEK( 

B28+PEEK(991))+256#PEEK(B68+PEEK(991)) <1B0> 
805 POKE PO,24iPOKE P0+C,7sPQKE SL,15iP0KE 

SN,200!FOR L-15 TO 0 STEP-1 <217> 

810 POKE SL,L:POKE SN,150+3*Li:::: <181> 

820 FOR LX—1 TO 15iIF LX/2-INT(LX/2)THEN P 

OKE PO+C,4s POKE PO,24sGOTO 830 <042> 


c nu 


825 POKE PO+C,2sPOKE PO,26 

830 NEXT LXiNEXT LsPOKE SN,0iPOKE SL,15iP0 
KE PO,32iPOKE P0+C,1 

840 POKE 1008,PEEK(991>iPOKE 991,0iSYB 608 
01SC-SC+250!GOTO 505 

1200 PF-1sHS-HS+11HT—1:POKE 7512,0!IF HS/2 
=INT(HB/2)THEN 1250 

1202 FOR N—7703 TO 774SlIF PEEK(N>=32 THEN 
1210 

1205 NEXT 

1210 PO-PEEK(988)+256*PEEK(989)IPOKE PO,32 
iPO-NsIF RND (IX. 30 THEN HS-03GOTO 70 
0 

1215 POKE PO,PEEK(996)iPH—INT(PO/256)iPL—P 
0-PH*256 

1216 POKE 988,PL1POKE 9B9,PH!0OTO 505 
1250 PO-PEEK(988)+256*PEEK(9B9)!POKE PO,32 

> PQ=253+256*30lPOKE 988,253sPOKE 989, 




1260 IF PEEK (PO)-32 AND RNDUX.75 THEN 12 
15 

1270 GOTO 700 

1500 POKE 36869,240!PRINT"<CLR,DOWN,3RIBHT 
,RED>******##********"|PRINT TAB(3)"* 
"TAB(18)"*" 

1502 PRINT TAB(3)"*"TAB(18)!PRINT TAB(3 
>"*"TAB(18) 

1504 PRINT"{3RIBHT >****************“ 

1505 PRINT"CH0ME,3D0WN,7RIBHT,WHITEJBAME O 


VER" 

1510 GOSUB 4000 

1550 PRINT"C5D0WN,YELLOW>» SCOREi <<{BPAC 
E,WHITE >"PEEK(7514)+256*PEEK(7515 > +SC 
1580 BOSUB 2000 

1590 PRINT"CCYAN,3D0WN,4RI BHT ,SPACE, R I BHT > 
ABAIN (Y/N) ?" 

1600 BET ASlIF A»-""THEN 1600 

1610 IF A*-"Y"THEN 90 

1620 IF A*-"N"THEN END 

1630 GOTO 1600 

2000 RETURN 

3000 REM 

3010 IF 1-1200 THEN POKE 36874,01POKE 3687 
6,0iGOTO 3110 

3020 K-K+ZiIF K—0 DR K-250 THEN Z—Z 


3030 K1-12B OR K2iK2-160 OR KiK3-12B OR K/ 
2IK4-1B0 OR K3|K5—170 OR Kl 
3040 IF I<256 OR I>1200 THEN 3110 
3050 IF 1-1024 THEN BOSUB 33001POKE 36878, 


10 

3100 POKE 36B74,KliPOKE 36876,K3iPOKE 3687 
4,K2iPOKE 36876,K2iPOKE 36874,K3iPOKE 
36876,Kl 

3110 POKE 36875,K4lPOKE 36875,K5 
3120 RETURN 
3300 RETURN 

4000 POKE 36B7B,15iFOR 1=250 TO 130 STEP-2 
4010 POKE 36876,11POKE 36875,128 OR IsPOKE 
36874,240 AND IiNEXTiPOKE 36876,0 
4020 POKE 36875,01POKE 36874,01POKE 36878, 
15iRETURN 


<244> 

<019> 

<154> 

< 129> 

<211 > 

<199> 

<225> 

< 105> 

< 164> 


<097> 

< 181 > 
<230> 


<033> 

<225> 

<039> 

<243> 

< 220 > 

< 020 > 

< 020 > 

< 210 > 
< 126> 
<04B> 
<0B2> 
< 142> 
<024> 
< 012 > 

<015> 

<064> 


< 196> 
< 202 > 

<133> 


< 011 > 

<239> 

< 130> 
<054> 

< 155> 

<19B> 

<046> 


Listlng 2. Hauptprogramm zu »Asteroids«. 
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CI 6/116 


SPIELEFÜHRER | 


4799 STOP 

<239> 

15020 O=7680+INT(RND(1)*18)+2 

<232> 

100 00 

PRINT"<CLR>"IPOKE 36B79,BsP0KE 36B69 


15030 U=0164+INT(RND(1> *18) +2 

<251 > 


,240jPOKE 36B7S,15lZ-l 

< 11 S> 

15040 L—7724+INT(RND(11*19)*22 

<232> 

10005 

C*-"CWHITE,RED,CYAN,PURPLE,GREEN,BLU 


15050 R=7745+INT <RND <1)*19)*22 

< 011 > 


E,YELLOW)" 

< 196> 

15070 LH=INT(L/256)■LL=(L/256-LH)*256 

< 132> 

10010 

FOR 1-1 TO 20IPRINT MID*(C*,INT(RND < 


150B0 OH=INT(0/256)s OL-(0/256-0H)*256 

<234> 


1)*7)+1,1)»"*"|iNEXT 

<243> 

15090 UH-INT(U/256)■UL—(U/256-UH)*256 

< 175> 

10020 

PRINTiPRINT s PRINTiPRINT"tWHITE,RIQHT 


15095 RH-INT(R/256)s RL-(R/256-RH)*256 

<087> 


>A S T E R 0 I D 8 " 

< 202 > 

15100 POKE 7530+1,LLsPOKE 7550+1,LHiPOKE 7 


10030 

PRINTsPRINTlPRINT 

<249> 

570+1,OL 

<013> 

10040 

FOR 1 = 1 TO 201 PRINT MID*<C*,INT(RND( 


15110 POKE 7590+I,RLiPOKE 7610+1,RHl POKE 



1>*7>+1,1>|"#"j.NEXTiPRINT 

<190> 

7630+1,UL 

<026> 

10050 

PRINT"CSDOWN,WHITE,3RIBHT1BY C. NEUP 


15120 NEXT I 

< 21 B> 


ERT" 

< 163> 

15130 FOR 1-0 TO 2sREAD NU,NL,NO,NR 

< 102 > 

10060 

PRINT"C4D0WN,3RIBHT,CYAN,3RIGHT > HIT 


15140 POKE 7527+1,NUlPOKE 751B+I,NLs POKE 



ANY KEY" 

<059> 

7521+1,NOsPOKE 7524+1,NRs NEXT I 

<211 > 

10070 

GET A*lIF A*=""THEN GOSUB 3000 s GOTO 


15150 FOR 1-0 TO 7s POKE 1009+1,0sNEXTi POK 



10070 

<036> 

E 1018,0s POKE 1019,0 

<047> 

10080 

POKE 36876,0iPOKE 36875,0iPOKE 36874 


15160 FOR 1=0 TO 8s READ NsPOKE 997+1,NsNEX 



,0s RETURN 

<179> 

T 1 

<243> 

11000 

PRINT"CCLR,DOWN,3RIGHT,RED > **ABTERQI 


15170 FOR 1-0 TO 9s READ Ni POKE 7500+1,Ni 



DS**" 

<194> 

NEXT I 

< 143> 

11010 

PRINT"C2D0WN,WHITE>Z C3SPACE)- ROTATE 


15200 POKE 7489,32sPOKE 7512,0sPOKE 1008,1 



LEFT" 

< 104> 

sPOKE 7490,0sPOKE 7499,0sPOKE 749B,0 

< 136> 

11020 

PRINT"CDOWN>CC5SPACE>- ROTATE RIGHT" 

<111> 

15300 FOR 1-7168+32*8 TO 7168+32*8+7sPOKE 


11030 

PRINT"CDOWN >B C5SPACE > - FIRE" s PRINT" < 


1,0s NEXT I 

<037> 


2D0WN,RVSON>SPACE CRVOFF,SPACE >- HYPE 


15900 RETURN 

<210> 


RSPACE" 

<232> 

20000 DATA 24,109,90,29,141,90,29,176,1,96 


11040 

PRINT " CDOWN,RVSON)F7 CRVOFF,4SPACE >— 


,238,91,29,165,254 

< 1B9> 


THRUBT" 

<21B> 

20010 DATA 201,3,48,4,198,254,198,254,173, 


11050 

PRINT"C4D0WN,4RIGHT,CYAN)HIT ANY KEY 


226,3,201,35,16,8 

< 103> 


II 

<202> 

20020 DATA 201,35,240,4,238,226,3,234,173, 


11060 

BET A*sIF A*=“"THEN 11060 

<225> 

152,23,201,5,240,13 

< 135> 

11070 

RETURN 

<206> 

20030 DATA 201,5,16,9,238,152,23,234,234,2 


12000 

PRINT"CCLR,DOWN,WHITEICHQQSEs"SPRINT 


34,234,234,234,96,96 

<006> 


sPRINTsPRINT 

<202> 

20040 REM 

<034> 

12010 

PRINT"! - SLOW" s PRINTsPRINT"2 - MEDI 


20050 DATA 235,235,21,255,234,1,22,233,233 



UM" 

< 145> 

,23,23,21 

<221 > 

12020 

PRINTsPRINT"3 - FAST" 

<159> 

20060 DATA 0,234,235,1,23,22,21,255,233 

<250> 

12030 

BET A*!lF A*=“"OR VAL(A*>=0 OR VAL(A 


20070 DATA 0,1,255,23,22,21,235,234,233,0 

<223> 


*)>3 THEN 12030 

<094> 



12040 

K=(4—VAL(A* > > *70 s POKE 555B,K s RETURN 

<210> 

© 84- • 


15000 

RESTOREsFOR 1=0 TO 591 READ NsPOKE 68 
0+1,Ns NEXT 

<119> 

Listlng 2. Hauptprogramm zum Spiel »Asteroids«. 


15010 

FOR 1=0 TO 19 

< 145> 

(Schluß) 




C 16 — 
Spielefühler 

Mit etwas Verspätung haben die Softwarefirmen 
den C16 entdeckt und in den letzten Monaten 
eine ganze Reihe von Spielen veröffentlicht. Wir 
haben Ihnen eine Übersicht mit vielen Kauf-Tips 
zusammengestellt. 

W enn Sie Ihren C16/116 zum Spiel-Computer verwan¬ 
deln wollen, dann haben wir hier einige interessante 
Anregungen für Sie parat. Zunächst ein paar Worte 
zum lieben Geld: Die meisten Spiele-Kassetten kosten zwi¬ 
schen 25 und 39 Mark, was im Vergleich zu anderen 
Software-Preisen recht human ist. Einige Firmen bieten aber 
auch Preisbrecher für 9,95 Mark an, die oft besser sind als 
teurere Titel. Vor allem das Angebot von Mastertronics ist 
ebenso preiswert wie qualitativ hochwertig. Alle »Billigspiele« 
dieses Anbieters haben wir in der Übersicht mit einem Stern¬ 
chen gekennzeichnet. Unsere Übersicht erhebt übrigens 
keinen Anspruch auf Vollständigkeit. 

Dann mal ran an die Joysticks. Es gibt einige Spieie- 
Sammlungen für den C16, die mehr Software-Spaß fürs glei- 



Eines von vier Spielen der Zusammenstellung »C16’s 
Classics« 


che Geld bieten. Von Gremlin Graphics gibt es die Zusam¬ 
menstellung »C16’s Classics«, die aus »Dork’s Dilemma«, 
»Tycoon Tex« (beides Geschicklichkeits-Spiele), »Xargon 
Wars« und »Petals of Doom« (zwei Schießspiele) besteht. 
Trotz kleiner Schwächen bei einzelnen Titeln eine empfeh¬ 
lenswerte Zusammenstellung, bei der man vier professionell 
gemachte, schnelle Spiele für sein Geld bekommt. 

Ebenfalls vier Titel findet man auf Anirogs »Favourite Four«- 
Kassette. Es handelt sich hier um »Flight Path 737« (Flugsi¬ 
mulation), »Moon Buggy« (Schießspiel), »Las Vegas« (Spiel- 
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automat) und »Zodiac« (Geschicklichkeit) - eine abwechs¬ 
lungsreiche Mischung. 

Gleich 15 Spiele findet man auf dem »C16 Games Pack I« 
von Melbourne House. Allerdings sind es recht simple Pro¬ 
gramme, die alle in Basic geschrieben sind. Das hat aber auch 
den Vorteil, daß man sie LISTen und beliebig verändern kann. 
Ein lehrreiches Vergnügen für Basic-Einsteiger und Fortge¬ 
schrittene. Vom Karten- bis zum Wirtschafts-Spiel ist hier fast 
die gesamte Palette vertreten. 



»Tutti-Frutti«, ein tolles 10-Mark-Spiel 



Ein Baller-Programm aus den »C16’s Classics« 


THE WIZARD AND THE PRINCESS 


msm &8VHB 8r M ??i c ftk T E88V 


Äußerst abenteuerlich: «Wizard and the Princess« 


Die Spiele-Zukunft für den C16 sieht gar nicht mal übel aus. 
Vor ein paar Wochen hat U.S. Gold, eine britische Mega- 
Softwarefirma, mit dem Baller-Evergreen »Beach Head« 
erstmals einen ihrer Erfolgstitel für den »Kleinen« umgesetzt. 
Vom Erfolg dieses Experiments wird es wohl abhängen, ob 
weitere C 16-Adaptionen folgen werden. Andere große engli¬ 
sche Softwarehäuser wie Ocean und Melbourne House 
haben beim C16-Software-Geschäft bereits ihre Finger im 
Spiel. Man darf gespannt sein. 

Sportspiel-Nachschub 


Zu Redaktionsschluß war ein sehr interessantes Projekt in 
Arbeit, das in den nächsten Wochen auf den Markt kommen 
soll: »Winter-Olympiade« von Kingsoft. Das Spiel soll das 
etwas magere Angebot an Sport-Simulationen für den C16 
stark bereichern und hat sich den C64-Hit »Winter Games« 
als Vorbild genommen. Grafik und Sound können natürlich 
nicht so gut werden wie beim großen Computer-Bruder, aber 
für C 16-Verhältnisse soll »Winter-Olympiade« Maßstäbe set¬ 
zen. Unter den sechs bis acht Disziplinen sollen sich Ski- 
Slalom und Biathlon befinden. Ein eiskaltes Vergnügen recht¬ 
zeitig zum Frühlings-Beginn. (hl) 


Titel 

Splele-iyp 

Anbieter 

3D Time Trek 

Schießspiel 

J, K, R 

Ace 

Flugsimulation 

J, K, R 

Beach Head 

Schießspiel 

J, K, R 

Berks 

Schießspiel 

J, K, R 

Berks 3 

Schießspiel 

J, K, R 

BMX P»-=rs * 

Radrennen 

M, J 

Bongo Construotion Set 

Geschicklichkeit 

K 

C16's Classics 

Spiele-Sammlung 

J, K, R 

C16 Games Pack 1 

Spiele-Sammlung 

J, K, R 

Canoe Slalom 

Kanu-Slalom 

J, K, R 

Cave Fighter 

Geschicklichkeit 

J, K, R 

Dark Tower 

Geschicklichkeit 

J, K, R 

Defence 16 

Schießspiel 

J, K, R 

Favourite Four 

Spiele-Sammlung 

J, K, R 

Formula 1 Simulator * 

Autorennen 

M. J 

Galaxy 

Schießspiel 

K 

Ghost Town 

Geschicklichkeit 

K 

Grandmaster 

Schach 

K 

Hustler 

Billard 

J, K, R 

Invasion 2000 A.D. 

Schießspiel 

J, K, R 

Jump Jet 

Flugsimulation 

K 

Minipedes 

Schießspiel 

J, K, R 

Out on a Limb 

Geschicklichkeit 

J, K, R 

Petch 

Geschicklichkeit 

J, K, R 

Robin to the Rescue 

Geschicklichkeit 

J, K, R 

Rockman * 

Geschicklichkeit 

M, J 

Roller Kong 

Geschicklichkeit 

J, K, R 

Scramble 

Schießspiel 

J, K, R 

Spectipede * 

Schießspiel 

M, J ' 

Squirm * 

Geschicklichkeit 

J, K, R 

Star Commander 

Schießspiel 

J, K, R 

Thompson's Star Events 

Sportspiel 

J, K, R 

Tom 

Geschicklichkeit 

K 

Tutti Frutti * 

Geschicklichkeit 

M, J 

Vegas Jackpot * 

Spielautomat 

M, J 

Torpedo Run 

Schießspiel 

J, K, R 

Winter-Olympiade 

Sportspiel 

K 

Wizard & the Princess 

Geschicklichkeit/Strategie 

J, K, R 

World Cup Football 

Fußball 

J, K, R 


Die Programme und nähere Informationen gibl's bei folgenden Firmen: 

R = Rushware, An der GümpgeBbrücke 24, 4044 Kaarst 2 
K - Kingsoft, Schnackobusch 4, 5106 Roetgen, Tel. (02408) 5119 
M=> Mastertronic GmbH. Kaiser-Otto-Weg 18. 4770 Soest. Tel. (02921) 75028 
J = Joysoft, Humboldtstr. 84, 4000 Düsseldorf 1, Tel. (0211) 6801403 

* - »Billigspiel« für 9,90 Mark 
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SPIELE 


Auf der 
Rennstrecke 


Das erste Autorennen für den C16 ist da. »Turbo- 
Racer«, ein Spielprogramm mit Gangschaltung. 

T urbo-Racer« ist vollständig in Maschinensprache 
geschrieben und natürlich entsprechend flott. Wenn Sie 
das Programm (Listings 1 und 2) mit Hilfe des ein¬ 
gebauten Maschinensprachemonitors eingetippt haben, 
speichern Sie es am besten sofort (eingeben: S "TURBO- 
RACER", 1,2000,3E68 für Datasette; 

S "TURBO-RACER",8,2000,3E68 für Floppy). Das hat auch 
seinen Grund, denn schon beim geringsten Tippfehler kann 
das Programm in der Speicherwüste Ihres Computers ver¬ 
schwinden, oder das vorhandene Programm wird gar zer¬ 
stört. In der Tabelle 1 haben wir Ihnen die einzelnen Routinen 
des Programms aufgelistet. 

Starten Sie »Turbo-Racer« mit SYS 9506, und ein Menü 
empfängt Sie, um Ihnen die freie Wahl zwischen Tastatur und 
Joystick zu lassen. Nachdem Sie der Computer darüber in 
Kenntnis gesetzt hat, wie die Gänge zu schalten sind (Tabelle 


Joystick: 

Gang 1 

Feuer + Hebel nach hinten 


Gang 2 

Feuer 


Gang 3 

Feuer + Hebel nach vorne 

Tastatur: 

Gang 1 

A-Taste 


Gang 2 

S-Taste 


Gang 3 

D-Taste 


Steuerung: < = links 
> = rechts 

Tabelle 2. Bedienung von »Turbo-Racer« 

2), können Sie durch einen beliebigen Tastendruck mit dem 
Spiel beginnen. 

Ziel des Spiels ist es, mit Ihrem Fahrzeug so weit wie mög¬ 
lich zu kommen, ohne ein entgegenkommendes Auto oder 
die Leitplanke zu rammen. Mit der Zeit wird es immer schwie¬ 
riger, diese Aufgabe zu bewältigen, da die Fahrbahn immer 


ADRESSE 

VARIABLE/ROUTINE 

$2000-52048 

JOY/KEY-Abfrage + CRASH CHECK 

$2049-$209F 

Hindernisse erzeugen + SCORE und neue 
Parameter setzen 

$20A0-$20E3 

Initialisierung 

$20E4-$2139 

Fahrbahn erzeugen 

$201C-$202E 

Spielfigur löschen 

$2034-$203C 

Spielfigur POKEn 

$2247-$225F 

Zufallsgenerator/Zahl 

$2260 

Zahl von Zufallsgenerator 

$2267-52275 

Filtert Werte von Zufallsgenerator aus, Zufallszahl 
muß <=($2266) sein 

$2266 

Grenze für Zufallszahlen 

$2191-$21CE 

Routine zum SCORE setzen 

$24FB-$2521 

JOYSTICK-Abfrage von PORT 1/Wert in Y-Register 

$24C7-$24F8 

KEYBOARD-Abfrage und Ausführung 

$2522-$2590 

Anfangsbild PRINTen + KEY/JOY OPTION wählen 

$2441-$2462 

Neuen Zeichensatz einschalten und zu Spielstart 
springen 

$22E5 

Beginn der Hauptschleife (Spielanfang) 

$DA5E 

SCROLL-Routine (aus Betriebssystem) 

$D88D 

CLEARSCREEN-Routine 

$21 FF 

Position von Spielfigur (1 bis 40) 

$21 FE 

CRASH-FLAG 

$21 FC 

Anzahl der Hindernisse/Zeile 

$21F4 

Fahrbahnbreite 

$21F3 

FLAG für Richtung der Spielfigur (LI/MI/RE) 

$21F2 

Kurvenhäufigkeit 

$2200/$2201 

SCORE/LQW-HIGH 

$220E 

Wert für Verzögerung/geringer Wert - 
hohe Ablaufgeschwindigkeit 

$C6 

KEYBOARD-Buffer 

$E3CE 

Fragt STOP-Taste ab 

$EBD9 

GET-Routine/ASCII-Wert in Akku 

$2385-$23EF 

Tonerzeugen (Kopie von Betriebssystem) 

$B88 r ' 

Lautstärke setzen/davor Lautstärke in X-Register 
laden 

$03/$04 

Tonlänge (LOW-HIGH) 

$3BE3 

SOUND-Generator (1 bis 3) 

$3BE4/$3BE5 

Tonhöhe (LOW-HIGH) 

$FFD2 

Zeichenausgabe/ASCII-Wert in Akku 

$0C00 

Start des Bildschirmspeichers (Text) 


Tabelle 1. Routinen für »Turbo-Racer« 


schmaler wird, die Hindernisse zunehmen und die Spielge¬ 
schwindigkeit steigt. Zuletzt sind nur noch wenige Hinder¬ 
nisse auf dem Bildschirm, denn die Fahrbahn ist gerade noch 
so breit, daß Ihr Fahrzeug hindurchfahren kann. Aber probie¬ 
ren Sie es doch selbst. 

(Eduard Chen/kn) 


>2000 

AE 

FF 

21 

AD 

FD 

3F 

C9 

01 

>2008 

F0 

03 

4C 

0D 

24 

4C 

82 

24 

>2010 

A9 

20 

9D 

C0 

0F 

CA 

10 

01 

>2018 

E8 

4C 

27 

20 

A9 

20 

9D 

C0 

>2020 

0F 

ES 

E0 

28 

D0 

01 

CA 

BD 

>2028 

C0 

0F 

C9 

20 

F0 

06 

4C 

3D 

>2030 

20 

EA 

EA 

60 

A9 

00 

9D 

C0 

>2038 

0F 

8 E 

FF 

21 

60 

4C 

B2 

23 

>2040 

60 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

>2048 

EA 

A2 

00 

A9 

02 

AC 

FB 

21 

>2050 

E8 

99 

28 

0C 

98 

69 

07 

AB 

>2058 

A9 

02 

EC 

FC 

21 

D0 

Fl 

AC 

>2060 

01 

22 

AE 

00 

22 

ES 

8 E 

00 

>2068 

22 

E0 

FF 

D0 

04 

C8 

8 C 

01 

>2070 

22 

C0 

00 

D0 

04 

E0 

ca 

F0 

>2078 

19 

C0 

01 

D0 

04 

E0 

90 

F0 

>2080 

14 

C0 

03 

D0 

04 

E0 

20 

F0 

>2088 

0F 

C0 

04 

D0 

04 

E0 

B0 

F0 

>2090 

0A 

60 

4C 

4F 

21 

4C 

5C 

21 

>2098 

4C 

69 

21 

4C 

76 

21 

EA 

EA 


>20A0 

A9 

07 

8 D 

08 

22 

A9 

11 

8 D 

>20AB 

09 

22 

A9 

00 

BD 

FE 

21 

A9 

>20B0 

14 

8 D 

FF 

21 

A9 

01 

8 D 

FC 

>20B8 

21 

A9 

00 

8 D 

00 

22 

A9 

28 

>20C0 

39 

ED 

09 

22 

19 

69 

01 

BD 

>20CB 

0B 

22 

A9 

02 

8 D 

0A 

22 

A9 

>20D0 

90 

8 D 

04 

22 

A9 

01 

BD 

05 

>20D8 

22 

A9 

20 

8 D 

06 

22 

A9 

03 

>20E0 

8 D 

07 

22 

60 

AD 

02 

22 

38 

>20EB 

ED 

08 

22 

30 

38 

AE 

03 

22 

>20F0 

AD 

0A 

22 

C9 

00 

D0 

0D 

EB 

>20F8 

EC 

0B 

22 

D0 

01 

CA 

BE 

03 

>2100 

22 

4C 

0D 

21 

CA 

E0 

00 

D0 

>2108 

01 

E8 

8 E 

03 

22 

A9 

01 

9D 

>2110 

27 

0C 

AD 

09 

22 

18 

6 D 

03 

>2118 

22 

8 D 

0C 

22 

A9 

01 

AE 

0C 

>2120 

22 

9D 

27 

0C 

60 

AD 

0A 

22 

>2128 

C9 

00 

D0 

08 

A9 

01 

8 D 

0A 

>2130 

22 

4C 

ED 

20 

A9 

00 

8 D 

0A 

>2138 

22 

4C 

ED 

20 

A5 

C6 

C9 

38 


>2140 

D0 

09 

A9 

14 

A2 

08 

A0 

01 

>2148 

4C 

7F 

21 

C9 

3B 

D0 

09 

A9 

>2150 

0F 

A2 

OB 

A0 

02 

4C 

7F 

21 

>2158 

C9 

08 

D0 

09 

A9 

0B 

A2 

0F 

>2160 

A0 

02 

4C 

7F 

21 

C9 

OB 

D0 

>2168 

09 

A9 

08 

A2 

14 

A0 

03 

4C 

>2170 

7F 

21 

C9 

10 

D0 

C6 

A9 

04 

>2178 

A2 

1B 

A0 

01 

BC 

0E 

22 

BD 

>2180 

09 

22 

BE 

08 

22 

BC 

FC 

21 

>2188 

A9 

29 

3B 

ED 

09 

22 

8 D 

0B 

>2190 

22 

AD 

09 

22 

C9 

0F 

D0 

07 

>2198 

A0 

00 

A2 

C8 

4C 

CB 

21 

C9 

>21A0 

0B 

D0 

07 

A2 

90 

A0 

01 

4C 

>21 AB 

CB 

21 

C9 

08 

D0 

07 

A2 

20 

>21B0 

A0 

03 

4C 

C8 

21 

C9 

04 

D0 

>21B8 

07 

A0 

04 

A2 

B0 

4C 

C8 

21 

>21C0 

C9 

14 

D0 

0A 

A2 

00 

A0 

00 

>21C8 

BE 

00 

22 

BC 

01 

22 

AD 

01 

>21D0 

22 

60 

EA 

8 D 

0B 

22 

60 

AD 

>2108 

60 

22 

SD 

03 

22 

20 

67 

22 


Listing 1. »Turbo-Racer« (Teil 1). Bitte mit eingebautem Monitor eingeben. 
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>21E0 

AD 

60 

22 

8 D 

FB 

21 

A9 

64 

>2320 

D0 

F4 

AC 

FE 

3F 

00 

15 

D0 

>2460 

A9 

32 

85 

38 

A9 

3C 

SD 

13 

>21E8 

8 D 

66 

22 

20 

67 

22 

AD 

60 

>2328 

1A 

20 

00 

24 

A9 

0F 

A0 

F4 

>2468 

FF 

40 

E5 

22 

FB 

A9 

30 

BD 

>21F0 

22 

8 D 

02 

22 

20 

49 

20 

20 

>2330 

20 

84 

3B 

20 

85 

23 

20 

FA 

>2470 

13 

FF 

A9 

00 

BD 

12 

FF 

A9 

>21F8 

5E 

DA 

EA 

CB 

01 

EA 

00 

1A 

>2338 

23 

A9 

08 

A0 

00 

20 

84 

3B 

>2478 

00 

85 

33 

A9 

20 

85 

34 

4C 

>2200 

26 

00 

10 

0E 

90 

01 

20 

03 

>2340 

20 

85 

23 

00 

30 

D0 

1A 

20 

>2480 

E5 

22 

20 

FB 

24 

AE 

FF 

21 

>2208 

07 

11 

00 

18 

1F 

EA 

EA 

EA 

>2348 

00 

24 

A9 

0F 

A0 

A4 

20 

84 

>2488 

C0 

07 

D0 

03 

40 

10 

20 

00 

>2210 

AD 

01 

22 

C9 

05 

F0 

01 

60 

>2350 

3B 

20 

85 

23 

20 

FA 

23 

A9 

>2490 

03 

D0 

03 

4C 

IC 

20 

00 

61 

>2218 

A9 

14 

CD 

00 

22 

D0 

FB 

A2 

>2358 

02 

A0 

30 

20 

84 

3B 
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VC 20 + 16 KByte 


SPIELE 


Das Boot - Ein tolles Spiel 
für den VC 20 


Sie kennen den Spielfilm »»Das Boot«? Der Film 
wird durch dieses Programm simuliert. Lassen 
Sie sich die ausgezeichneten grafischen und 
akustischen Effekte nicht entgehen. Spielen Sie 
U-Boot-Kommandant von U-96. 

A ls Kommandant von U-96 haben Sie und Ihre Mann¬ 
schaft die Sinnlosigkeit des Krieges erkannt und wol¬ 
len zurück in die Heimat. In einem unterirdischen 
Höhlensystem von Gibraltar müssen Sie den Minen und Fel¬ 
sen ausweichen. Die Aufgabe besteht nun darin, die Proviant¬ 
pakete einzusammeln, die von Deutschen für Sie ausgelegt 
sind. Ein Spiel für den VC 20 mit 16 KByte Speichererwei¬ 
terung. 

Erklärung der drei Szenen: 

Szene 1: Es ist Tag, es ist nur ein Proviant ausgelegt. 
Szene 2: Es ist Nacht, es sind zwei Proviantpakete 
vorhanden. 

Szene 3: Sie tauchen in die Tiefe, es sind fünf 
Proviantpakete vorhanden. ’ 

Erklärung der CHANGE STAGE jeweils nach einer Szene: 
Nummer 1: Sie müssen den verrückt gewordenen Johann 
zur Vernunft bringen. 6*6R C 


Nummer 2: Sie müssen entscheiden, wieviel Proviant¬ 
pakete sie einem zweiten U-Boot abgeben. 
Nummer 3: Sie sind zu tief getaucht und müssen an die 
Oberfläche. Geben Sie Ihren lüsungswunsch 
1, 2 oder 3 ein. 

Die CHANCE STAGE ist eine Texteinlage, die Abwechslung 
in das Actionspiel bringt. 

Geben Sie vor dem Abtippen im Direktmodus ein: 

1) POKE 44,28:POKE 28*256,0:NEW 

2) Tippen Sie den »BOOT«-Lader (Listing 1) ab. 

3) Speichern Sie diesen. 

4) Geben Sie NEW ein. 

5) Tippen Sie das Hauptprogramm (Listing 2) ab. 

6) Speichern Sie es unter dem Namen »Das Boot«, da der 
Lader auf diesen Namen programmiert ist. 

Wenn Sie nach dem Abtippen nun endlich spielen wollen, 
ist wie folgt vorzugehen: 

1) Geben Sie im Direktmodus ein: 

POKE 44,28:POKE 28*256,0:NEW 

2) Laden Sie jetzt den Lader, und wenn der Cursor wieder 
blinkt, einfach die RETURN-Taste drücken. Das Haupt¬ 
programm wird automatisch nachgeladen. 

3) Jetzt brauchen Sie nur noch starten und können, ohne 
sich zu langweilen, stundenlang spielen. 

. (C.M. Grzibek/R. Desideri/ah) 


0 PRINT"£CLR,2DDWN > LOAD"EHR* < 34) "DAS BOOT" 

CHR* <34)",8"|sPRINT"£HQME>"; <157> 

1 F0R 1=256 T0 264sPQKE 5120+1,0:NEXT <066> 

2 FOR 1-0 TO 1463s READ AsPOKE 5120+1,AiNEX 

Ts NEW <020> 

9 DATA 0,0,0,0,0,0,0,0 <1B3> 

10 DATA 63,63,51,51,63,115,115,115 <194> 

11 DATA 62,51,51,60,51,115,127,126 <122> 

12 DATA 63,63,51,49,4B,115,127,127 <06B> 

13 DATA 60,62,51,51,51,115,127,127 <061> 

14 DATA 63,63,51,60,60,115,127,127 <094> 

15 DATA 63,63,48,60,60,112,112,112 <107> 

16 DATA 63,63,51,48,55,115,127,127 <197> 

17 DATA 51,51,51,63,63,115,115,115 <176> 

10 DATA 63,63,2B,2B,2B,124,127,127 <055> 

19 DATA 30,30,6,6,102,103,127,63 <134> 

20 DATA 51,54,60,56,56,124,118,115 <000> 

21 DATA 40,48,40,48,46,115,127,127 <170> 

22 DATA 49,59,63,53,49,113,113,113 <23B> 

23 DATA 51,59,63,55,51,115,115,115 <113> 

24 DATA 63,63,51,51,51,115,127,127 <24B> 

25 DATA 62,63,51,63,62,112,112,112 <173> 

26 DATA 63,63,51,51,55,118,127,123 <23B> 

27 DATA 63,63,51,63,63,124,110,115 <030> 

2B DATA 30,63,56,30,7,115,127,126 <048> 

29 DATA 63,63,12,12,12,28,20,20 <070> 

30 DATA 51,51,51,51,51,115,127,127 <149X 

31 DATA 51,51,51,51,51,115,126,124 <101> 

32 DATA 49,49,49,49,53,127,123,113 <072> 

33 DATA 51,51,51,51,12,115,115,115 <236> 

34 DATA 102,102,102,24,24,120,126,126 <246> 

35 DATA 63,63,6,12,24,112,127,127 <224> 

50 DATA 120,175,255,255,31,31,255,127 <149> 

60 DATA 119,121,119,126,127,121,127,127 <246> 

70 DATA 127,127,127,127,127,127,127,127 <1B4> 

00 DATA 127,126,255,191,191,209,255,255 <094> 

90 DATA 0,223,223,159,191,255,255,129 <223> 

91 DATA 0,0,0,0,0,0,0,0 <009> 

100 DATA 128,128,128,0,129,255,255,255 <250> 

109 DATA 0,0,0,0,0,0,0,0 <027> 

110 DATA 255,255,255,255,255,129,12B,128 <239> 

120 DATA 128,0,1,255,255,255,255,255 <030> 


130 DATA 0,252,255,255,251,247,255,255 <020> 

140 DATA 255,255,255,255,255,255,255,254 <220> 

150 DATA 252,24B,255,255,191,223,223,255 <206> 

160 DATA 255,255,255,127,255,255,191,156 <171> 

170 DATA 3,3,3,131,195,199,231,231 <092> 

180 DATA 224,227,231,239,207,159,159,31 <031> 

190 DATA 31,31,15,159,223,255,255,255 <023> 

200 DATA 255,255,255,207,207,135,3,0 <154> 

210 DATA 227,225,255,255,255,255,255,178 <1B4> 

220 DATA 255,255,255,255,253,248,248,248 <073> 

225 DATA 248,248,24B,248,24B,248,248,248 <139> 

230 DATA 126,126,102,102,102,102,126,126 <124> 

231 DATA 12,28,60,124,12,12,12,12 <052> 

232 DATA 126,126,102,110,28,56,126,126 <166> 

233 DATA 126,126,6,62,62,6,126,126 <198> 

234 DATA 96,96,10B,126,126,12,12,12 <050> 

235 DATA 126,126,96,126,126,6,126,126 <14B> 

236 DATA 126,126,96,126,126,102,126,126 <004> 

237 DATA 126,126,102,14,28,56,48,48 <107> 

238 DATA 126,126,102,126,126,102,126,126 <046> 

239 DATA 126,126,102,126,126,6,126,126 <0B1> 

240 DATA 248,253,255,255,223,215,243,243 <19B> 

250 DATA 255,255,254,254,231,195,129,0 <1B2> 

260 DATA 240,254,253,255,249,249,255,255 <031> 

270 DATA 235,255,239,247,255,255,255,255 <19B> 

280 DATA 255,253,255,191,191,255,254,248 <132> 

290 DATA 255,255,127,54,127,247,231,0 <121> 

300 DATA 1,7,15,159,159,255,255,253 <0S9> 

310 DATA 255,255,255,239,239,223,255,255 <234> 

320 DATA 255,255,253,159,159,15,7,1 <084> 

330 DATA 143,251,252,255,127,95,207,0 <167> 

340 DATA 255,255,235,255,191,251,241,241 <191> 

330 DATA 225,225,223,223,161,193,225,225 <032> 

360 DATA 241,251,255,223,191,255,255,253 <213> 

370 DATA 240,248,248,248,248,240,224,0 <199> 

380 DATA 240,233,235,255,239,239,247,235 <179> 

390 DATA 255,255,255,255,223,255,247,255 <154> 

400 DATA 255,255,253,247,247,254,252,240 <170> 

410 DATA 0,0,3,15,31,31,31,31 <169> 

420 DATA 31,255,255,247,251,255,255,255 <118> 
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430 DATA 159,159,139,159,191,189,191,191 <119> 
440 DATA 191,175,175,63,63,31,15,3 <048> 
450 DATA 0,120,200,248,152,248,248,248 <007> 
460 DATA 255,255,255,207,255,255,255,252 <025> 
470 DATA 248,248,240,248,248,240,248,248 <113> 
480 DATA 248,255,255,255,253,205,243,0 <080> 
490 DATA 12B,128,12B,128,128,128,128,0 <200> 
300 DATA 0,128,128,0,128,128,128,0 <01B> 
510 DATA 0,7,1,1,7,3,3,0 <041> 
520 DATA 3,3,3,3,3,3,3,3 <184> 
530 DATA 0,231,255,255,255,243,243,243 <111> 
540 DATA 115,243,243,243,243,243,243,227 <044> 
550 DATA 0,128,192,224,240,240,144,241 <1B0> 
560 DATA 247,255,255,235,255,240,227,199 <070> 
570 DATA 0,0,0,0,0,0,24B,252 <223> 
580 DATA 254,255,255,191,31,255,255,255 <051> 
590 DATA 0,0,0,0,0,0,15,31 <214> 
600 DATA 63,127,255,232,234,234,233,191 <013> 

610 DATA 0,0,0,0,0,0,224,240 <173> 

611 DATA 0,0,0,0,0,0,0,0 <021> 
620 DATA 248,248,248,24B,248,0,0,192 <192> 
10020 DATA 0,0,3,63,117,63,0,0 <227> 
10022 DATA 0,196,200,254,87,254,0,0 <161) 
10024 DATA 0,0,1,31,58,31,0,0 <210) 
10026 DATA 0,98,228,255,171,255,0,0 <079) 
10028 DATA 0,0,0,0,128,0,0,0 <195> 
10030 DATA 0,0,0,13,29,15,0,0 <087> 
10032 DATA 0,49,242,255,83,255,0,0 <051> 
10034 DATA 0,0,0,128,192,128,0,0 <098> 
10036 DATA 0,0,0,7,14,7,0,0 <194) 
1003B DATA 0,24,121,255,170,255,0,0 <088) 
10040 DATA 0,128,0,192,224,192,0,0 <194) 
10042 DATA 0,0,0,3,7,3,0,0 <212) 
10044 DATA 0,12,60,255,85,235,0,0 <194> 
10046 DATA 0,64,128,224,112,224,0,0 <184) 
10048 DATA 0,0,0,1,3,1,0,0 <11B> 
10050 DATA 0,6,30,255,170,255,0,0 <038) 
10052 DATA 0,32,64,240,184,240,0,0 <143> 
10054 DATA 0,0,0,0,1,0,0,0 <074) 
10056 DATA 0,3,13,255,213,255,0,0 <016> 
10058 DATA 0,16,32,24B,92,248,0,0 <200) 
10100 DATA 0,3,63,117,63,0,0,0 <026) 
10102 DATA 196,200,254,87,254,0,0,0 <219) 
10104 DATA 0,0,0,0,0,0,0,196 <011) 
10106 DATA 3,63,117,63,0,0,0,0 <026> 
10108 DATA 200,254,87,254,0,0,0,0 <073> 
10110 DATA 0,0,0,0,0,0,0,3 <128) 
10112 DATA 0,0,0,0,0,0,196,200 <095) 
10114 DATA 63,117,63,0,0,0,0,0 <155) 
10116 DATA 254,87,254,0,0,0,0,0 <152) 
10118 DATA 0,0,0,0,0,0,3,63 <219) 
10120 DATA 0,0,0,0,0,196,200,254 <15B> 
10126 DATA 117,63,0,0,0,0,0,0 <148) 
10128 DATA 87,254,0,0,0,0,0,0 <206) 
10130 DATA 0,0,0,0,0,3,63,117 <176) 
10132 DATA 0,0,0,0,196,200,254,87 <166) 


10134 DATA 63,0,0,0,0,0,0,0 <024) 
10136 DATA 254,0,0,0,0,0,0,0 <230) 
10138 DATA 0,0,0,0,3,63,117,63 <05S> 
10140 DATA 0,0,0,196,200,254,87,254 <208) 
10142 DATA 0,0,0,3,63,117,63,0 <1B9> 
10144 DATA 0,0,196,200,254,B7,234,0 <115) 
20000 DATA 0,0,0,45,111,255,255,255 <240) 
20002 DATA 0,8,24,59,127,255,255,255 <123) 
20004 DATA 0,0,0,144,248,252,252,254 <210) 
20006 DATA 254,254,252,248,252,254,254,252 <015) 
2000B DATA 252,248,240,224,192,252,252,254 <118) 
20010 DATA 252,254,255,255,255,255,255,233 <182) 
20012 DATA 31,127,127,255,255,255,255,255 <155) 
20014 DATA 63,127,63,63,127,15,31,63 <057) 
20016 DATA 15,31,15,7,1,3,7,31 <221) 
20018 DATA 63,127,63,63,63,127,45,0 <100> 
20020 DATA 255,254,252,254,255,254,126,34 <185) 
20022 DATA 17,63,127,63,127,255,127,63 <153> 
20024 DATA 255,255,255,255,254,188,24,8 <16B> 
20026 DATA 195,36,24,253,90,233,0,0 <099) 
20028 DATA 255,255,255,255,255,255,255,235 <042) 
21002 DATA 0,0,4,61,113,55,0,0 <154) 
21004 DATA 2,68,128,222,71,246,0,0 <110) 
21006 DATA 192,97,0,13,65,237,192,0 <048) 
21008 DATA 48,3,7,174,36,128,48,24 <037) 
21010 DATA 48,97,192,1,36,116,48,0 <093) 

21012 DATA 130,198,128,33,18,0,6,6 <113) 

21013 DATA 0,0,0,0,0,0,0,0 <103) 

21014 DATA 31,43,85,251,173,250,172,248 <209> 
21020 REM VERB. U-BOOT <230) 
21030 DATA 0,136,144,252,174,252,0,0 <203) 
21040 DATA 0,1,7,127,234,127,0,0 <232) 
21100 DATA 0,0,24,60,24,0,0,0 <071) 
21110 DATA 132,68,36,18,11,7,207,63 <120) 
21120 DATA 65,66,132,136,208,224,243,252 <067) 
21130 DATA 15,31,39,203,18,36,72,136 <166) 
21140 DATA 240,248,228,211,72,68,34,33 <032) 
21150 DATA 15,30,60,124,120,248,240,240 <189) 
21160 DATA 240,240,248,120,124,60,30,15 <190) 
21170 DATA 16,16,56,254,56,16,16,0 <172) 
21180 DATA 0,0,0,0,4,46,127,255 <138) 
21190 ”'|TA 1,1,3,71,79,239,255,255 <172) 
21200 DATA 128,128,192,226,224,247,255,255 <251) 
21210 DATA 129,131,195,225,231,239,239,255 <138) 
21220 DATA 3,15,47,119,251,253,253,254 <029) 
21230 DATA 0,60,126,255,255,255,255,127 <185) 
21240 DATA 0,60,126,127,255,255,255,255 <195) 
21250 DATA 0,60,126,255,255,255,255,254 <127) 
21260 DATA 127,255,255,255,255,126,60,0 <130) 
21270 DATA 255,255,255,255,254,124,56,0 <184) 
21280 DATA 254,255,255,255,255,126,60,0 <159) 


© 64'er 

Listing 1. Lader zum Programm »Das Boot« (Schluß) 


0 DIM X*<17>,Y*<20>,Z*(23>,SN(176),SD(133) 

,SA(66),3Q(92) 

10 QW«36S7B s ER-36B77 s TY-36075 1 UI»36879 1 LE- 
1« XY»4102iYX-41031A*=CHR*(147)iZX»36876 

11 KL“3607411II»7501 PI»500 

200 PRINT A*iP0KE UI,B:P0KE 36869,205:Q03U 
B 229 

210 DÜSÜB 5000 

220 BOSUB 52000sGOSUB 52100iQOSUB 53000s80 
SUD 52600:GOTO 315 

229 X*<0>”"CCLR,BLACK,RVOFF)TTTTTT SCCSPAC 

E, RV0FP,4SPACE)U1C65PACE)" 

230 X*(l>=" C3D0WN,10SPACE,RVSON)123 CRVDFF, 
4SPACE, RVSON ) 7.8. CRVOFF, 3SPACE ) " 

231 X*(2)="C10SPACE,RVSON>456CRVOFF,4SPACE 
, RVSON) ' ( CRVOFF , 3SPACE) ’’ 

232 X*<3>="C2D0WN,2SPACE,RVSON>123CRVOFF,4 
SPACE,RVSON) 0.CRVOFF,10SPACE)" 

233 X*(4>="C2SPACE,RVSDN)456 CRVDFF,3SPACE, 
RVSON)-YYY.CRVOFF,SPACE,RVSON),CRVO 
FF,4SPACE)" 

234 X*(5)»"C7SPACE,RVSON) YYYYYVYY/Y.CRVOF 

F, 3SPACE)" 

235 X $(6)="C5SPACE,RVSON 3 0YYYYYYYYYYYY.,, 
CRVOFF)" 


<203) 

<063) 

< 081 ) 

<138) 

<198> 

<119) 

<173) 

<023) 

<052) 

<133) 

<133) 
< 181 > 
<125) 


236 X*<7>="CSPACE,RVSON), . YYYYYYYYVYVYYY 

YYYCRVOFF)" <024) 

237 X*<8>“"CRV30N) WWWWWYYWWWWWWWYYYWWWWCR 

VOFF)" <028) 

230 x*<9)-"a@@a@acRvsoN)RNX crvoff) aeaaaa cr 

V50N)SY0 CRVOFF)000 " <209) 

239 X*(10)-"CRVSONJKKMXCRVOFF)90CRV3ON)SOC 

RVOFF 3 @@9 CRVSON 3 X CRVOFF 3 @@@ CRVSON 3 RYO C 

RVOFF)@0 CRVSON)KK CRVOFF)" <165) 

240 X*(11)»"CRVSON)YYN CRVOFF)090CRVSON)RN C 

rvoff) aee crvson)vp crvoff)® a crvson)syn c 

RVOFF)@0CRVSON)RYCRVOFF)" <062) 

241 X*<13>-"CRVSON3YYNCRVOFF)a@SCRV30N)TUX 
CRVOFF)@@ CRVSON)RN CRVOFF)@9 CRVSON)TWU C 
RVOFF)@9 CRVSON)RY CRVOFF,RVSON)YYO CRVOF 
f) aaeaeaaa crvson >sdcrvoff) aseaeaa crvso 

NJRYCRVOFF >" <188 > 

242 X»(12)=" CRVSON >YYO CRVOFF )@@ CRVSON )XSOC 

rvoff) eae crvson)rn crvoff > @@ crvson >ryoc 
RVOFF)@9 CRVSON)SY CRVOFF)" <216) 

243 X*(14)="CRVSON)YYPKLKLMCRVOFF>99 CRVSON 
)VQOCRVOFF)@9 CRVSON)X CRVOFF)0098 CRVSON 

)RYCRVOFF)" <147) 
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244 X*(15)="CRVS0N)YYYYYYYN!!RYNCRVOFF3@@@ 

@@@@ crvson j-sy crvoff 3" < a 19> 

245 X* <16)="CRVS0N3YYYYYYYYKLYYPLKLKLKKQ" <119> 

246 Y*(0 >-"CCLR,CYAN,RVOFF 3 TtTtTT SCCSPACE 

,RVOFF,4SPACE3HIC 6 SPACE)" <254> 

247 Y*(l>="{SPACE,RVSON3 *CRVOFF,20SPACE3" <0B4> 

24B Y*(2>="C5SPACE,RVS0N3*CRV0FF,7SPACE,RV 

SDN 3 +CRVOFF, 6 SPACE,RVSON 5 * CRVOFF,SPACE 
}" <087> 

249 Y* (3)■“CDCWN,3SPACE,RVB0N3) CRVOFF,3SPA 
CE,RVSON)* CRVOFF,6SPACE,RVSQN3* CRVOFF, 

5SPACE)" <081> 

230 Y* < 4)-"C3SPACE,RVSON 3 ** CRVOFF,12BPACE, 

RVSON 3 + CRVOFF,4SPACE >" <21B> 

251 Y*(5) “"(DOWN,SPACE,RVSON 3 + CRVOFF,1BSPA 

CE,RVSON>♦-CRVOFF3" <210> 

252 Y*( 6 )-"C5SPACE,RVSON)*CRVOFF,SPACE,RVS 

ON)+ CRVOFF,10SPACE,RVSON)* CRVOFF,SPACE 
,RVBON)-YCRVOFF3" <115> 

253 Y*<7>-"C10SPACE,RVSON)-/.CRVOFF,4SPACE 

,RVSON)-,0YYCRVOFF)" <119> 

254 Y* < 8 > ="CRVSON). CRVOFF,SPACE,RVSON 3 * CRV 

OFF, 2SPACE, RVSON )--. CRVOFF, 2SPACE, RVSON 
J-YYY.,.0YYYYYCRVOFF)" <117> 

255 Y*(9)="CRVS0N3Y.,,-YY.-YYYYYYYYYYYYY CR 

VQFF)" <242> 

256 Y*<10)CRVSON)YWWYYWWYYWWWWWWWWWWWWY C 

RVOFF)" <077> 

257 Y*(11)="CRVSON)N CRVOFF)@ 8 CRVSON)SNCRVD 

FF)@0 CRVSON)R0 CRVOFF 3 000000000000 CRVSO 
N)RCRVOFF)" <032> 

250 Y*(12)-"CRVSON)N CRVOFF)@0 CRVSON 3 TU CRVO 
FF)@@ CRVSON)SO CRVOFF)00 CRVSON)VMLCRVOF 
F 3 @0 CRVSON 3 KLL CRVOFF 3 00 CRVSON)S CRVOFF) 

>• <062> 

259 Y* (13) = " CRVSON30 CRVOFF3 00000CRVSON3XRN 

CRVOFF 3 @0 CRVSON3 SYO!'SYN CRVOFF 3 00 CRVSO 
N)SCRVOFF)" <114> 

260 Y*(14>=" CRVSON3N CRVOFF)@@CRVSON)X CRVOF 
F3 @00 CRVSON3 RO CRVOFF)@0 CRVS0N3SYYYYYYO 

CR VOFF ) 00 CRVSON 3 R CRVOFF ) " < 008 > l 

261 Y*(15)=" CRVSON 30 CRVOFF 3 @0 CRVSON 3 VM CRVO 
FF)@0 CRVSON 3 TU CRVOFF 3 @0 CRVS0N3RYYWWWWU 

CRVOFF 3 00 CRVSON 3 SCRVOFF)" <163 > 

262 Y*(16)= "CRVSON30 CRVOFF)00 CRVSON)SN CRVO 

FF)@00000 CRVSON 3 SYO CRVOFF 30000000 CRVSO 
N3RCRV0FF)" <201> 

263 Y*(17)=" CRV30N3N CRVOFF) 00 CRVS0N3R0 CRVO 

FF)@00000 CRVSON 3 RYNCRVOFF 3 @00 CRVSON 3VL 
KLYCRVOFF3" <004> 

264 Y* (18)=" CRVSQN30 CRVDFF 3 00 CRV50N3SYLKKM 

CRVOFF 3 00 CRVSON 3 RYO CRVOFF 3000 CRVSON 3 TW 
WWWCRVOFF3" <136> 

265 Y*<19)-"CRVS0N3N CRV0FF3 @0 CRVS0N3SYYYY0 

!!SYOCRVOFF3@000000 " <131> 

266 Y*<20>="CRV30N3 YKLYYYYYYKLYYYLKLLKLL CR 

VOFF)" <11B> 

267 Z*(0)-"CCUR,YELLOW,RVOFF 3 TTTTTT SCCSPA 

CE,RVOFF,4SPACE3HIC6SPACE3" <021> 

268 Z*(1> «"CRVSON3WWWWWWYYYYYYYYYYYYYYYY CR 

VOFF)" <237> 

269 Z* C 2)-"000000 CRVSON 3 TWWWWWWYYWWWWWYY CR 

VOFF)" <028> 

270 Z* C 3)-"aaCRVSON3QM CRVOFF 3 @00000000 CRVS 

0N3TU CRVOFF)00000CRVS0N3RY CRVOFF)" <156> 

271 Z* <4)“"CRVSON3KLYN CRVOFF300000 CRVSON)V 

P{RVOFF)@@@@@@@@@{RVSON)5Y(RVDFF)" < 047 > 

272 Z*(5)•"CRVS0N3YWWU CRVOFF)0@CRVSON)VKLY 

YKLLKKLM CRVOFF 3 @0 CRVSON 3 SY CRVOFF 3" < 052 > 

273 Z*( 6 )="CRVSON)N CRVOFF)0@0@@ CRVSON 3 RYYY 

YYYYYYYOCRVOFF)@0 CRVSON)TW CRVOFF 3" <1043 

274 Z*(7)="CRVSON)0 CRVOFF30QCRVSON3KLKYYYY 

YYYYYYYUCRVOFF3000 " <077> 

275 Z*(B)-"CRVSON)NCRVOFF300CRVSON3TWWWWWY 

YWWWYYN!!VLKCRVOFF3" <065> 

276 Z*(9)-"CRVSON30CRVOFF300000000CRVSON)T 

U CRVOFF30@aCRVSON3RY0 CRVOFF 3 @0 CRVS0N3S 
YYCRVOFF3" <0313 

277 Z*(10>-"CRVSON)N CRVOFF 3 @000CRVSON 3QMCR 

VOFF 3 0000000 CRVSON)SYNCRVOFF 3 @0 CRVSON 3 
RYYCRVOFF)" <237> 

278 Z*(ll>-"CRVSON30 CRVOFF300CRVSON3VLYYKL 

KLMCRVOFF300CRVSON 3 RYO CRVOFF 3 @0 CRVSON 3 
SYYCRVOFF3" <031> 


B 


279 Z*(12)-"CRVSON3NCRVOFF300CRVSON3SYYYYY 
YYN CR VOFF 3 @0 CR VSON 3 SYN CR VOFF 3 00 CR VSON 3 

RYYCRVOFF3" <141> 

280 Z*(13)="CRVS0N3NCRVOFF)@0(RVSON)SYWWYW 
WWU CRVOFF 3 00 CRVSON 3 SYN CRVOFF 3 @0 CRVSON 3 

SYYCRVOFF)" <010> 

2B1 Z* (14) -" CRVS0N30 CRVDFF300CRVSON3RN! !S! 

!CRVOFF 3 @000 CRVSON 3RY0 CRVOFF 3 @@ CRVSON 3 

SYYCRVOFF3" <068> 

282 Z*<15>-"CRVS0N3N CRVOFF 3 @0 CRVSQN3S0 CRVO 
FF 3 00 CRVSON 3RKLLKLKQYN CRVOFF 3 00 CRVSON 3 

RYYCRVOFF3" <1033 

283 Z*(16)—"CRVSON3 0 CRVOFF 3 00CRVSON3TUCRVO 
FF ) aa CRVSCJN 3 TWWWWWWY YO CRVOFF 3 00 CRVSON 3 

SYYCRVOFF3" <0633 

284 Z * (17 > “ "CRVSaN)NCnVOFF3aae@00Q8@@@@@CR 

VSON3TWU CRVOFF)@0 CRVSON3RYY CRVOFF 3" <052> 

285 Z*(18)-"CRVSON 30!!VLKMVMCRVOFF 3 @@@@@00 

000CRVSON3TYYCRVOFF)“ <174> 

286 Z*(19)—"CRVS0N3YKLYYYYYN CRVOFF 3 00 CRVSO 

N 3 VKLLKLKM CRVOFF 3 0 CRVSON 3 SY CRVOFF 3" < 062> 

287 Z*(20)-"CRVSON)YYYYYYYYN CRVOFF300CRVSO 

N3SYYYYYYYLYYCRVOFF3" <024> 

288 Z*(21> = "CRVSON)YYYYYYYYO!!RYYYYYYYYYY C 

RVOFF3" <042> 

289 Z*<22>-"CRVSON)YYYYYYYYYKLYYYYYYYYYY CR 

VOFF)"!RETURN <006> 

300 FOR W=0 TO 22cPRINT Z*(W>j:NEXT:POKE 4 

601,1531 END <173> 

315 IF LE“1 TUEN PRINT A*:POKE UI,B:BOTO 5 

2300 <197> 

316 IF LE=2 THEN PRINT A*:POKE UI,BsBOTO 6 

0000 <142> 

317 IF LE=3 THEN PRINT A*:POKE UI,Bl GOTO 5 

2400 <103> 

318 IF LE=4 THEN PRINT A*:POKE UI,8sB0T0 6 

1000 <033> 

319 IF LE=5 THEN PRINT A*:POKE UI,8:GOTO 5 

2500 <010) 

!0 TF LE—6 THEN PRINT A*iPOKE UI,GsGOTO 6 

-”']0 <179> 

730 POKE 37154,127iIF PEEK(37152)=119 THEN 

GOTO 1100 <064> 

740 POKE 37154,255:J-PEEK(37151):IF(J AND 

4)-.THEN GOTO 800 <130> 

750 IF(J AND 8) =.THEN GOTO 900 <0573 

760 IF(J AND 16)=.THEN BOTD 1000 <000> 

792 GOTO 730 <054> 

800 IF PEEK(A-22)=161 THEN GOBUB 2500!GOSU 

B 3000:GOTO 730 <094> 

820 IF PEEK(A-22)OR PEEK(B-22)<>0 THEN BOT 

0 1300 <121> 

840 D-123 <0253 

850 POKE A, 118:POKE B,U9:P0KE B-22,120:PO 

KE A,121:POKE B,122 <190) 

855 FOR T=1 TO 3:POKE A-22,D:P0KE B-22.D+1 
:POKE A,D+2:POKE B,D+3:D=D+4:NEXTiPOKE 
A,0:POKE B,0:A-A-22 <002) 

857 B-B-22 <059) 

860 POKE A,135:POKE B,136:P0KE A,137:P0KE 
B,138:POKE A,9B:P0KE B,99:G0SUB 4000:G 
OTO 1700 <20B> 

900 IF PEEK(A+22)=161 THEN GOSUB 2600:GOSU 

B 30001 GOTO 730 <010> 

910 IF PEEK (A+22) OR PEEK (B *22)00 THEN BOT 

0 1500 <083 > 

730 F-131 <0273 

935 POKE A,137:POKE B,13B:P0KE A,135:P0KE 

B,136 <185) 

940 FOR T-l TO 3:POKE A,F:POKE B,FH:POKE 

AI22,F+2IP0KE Bt22,F+3:F-F-4iNEXT <097> 

945 POKE A,0:POKE B,0:A-AK22:B-B+22:POKE A 
,118:POKE B,119:POKE A,9B:P0KE B,99:G0 
SUB 4000:GOTO 1B00 <0523 

1000 IF PEEK(A 11-161 TUEN GOSUB 2700:GOSU 

B 3000:GOTO 730 <042) 

1020 IF PEEK (A-1)00 THEN GOTO 1500 <106> 

1030 E=117 <190) 

1035 POKE B,162:POKE A,163 <133) 

1040 FOR T=1 TO 6:POKE B,E:POKE A,E-1:P0KE 

A—1,E -2:E—E—3iNEXT <095> 

Listing 2. Hauptprogramm zum Superspiel »Das Boot« 
(Fortsetzung) 
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SPIELE 


VC 20 + 16 KByte 


1050 

POKE B,0iA=A--l:B=B-i:POKE A,98:POKE B 


8010 DATA 0,0,0,0,0,0,1,0,7,1,13,5,0,2,25, 



,99 

<236> 

0 ,0,0,0,0,0,0 

<244) 

1060 

GOSUB 4000:8070 1900 

<136> 

8020 DATA 0,0,0,0,18,15,7,5,18,0,4,5,19,9, 


1100 

IF PEEK(B*l>-32 TUEN LE-LE+1:GOTO 315 

<17B> 

4,5,18,9,0,0,0,0 

<248) 

1110 

IF PEEK (B+1)00 TUEN GOTO 1500 

< 166> 

8030 DATA 0,0,0,0,0,0,0,0,0,1,14,4,0,0,0.0 


1119 

Ol 00 

<046> 

,0,0,0,0,0,0 

<253) 

1120 

FOR T-l TO 6:POKE A,C:POI<E B,C+liP0KE 


8040 DATA 0,0,0,0,13,1,18,20,9,14,0,7,18,2 



B*1, C12:0031NEXT i POKE A, 0 

< 135) 

6,9,2,5,11,0,0,0,0 

<045) 

1123 

A=A*1:B=B*1:P0KE A,163:P0KE B,162 

<092) 

8050 DATA 0,13,21,19,9,3,0,20,18,1,14,19,1 


1130 

POKE A,98:POKE B,99:GOSUB 4000:GOTO 2 


2,1,20,5,4,0,2,25,0,0 

<050) 


000 

<044> 

8060 DATA 0,0,0,14,15,18,2,5,18,20,0,7,1B, 


1500 

POKE A,154tPOKE B,155tPOKE QW,10tPOKE 


26,9,2,5,11,0,0,0,0 

<050) 


ER,151:FOR 1-1 TO 400:NEXT:POKE QW,0 

<210> 

8070 DATA 0,0,0,16,18,5,19,19,0,6,9,18,5,0 


1501 

POKE A,156 t POKE B,157:P0KE QW,5 

<095) 

,2,21,20,20,15,14,0,0 

<229) 

1502 

FOR T-l TO 400:NEXT 

< 1767 

9000 DATA 0,0,0,0,0,0,0,0,0,B5,87,89,91,93 


1503 

POKE A,158:POKE B,159:P0KE QW,15:F0R 


,95,0,0,0,0,0,0,0 

<026) 


T—0 TO 400: NEXT; POKE QW,0:POKE A.0.-PO 


9010 DATA 0,0,0,0,0,0,0,0,0,86,88,90,92,94 



KE B,0:POKE ER,0 

<015> 

,97,0,0,0,0,0,0,0 

<163) 

1510 

IF LE"1 TUEN A-4404:B—4405:POKE A,98t 


9020 DATA 0,0,0,0,0,0,27,31,37,41,45,59,63 



POKE B,99 

<01B> 

,67,71,75,79,0,0,0,0,0 

<141) 

1520 

IF LE—3 TUEN A"4559:B-4560:POKE A,9Bt 


9030 DATA 0,0,0,0,0,0,28,33,38,42,46,60,64 



POKE B,99 

< 121 > 

,68,72,76,80,83,0,0,0,0 

<135) 

1530 

IF LE-5 TUEN A-4162:B-4163:POKE A,98: 


9040 DATA 0,0,0,0,0,0,29,35,39,43,47,61,65 



POKE B,99 

<051 > 

,69,73,77,81,0,0,0,0,0 

<030) 

1532 

Pi—PI -100: PRINT'* (HOME, 9RIGHT ,PURPLE>" 


9050 DATA 0,0,0,0,0,0,30,36,40,44,58,62,66 



«PI 

<212> 

,70,74,78,82,84,0,0,0,0 

<033) 

1544 

XY—XY--2: YX—YX 2: POKE XY,0:POKE YX,0 


10000 DATA 0,0,0,0,0,0,12,5,22,5,12,0,0,0, 




< 197> 

9,0,0,0,0,0,0,0 

<040) 

1549 

IF XY-4096 TUEN OOSUB 54000 

<245) 

10010 DATA 0,0,0,0,0,0,12,5,22,5,12,0,0,9, 


1550 

OOTO 730 

<050> 

9,0,0,0,0,0,0,0 

<059) 

1700 

POKE 37154,127:IF PEEK<37152)-119 THE 


10020 DATA 0,0,0,0,0,0,12,5,22,5,12,0,9,9, 



N GOTO 1100 

<018> 

9,0,0,0,0,0,0,0,0 

<159) 

1710 

POKE 37154,255:J-PEEK(37151) 

< 109> 

11000 DATA 151,1000,147,250,135,250,147,25 


1720 

IF <J AND 8)-.TUEN GOTO 900 

<011) 

0,151,250,175,250,187,1000,-3,151,10 


1730 

IF(J AND 16)=.THEN GOTO 1000 

<210> 

00,147,250,135 

<072) 

1740 

GOTO 800 

<200> 

11010 DATA 250,147,250,151,250,175,250,187 


1800 

POKE 37154,127:IF PEEK(37152)-119 THE 


,500,183,250,175,250,183,250,187,250 



N GOTO 1100 

<120> 

,201,250 

<083) 

1810 

POKE 37154,255:J=PEEK<37151):IF(J AND 


11020 DATA 209,1000,-3,151,1000,147,250,13 



4) =.THEN GOTO 800 

< 186> 

5,250,147,250,151,250,175,250,187,50 


1820 

IF(J AND 16)=.THEN GOTO 1000 

<046> 

- 183,250 

<244) 

1830 

GOTO 900 

<044> 

11021 DATA 175,250 

<204) 

1900 

POKE 37154,127:IF PEEK(37152)-119 THE 


11030 DATA 183,250,187,250,201,250,209,250 



N GOTO 1100 

<220> 

, 207,250,201,250,207,250,209,250,219 


1910 

POKE 37154,255:J-PEEK<37151>:IF(J AND 


,250,225,250 

<075) 


4)-.THEN GOTO 800 

<030> 

11040 DATA 223,250,219,250,223,250,225,250 


1920 

IF(J AND 8)=.THEN GOTO 900 

<213> 

,231,250,235,0 

<146) 

1930 

GOTO 1000 

<092> 

50000 A-4404:B—4405:POKE A,98:P0KE B,99:G0 


2000 

POKE 37154,127 

<228> 

TO 730 

<083) 

2010 

POKE 37154,255:J-PEEK(37151>:IF(J AND 


52000 A-4338:PRINT A*:FOR F-38130 TO 38152 



4)-.THEN GOTO 800 

<130> 

:POKE F,7:NEXT 

<236) 

2020 

IF(J AND 8)-.THEN GOTO 900 

<057> 

52001 FOR T-0 TO 21:P0KE A+T,SN(K):K-K+l:I 


2030 

IF(J AND 16)-.THEN 1000 

<043> 

F K—153 THEN FOR U-0 TO 3000tNEXT:RE 


2040 

GOTO 1100 

<21Q> 

TURN 

<209) 

2500 

A-A-22:B-B-22:POKE A,98:P0KE B,99:P0K 


52002 IF SN<K)—0 THEN NEXT:GOTO 7000 

<221) 


E A+22,0:POKE B+22,0:RETURN 

<156) 

52003 GOSUB 6000:NEXT 

<085) 

2600 

A-A*22iB=B+22:P0KE A,98tP0KE D,99tP0K 


52021 POKE 38191,3:P0KE 38192,2:P0KE 38194 



E A 22,0:POKE B 22,0:RETURN 

<0B2> 

,7:POKE 38195,5 

<004) 

2700 

A—A -2:B-B- 2:POKE A,98:P0KE B,99:P0KE 


52100 PI-500tPOKE 36865,155tD-4294:PRINT A 



A*2,0:POKE B*2,0tRETURN 0 

<109> 

*:FOR F-38086 TO 38218:P0KE F,7:NEXT 

<036) 

3000 

FOR T-0 TO 19:POKE QW,15:P0KE TY.220: 


52110 FOR Y-0 TO 131:P0KE D+Y,SD(Y>:NEXT:P 



POKE TY,0 

<0B9) 

OKE 36865,38:POKE QW,15:F0R F-230 TO 


3010 

POKE TY,200:POKE TY,0:POKE QW,0:P1-P1 


140 STEP • 1 

<015) 


*10:PRINT"(HONE,9RIGHT,PURPLE 5"|P11 NE 


52120 POKE QW -2,F:POKE QW-3,F+l:NEXT:POKE 



XT 

<088) 

QW-4,140:FOR F=1 TO 500:NEXT:FOR F-l 


3020 

POKE A,9B:POKE B,99:RETURN 

< 1 11 > 

5 TO 0 STEP-.007:POKE QW,F:NEXT 

<124) 

4000 

P1-P1-2:PRINT"CHOME,9RIGUT,PURPLE 3"j P 


52130 POKE QW 4,0:POKE QW-3,0:POKE QW-2,0: 



1:IF PI<5 THEN GOTO 54000 

<026) 

RETURN 

<124) 

4010 

RETURN 

<002> 

52300 H—4339t FOR F-38130 TO 38152:POKE F,7 


5000 

FOR 1-0 TO 175:READ SN(I):NEXT I 

<0B2> 

t NEXT 

<157) 

5100 

FOR 1-0 TO 132tREAD SD(I)tNEXT I 

<107> 

52310 FOR B-0 TO 21:POKE H+B,SA(B):IF SA(B 


5200 

FOR 1-0 TO 65:READ SA(I> t NEXT I 

<001> 

)=0 THEN 52330 

<107) 

5300 

FOR 1-0 TO 91:READ SQ(I):NEXT I:RETUR 


52320 GOSUB 6000 

<245) 


N 

<156) 

52330 NEXT 

<013) 

6000 

POKE QW,15:POKE ER,200:FQR 1-1 TO 20: 


52399 GOSUB 58000:GOTO 52700 

<011) 


NEXT:POKE ER,0 

< 136> 

52400 H—4340:FOR F-3B130 TO 38152:POKE F,7 


6005 

POKE ER,180:FOR 1=1 TO 20:NEXT:POKE E 


: NEXT 

<190) 


R,0:POKE QW,0:RETURN 

<075> 

52410 FOR B—22 TO 43:P0KE H+B-22,SA(B):IF 


7000 

FOR J-0 TO 3000:NEXT 

<034) 

SA(B)—0 THEN 52430 

<001) 

7003 

PRINT"CCLR,11DOWN,YELLOW,20SPACE 3“:FO 





R T-0 TO 1200:NEXT:GOTO 52000 

<244) 



0000 

DATA 0,18,15,0,13,1,0,19,15,6,20,0,16 


Llsting 2. Hauptprogramm zum Superspiel »Das Boot« 


,18,5,19,5,14,20,19,0,0 

<121 > 

(Fortsetzung) 



118 


SONDERHEFT 3/1986 








VC 20 + 16 KByte 


SPIELE 


524213 GÜSUB 6000 

<089 > 

53012 FOR T-0 TO SQ(D):NEXT:D=D+1:FOR 0-0 


52430 NEXTs GOSUB 5B000:GOTO 52800 

<153> 

TO 300:NEXT 

< 153> 

52500 H=4338:F0R F-38130 TO 38152:POKE F,7 


53097 IF SQ(D)=0 THEN GOSUB 53120:RETURN 

<167> 

eNEXT 

<231 > 

53100 NEXT:GOTO 53009 

<170> 

52510 FOR B=44 TO 60:PQKE H+B-43,SA<B>:IF 


53110 FOR E —6 TO 0 STEP--. 008: POKE QW,E:NEX 


SA(B> =0 THEN 52530 

<056> 

T:POKE QW,0:POKE TY,0:POKE ZX,0:RETU 


52520 QOSUB 6000 

< 191 > 

RN 

<024> 

52530 NEXT: GOSUB 58000: GOTO 52900 

<063> 

53120 FOR E-14 TO 0 3TEP-.008:POKE QW,E:NE 


52600 H—4338: FOR F-3B284 TO 38306: POKE F,7 


XT:POKE QW,0:POKE TY,0:POKE ZX,0:RET 


: NEXT 

< 147> 

URN 

<1327 

52610 FOR B-154 TO 175:P0KE H+B,SN(B):IF S 


54000 PRINT AS:POKE UI ,8 

<15B> 

N(B>-0 THEN 52630 

< 121 > 

54010 PRINT"C10DOWN,7RIGUT,YELLOW)THE END( 


3262a QOSUB 6000 

<033 > 

7RIQHTJ" 

<251 7 

52630 NEXT 

<059> 

54040 FOR Y-0 TO 1000:NEXT:LE-1:XY-4102:YX 


52640 IF PEEK <37154 -3)AND 32 THEN 52640 

<239> 

-4103:GOSUB 54100:GOSUB 52100:GOSUB 


52650 RETURN 

< 127> 

52600:GOTO 315 

<153> 

52700 AA-37880:CZ-4096:A-4404:B=4405:POKE 


54100 IF PI>HI THEN HI-Pl:PRINT"CCLR,DOWN, 


36B65,155 

<237> 

YELLOW3YOU HAVE BROKEN THE CDOWN,3SPA 


52710 FOR Y-0 TO 16:PRINT X*(Y) 5 :NEXT:POKE 


CE3HIGHSC0RE":GOSUB 56000:GOSUB 5700 


4601,153:PRINT"{HOME,10RIBHT1500" 

<082> 

0 

<249> 

52712 FOR YU-37BBB TO 37888+505:POKE YU,0: 


54500 IF P1<HI THEN PRINT" CCLRDOWN, YELLOW 


NEXT 

< 200 > 

JYOU HAVE NOT REACHEDCDOWN,2SPACE3TH 


52715 POKE A,98:POKE B,99 

<041 > 

E HIGHSCORE ":GOSUB 56000:GOTO 57000 

<224> 

52720 POKE AA+9B,6:POKE AA+99,6:P0KE AA+10 


54501 RETURN 

< 200 > 

0,6:POKE AA+120 ,6 :POKE AA+121, 61 POKE 


56000 POKE QW,15:FOR L-l TO 20:FOR M-220-L 


AA+122,6 

< 114 > 

TO 210—L STEP—4:POKE ZX,M:NEXT MiFO 


52721 POKE AA+105,7:POKE AA+106,7:POKE AA+ 


R M-160-L TO 170- L STEP 4 

<00B> 

127,7:POKE AA+12B,7:P0KE AA+178,6:P0 


56001 POKE ZX.MtNEXT M:NEXT LiPOKE QW,0:PO 


KE AA+179,6 

<04B> 

KE ZX,0 

<04B> 

52722 POKE AA+1B0,6:POKE AA+200,6:POKE AA+ 


56002 FOR T=1 TO 3000:NEXT:XY-4102:YX-4103 


201, 6 :POKE AA+202,6 

<1B0> 

:RETURN 

<075> 

52723 POKE 38221,7: POKE 38204,2: POKE 3B229. 


57000 PRINT"CDOWN,YELLOW1SC0RE C4SPACE1"s PI 


, 6 :POKE 38267,4:P0KE 38292,7:P0KE 38 


:GOSUB 56000 

<205> 

343,2 

<132> 

57010 PRINT"CDOWN,YELLOW3THE HIGHSCORE "jH 


52724 POKE 38358,4:POKE 38359,2:POKE 36865 


I:GOSUB 56000:RETURN 

<16?> 

,38:POKE UI,186:PRINT"CH0ME,9RIGHT,P 


5S000 RA—151: RF—1 

< 125> 

URPLEJ";PI 

<192> 

58001 A—4404:B—4405:PRINT"C12DQWN>":FOR X= 


52725 PRINT"CHDME,1 6 RIGUT 3";HI 

< 175> 

1 TO 22:POKE 646,RND<1)*6+2:PRINT"CR 


52799 GOTO 730 

<244> 

VSON,SPACE >"j:NEXT 

<033> 

52800 XY—4102:YX—4103:QA-4096:POKE 36865,1 

SSOl " 1 < OR AS—4404 TO 4423:C-I00 

<07B> 

55 

< 139> 

56020 FOR T-l TO 6 :POKE A,C:POKE B,C+1:P0K 


52805 FOR T=0 TO 20:PRINT Y*(T)?:NEXT:POKE 


E B+l,C+2:C=C+3:GOSUB 5B050:NEXT:POK 


4601,139 

<104> 

E A,0:A—A+1:B-B+1:POKE A,163 

<043> 

52806 FOR YU-378BS TO 37888+505:POKE YU,0: 


5B030 POKE B,162:GOSUB 58050:POKE A,98:POK 


NEXT 

<040> 

E B,99:GOSUB 58050 

<027> 

52810 POKE 4559,98:POKE 4560,99:A-4559 

<041 > 

58040 POKE QW,RF 1 POKE TY,RA:RF-RF+.7:RA-RA 


52815 B=4560 

<024> 

+1:NEXT:POKE QW,0:POKE TY,0:RETURN 

<089> 

52016 FOR U =>38024 TO 30394: POKE U,5: NEXT 

<195> 

58050 FOR P=1 TO 25:NEXT:RETURN 

<014> 

52820 POKE 37911,7:POKE 37937,7:POKE 37945 


60000 GOSUB 63000 

<121 > 

0 ,7:POKE 37952,7:POKE 37979,7 

<037> 

60020 PRINT"CCLRJJDHANN DER MASCHINISTCSPA 


52821 POKE 37985,7:POKE 37992,7:POKE 3B001 


CE,DOWN)IST WAHNSINNIG " 

<077> 

,7:POKE 38002,7:POKE 38015,7:POKE 38 


60030 PRINT"C2D0WNJWAS TUN" 

<086> 

043,7 

< 160> 

60040 PRINT"C2D0WN >1C2SPACE)IHN BERUIHGEN" 

<1107 

52822 POKE 30062,7:POKE 38082,7:POKE 38069 


60050 PRINT"C2DOWN32C2SPACEJIHN SCHLAGEN" 

<245> 

,7:POKE 38071,7:P0KE 38110,7 

<005> 

60060 PRINT"C2DQWN33C2SPACE3IHN EINSPERREN 


52823 POKE 38243,3:POKE 30224,0 

<107> 

II 

< 113> 

52824 POKE 38232,7:POKE 30233,2:POKE 38359 


60070 ZU-INT(RND(1> »3> +1 

< 131 > 

,0:POKE 3B360,1 

<009> 

60080 GET VU 

< 01 B> 

52897 PRINT"CHOME,9RIGUT,PURPLE 3";P1:POKE 


60090 IF VU=1 THEN 60200 

<0277 

36865,38:POKE UI,106 

<064> 

60100 IF VU-2 THEN 60300 

< 105) 

52898 PRINT"CHOME,16RIGHTJ" 8 HI 

<094> 

60110 IF VU—3 THEN 60400 

< 1B3> 

52899 GOTO 730 

< 0 BB> 

60120 IF VUOl OR VU< >2 OR VU<>3 THEN 600B 

< 121 > 

52900 XY-4102:YX-4103:QA-4096:POKE 36865,1 


0 

55 

<239> 

60130 PRINT A* 

<105> 

52910 FOR W-0 TO 22:PRINT Z*<W>,:NEXT:POKE 


60200 IF VU-ZU THEN PRINT"C2D0WNJER HAT SE 


4601,153 

52912 FOR YU-3780B TO 378B8+505:POKE YU,0: 

<099> 

INEN FEHLER EINGESEHEN":Pt-Pl+500:LE 
■LE+1:GOSUB 56000:BOTO 315 

<246> 

NEXT 

< 146> 

60210 IF VUOZU THEN PRINT" C2D0WNJER SCHLA 


52915 A“4162:B“4163:POKE A,98:P0KE B,99 

<200> 

EGT SIE"tLE-LE+1:GOSUB 56000:GOTO 31 

<211 > 

52920 FOR SD-37BBB TO 38393:POKE SD,3:NEXT 

<024> 

5 

52921 POKE 30081,5:POKE 3B0Q2,2:POKE 38201 


60300 IF VU-ZU THEN PRINT”C2D0WN3ER IST WI 


,7tPOKE 38202,5:POKE 38204,1:POKE 38 


EDER NORMAL":P1-P1■500:LE-LE+1:GOSUB 


205,4 

< 155> 

56000:GOTO 315 

<0127 

52922 POKE 38286,4:POKE 38285,6:POKE 38359 


60310 IF VUOZU THEN PRINT" C2D0WNJ3IE HABE 


,5:POKE 38360,1 

<102> 

N IHN TODC5SPACE,DOWN3GESCHLAGEN":LE 


52998 PRINT"CHOME,9RIBHT,PURPLE >",P1:POKE 


-LU+ltGOSUB 56000:GOTO 315 

<1583 

36865,38:POKE UI,10 

<068> 

60400 IF VU-ZU THEN PRINT"C2D0WN)ER HAT ZU 


52999 PRINT"CHOME,16RIBHT)":HI:GOTO 730 

<081 > 

SICH GEFUNDEN":LE-LE+1:Pl-Pl+1 1 GOSUB 

53000 D-0 

<0B0> 

56000:GOTO 315 

C073> 

53001 FOR P-3 TO 15 STEP.5:POKE QW,P 

<203> 



53009 IF SQ(D)—-3 THEN D-D+l:V-D:GOSUB 531 
10:GOTO 53001 

<076> 

Listlng 2. Hauptprogramm zum Superspiel »Das Boot« 

53010 POKE TY,SO(D):POKE ZX,SQ(D):D-D+l 

<179> 

(Fortsetzung) 




SONDERHEFT 3/1986 


119 







SPIELE 


VC 20 + 8 KByte 


60410 

IF VUOZU TUEN PRINT" C2DOWN3ER HAT 8 
ICH AUP{7SPACE,DOWN 3GEHAENGT":LE-LE+ 



1 1 P1-P1+1iGOSUB 560001 GOTO 315 

<003> 

61000 

GOSUB 63000 

<105> 

61020 

PRINT"CCLR33IE TREFFEN MIT EINEM C3PA 
CE,DOWN>DEUTSCHEN U BOOT( 6 SPACE,DOWN 



1 ZUSAMMEN E3 HAT KEINEN" 

<229> 

6102S 

PRINT"PROVIANT MEHR C9SPACE,DOWN>WIEV 



IEL GEBEN SIE“ 

<2183 

61040 

PRINT"CDOWN}lC2SPACE33 PROVIANT" 

< 133> 

61050 

PRINT"CDOWN32 C2SPACE35 PROVIANT" 

<048> 

61060 

PRINT"CDOWN 3 3 C2SPACE 3 GARNICHTS " 

<224> 

61070 

ZU=INT(RND(1) »3H1 

<1153 

61080 

GET VU 

<0023 

61090 

IF VU-1 TUEN 61200 

<0133 

61100 

IF VU-2 TUEN 61300 

<0913 

61110 

IF VU-3 TUEN 61400 

<1693 

61120 

IF VUOl OR VU<>2 OR VU< >3 THEN 6108 



0 

<1693 

61130 

PRINT A* 

<0893 

61200 

IF VU-ZU THEN PRINT"CDOWN3DAS WAR HU 
MAN C9SPACE,DOWN 3 500 PUNKTE":P1-P1+50 



0:LE-LE+1.-GOSUB 56000: GOTO 315 

<0683 

61220 

IF VUOZU THEN PRINT" CDOWN3SIE ALTER 
GEIZKRAGENC2SPACE,DOWN 3 DAFUER GIBTS 
NICHTS":GOSUB 56000:LE-LE+1:GOTO 31 



5 

<1803 

61300 

IF VUOZU THEN PRINT"CDOWN3DAS U BOO 
T IST WEG C4SPACE,DOWN3KE1NE PUNKTE": 



GOSUB 56000:LE-LE+1:GOTO 315 

<0993 

61310 

IF VU-ZU THEN PRINT"CDOWN3DAS WAR SP 
I TZE CSSPACE,DOWN3 1000 PUNKTE":LE-LE+ 



1:P1—P1+1000:GOSUB 56000:GOTO 315 

< 1853 

61400 

IF VU-ZU THEN PRINT"CDOWN3NICHT BESO 
NDERS GUT C3SPACE,DOWN350 PUNKTE":LE“ 



LE+l:Pl=Pl+50:GOSUB 56000:GOTO 315 

<0853 

61420 

IF VUOZU THEN PRINT"CDOWN>SIE SCHWE 
INCH SPACE,DOWN3KEINE PUNKTE":GOSUB 



56000:LE—LE+1:GOTO 315 

<1143 

62000 

GOSUB 63000 

<089^ 

62020 

PRINT"CCLR3SIE SIND ZU TIEFC 6 SPACE,D 


OWN3GETAUCHT" 

<2193 

62025 

PRINT"CDGWN3WAS TUN" 

<2253 

62040 

PRINT " CDOWN 31C2SPACE 3 WENIG ATMEN " 

<2413 

62050 

PRINT"CDOWN32C2SPACE3VOLLE KRAFT VOR 



" 

<2503 

62060 

PRINT"CDOWN33C2SPACE3AUFGEBEN C2SPACE 



3" 

<2173 

62070 

ZU—INT(RND(1 ) *3)+1 

<0993 

62080 

GET VU 

<2423 

62090 

IF VU-1 THEN 62200 

<2553 

62100 

IF VU-2 THEN 62300 

<0773 

62110 

IF VU-3 THEN 62400 

<1553 

62120 

IF VUOl OR VU<>2 OR VU<>3 THEN 6208 



0 

<2173 

62130 

PRINT A* 

<0733 

62200 

IF VU-ZU THEN PRINT"CDOWN3GESCHAFFT C 
13SPACE,DOWN 3 500 PUNKTE" i LE-1 1 P1-P1 + 



500:OOGUB 56000:GOTO 315 

<1903 

62220 

IF VUOZU THEN PRINT" CDOWN33IE SIND 
ERSTICKTCSSPACE,DOWN3DAFUER BIBTS NI 



CHTS":GOSUB 56000:LE-1cGOTO 315 

<2463 

62300 

IF VUOZU TUEN PRINT" CDGWN3U 96 IST 
EXPLODIERT C3SPACE,DOWN3KEINE PUNKTE" 



aGOSUB 56000:LE-1:GOTO 315 

<1403 

62310 

IF VU-ZU THEN PRINT"CDOWN3SIE SIND A 
UFGETAUCHT(2SPACE, DOWN 31 000 PUNKTE "i 



LE-1 : Pl-Pl+1000:GOSUB 56000:BOTO 315 

<2423 

62400 

IF VU-ZU THEN PRINT"CDOWN3SIE REALIE 
T C11SPACE,DOWN 3 200 PUNKTE ": LE-1 : P1-P 



1+200:GOSUB 56000:GOTO 315 

<2293 

62420 

IF VUOZU THEN PRINT" CDOWN3TJA AUFGE 
GEBEN UND WEGCDOWN3KEINE PUNKTE":GOS 



UB 56000:LE-1:GOTO 315 

<1243 

63000 

PRINT"C11DOWN,YELLOW,5RIGHT3CHANCE S 



TAGEC5RIGHT3" 

<0093 

63010 

POKE QW, 6 :POKE ZX,151:F0R W-l TO 10: 
NEXT:POKE BW,0:POKE ZX,0:FOR T=1 T0 



3000:NEXT:RETURN 

<1043 

e 64'«- 


Listing 2. Hauptprogramm zum Superspiel »Das Boot« 

(Schluß) 



Drahtseil- 
nerven und 
Überblick: 
»Pemo« 

Ein schnelles Taktik- und Reaktionsspiel in meh¬ 
reren Akten, für den VC 20 + 8 KByte, mit oder 
ohne Joystick. Eines der besten Spiele, die es je 
für den VC 20 zum Abtippen gab. 

H eja, da bin ich nun! Wo sind die Monstereier, die Basalt- 
und Granitsteine? Dort...dort drüben sind zwei Eier nah 
nebeneinander! Schnell hingelaufen, ein Eisklotz 
zurechtgeschoben - da schlüpfen sie auch schon aus. Nun 
schnell den Klotz geschoben. Juhu, beide getroffen! Wo sind 
die anderen beiden Monster? Ach, weit weg. Was nun? Soll 
ich versuchen, sie schnell zu treffen, um an den Zeitbonus zu 
gelangen oder ist es besser, die Granitsteine zusammenzu¬ 
schieben? Die stehen günstig - also nichs wie los! Ein paar 
Eisblöcke zerbröseln, ein paar schieben und schon stehen 
zwei Gin-iitsteine beieinander. Aber was ist das?? Ein Mon¬ 
ster kommt! Ich renne schnell weg - aber, verdammt, es ver¬ 
folgt mich. Schnell zur Bande, die Hochspannungswand akti¬ 
viert - da bricht es auch schon betäubt zusammen. So, jetzt 
überlaufen, oder... oder ist es zu weit weg? Wacht es vorher 
auf? Nein, ich hab's geschafft! Doch da ist auch schon das 
letzte Monster, keine drei Eisblöcke mehr entfernt. Schnell 
hinter diesem Eisblock verstecken. Es kommt direkt auf mich 
zu, doch da saust ihm auch schon mein Eisblock entgegen 
und trifft ihn. 

Nun ja, in dieser Schwierigkeitsstufe habe ich wohl die Gra¬ 
nitsteine nicht zusammenschieben können. Dafür bekomme 
ich aber, mit nur 18 Sekunden Spieldauer, meinen redlich ver¬ 
dienten Zeitbonus. Puh, ging das wieder schnell her! 

Das Programm 

Listing 1 zeigt einen speziell für das Maschinensprache¬ 
programm entwickelten Monitor. Nach Eingabe dieser Basic- 
Zeilen in Ihren Computer empfiehlt sich die Speicherung des 
Monitors auf Kassette. 

Das Hauptprogramm liegt im Bereich von $1400 bis 

$2FFF. Um eine Überschreibung durch den Monitor zu ver¬ 
meiden, muß vor Laden des Monitors jeweils folgende Basic- 
Zeile im Direktmodus abgearbeitet werden: 

POKE 44,48 : POKE 48 * 256,0 : NEW 

Diese Befehlsfolge setzt den Beginn des Basic-Bereichs 
auf $3000. 

Der Monitor wird mit »RUN« gestartet und zeigt zunächst 
ein Menü, das heißt eine Überzeile der vorhandenen Optio¬ 
nen. Die Wahl einer »1« bringt den Anwender in die Sektion 
zur Eingabe von Hexadezimalzahlen. Auf die Eingabe einer 
Startadresse reagiert der Monitor unter Ausgabe der 
gewünschten Adresse, gefolgt von einem Ausdruck des 
momentanen Zelleninhalts. Der Anwender kann nun die 
Hexadezimalbytes aus Listing 2 eintragen, wobei automa¬ 
tisch auf die nächste Adresse eingestellt wird. Diese Art der 
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Eingabe spart gegenüber der DATA-Zeilenmethode die Kom¬ 
mata und bei Zahlen über 99 eine dritte Ziffer. Das Drücken 
der SPACE-Taste überspringt eine Speicherzelle, während 
die Taste mit dem aufwärts gerichteten Pfeil die vorangegan¬ 
gene Speicherzelle abruft. Der Eingabemodus wird durch ein 
Drücken der RETURN-Taste verlassen und führt zurück zum 
Menü. Eine grobe Überprüfung der erfolgten Eingaben auf 
ihre Richtigkeit erlaubt Sektion 2. Hier wird nach Eingabe 
einer Blockstartadresse - ein Block besteht aus 256 Byte - 

von $1400 bis $2F00 ($1400, $1500.$1900, $1A00, 

$1B00,...,$1F00, $2000, $210C,...,$2F00) eine Prüf¬ 
summe gebildet, deren Übereinstimmung mit dem vorgege¬ 
benen Sollwert anschließend überprüft und gegebenenfalls 
in Form einer Meldung bestätigt wird. Diese Sektion wird 
ebenfalls über ein RETURN verlassen. Abschnitt 4 schreibt 
den Programmbereich von »Penco« auf Band ($1400 - 
$2F00). Vor dem Betätigen der Aufnahmetasten am Kasset¬ 
tenrecorder sollte beim Anwender allerdings Klarheit über 
die momentane Position des Tonbands zu dem Schreibkopf 
bestehen. Der Autor legt deshalb folgendes Verfahren nahe: 

1. Initialisierung (einmalig): 

a) Basic-Bereich auf $3000 legen (siehe oben) 

b) FOR T = 5120 TO 12287 : POKE T, 0 : NEXT 

eingeben und über RETURN abarbeiten. Diese Zeile schreibt 
Nullen in den Maschinensprachebereich und zeigt dem 
Anwender später an, wo er das Übertragen der Bytes aus 
Listing 2 fortzusetzen hat. 

c) Laden des Monitors uns Starten desselben (danach 
STOP-Taste am Recorder drücken!) 

d) Speichern des Hauptprogrammbereichs mit Punkt 4. 

Normalablauf: 

a) Basic-Bereich auf $3000 legen 

b) Monitor laden und starten 

c) Laden des Hauptprogramms über Taste 3 

d) Rückspulen des Bands auf den Monitorbeginn und Ein¬ 
gabe eines »VERIFY«-Kommandos. Das Band ist nun in der 
richtigen Position für eine Aufzeichnung des ergänzten 
Hauptprogramms. Nach der Eingabe Ihres Tagespensums an 
Hex-Bytes und Überprüfung der Werte in Sektion 2 hält ein 
Abrufen der Sektion 4 die Ergebnisse elektromagnetisch 
fest. 

Eines schönen Tages, nach Eingabe von lediglich 7168 
Byte, führt schließlich auch für Sie das Abrufen der Taste 5 
im Menü des Monitors nicht zu einem Absturz des Systems, 
sondern sollte das Hauptprogramm »Penco« starten. 


Penco in Aktion 


Das Titelbild des Hauptprogramms zeigt unseren Hauptdar¬ 
steller, den kleinen Pinguin Penco, in Aktion. Das Zentrieren 
des Bildes ist über Joystick oder die Tasten »/« und »X« mög¬ 
lich. Gestartet wird mit Fl oder dem Feuerknopf. Anzumer¬ 
ken ist die Möglichkeit, das Spiel mit Hilfe der Funktionstaste 
F7 jederzeit zu unterbrechen beziehungsweise mit F5 zur 
Titelseite zurückzukehren. 

Das Aktionsfeld des Pinguins wird eingegrenzt durch ein 
Rechteck aus Hochspannungswänden und ist mit einer 
Anzahl von blauen, abbaubaren Basaltsteinen angefüllt. 
Daneben beleben drei Granitsteine, mehrere Monstereier 
und farbig unterlegte Basaltsteine die Szene. 

Der Spieler hat, vertreten durch den Pinguin, der zu Beginn 
jeder Ebene in der Mitte der Spielfläche erscheint, folgende 
Optionen: 


Er kann Blöcke in eine der vier Richtungen verschieben 
oder zerbröseln, je nachdem, ob sich in der Bewegungsrich¬ 
tung ein weiterer Block in direkter Nachbarschaft befindet. 
Die angeschobenen Blöcke rutschen so weit, bis sie auf ein 
solides Hindernis treffen, wobei sie unterwegs eventuell 
Monster zermalmen. Eine weitere wichtige Möglichkeit hat 
der Spieler in dem Aufwellen der Spielfeldumrandung. Beim 
Zurückschwingen der Wandung in die Ausgangsposition 
werden alle Monster in direkter Nachbarschaft betäubt. In 
dieser Form können sie vom Spieler einfach überlaufen wer¬ 
den. Verliert der Spieler ein Leben, so werden die Monster in 
den Ecken des Spielfeldes neu gestartet, wobei dort befind¬ 
liche Granite eventuell ausgelöscht werden. Gleiches gilt für 
die Startposition des Pinguins. 

Bewegung des Spielers 

Der Pinguin wird über die Tastatur oder alternativ mit einem 
Joystick kontrolliert. 

»Z«, »X« - horizontal 
»;«, »/« - vertikal 

SHIFT (mit Richtung) - schieben 

Das für das Spiel charakteristische Schieben und Zerstö¬ 
ren der Basaltblöcke erfordert ein exaktes Aufstellen neben, 
über oder unter den Quadern. Um einen Block zu manipulie¬ 
ren, muß gleichzeitig zum Drücken der SHIFT-Taste bezie¬ 
hungsweise des Feuerknopfes die gewünschte Richtung 
eingeschlagen werden. 

Die Koordination der Bewegung wird zunächst wahr¬ 
scheinlich Schwierigkeiten bereiten, aber nicht den Mut ver¬ 
lieren. Die Steuerung ist trainierbar und läßt sich durchaus 
beherrschen. 

Die Rolle der Monster 


Die nach einiger Zeit aus den Eiern schlüpfenden Monster 
setzen sich sofort in Bewegung, zerstören manche Blöcke 
und suchen den Pinguin, wobei ihre Bewegungen zunächst 
sehr zufällig sind. Bei Kontakt von Pinguin und Monster ver¬ 
liert der Spieler ein Leben. Die Monster können entweder im 
Normalzustand mit bewegten Blöcken weggewischt werden, 
oder nach erfolgter Betäubung bei Aufwellung der Wände 
durch ein Überlaufen von der Bildfläche verschwinden. 
Jedes ausgelöschte Monster erhöht den Punktestand um 
80 beziehungsweise 40 Punkte. Sollte nur noch ein Monster 
umherlaufen, so wird dieses versuchen, seine »Heimats- 
Ecke anzusteuern und dort in ein Ei zurückriechen. Dieses 
letzte Monster kann nicht betäubt werden! 

Die Granitsteine und Bonusbasalte 

Es gibt auf dem Spielfeld drei Granitsteine, die sich gestalt- 

lich abheben. Werden diese Steine in eine geschlossene ver¬ 
tikale oder horizontale Reihe gebracht, so gibt es einen 
Bonus von 10, 100, 500 oder 1000 Punkten. Gleichzeitig 
werden die Monster für einen kurzen Zeitraum betäubt. Für 
das Zerstören eines farbig unterlegten Bonusbasaltes gibt es 
50 Punkte. Die Granitsteine sind unzerstörbar. 

Die Anzeige 

Angezeigt wird in der Kopfzeile das jeweilige Bestergebnis 
(HIGH), der aktuelle Punktestand (SCORE), die Anzahl der 
Leben und die aktuelle Spielebene (links beziehungsweise 
rechts vom Herz). Alle 10000 Punkte wird die Anzahl der 
Leben um eins erhöht, alle 10 Ebenen die Logik der Monster 
verschärft. 

Und nun viel Spaß! (Der Highscore liegt übrigens bei 
44440, Ebene 31.) 

(Frank Goroncy/aa) 
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VC 20 + 8 KByte 


2 REM PENCO:MONITOR <243> 

4 REM VC-20 MIT MINDESTENS 8 KBYTE ERWEITERUNG <173> 

6 REM FRANK BORONCY/WIESENWEG 21/3250 HAMELN 13 <105> 

10 REM -PRUEFSUMMEN <185> 

12 DIM CS <27>:FOR T=0 TO 27:READ CS<T>:NEXT:DATA 13017.17618,10B74,20856 <072> 
14 DATA 36576,27458,11408,25631,20224,30214,28582,28081,31135,26987,2683 

2,28356 <115> 

16 DATA 28299,19691,24254,23699,20732,24057,17151,29295,28710,24105,1544 

4,24794 <127> 

10 REM .MENUE <191> 

20 HX*="0123456789ABCDEF":PRINT"CCLR,2D0WN,2SPACE>EINGABEI9SPACE}1" < 077 > 

22 PRINT"{DOWN,2SPACEJUEBERPRUEFUNG{3SPACEJ2" <099> 

24 PRINT"{D0WN,2SPACE>LADEN{11SPACE13" <0B9> 

26 PRINT"CDOWN,2SPACE5 ABSPEICHERN{5SPACE>4" <123 > 

28 PRINT" {D0WN,2SPACE>•PENCO 1 STARTEN 5{D0WN>" <213> 

30 POKE 198,0: WAIT 19B,1:GET A*: IF A*<“1"0R A*>"5"THEN 30 <190> 

40 ON VAL(A*)GOSUB 100,400,200,202,300:GOTO 20 <200> 

98 REM .EINGABE <15B> 

100 AD*="": INPUT"{DOWN,2SPACEJSTARTADRESSE”5 AD*:GOSUB 502:LO=AD <213> 

102 PRINT:C=PEEK <LO):AD=LO:GOSUB 504:PRINT"{2SPACE}"AD*" B=C:GOSUB 50 

6:PRINT B*" "j <157> 

104 GOSUB 508: IF A*=CHR*(13)THEN RETURN <001> 

106 IF A*=" "THEN L0=L0+1:G0T0 102 <136> 

108 IF A*=" f‘THEN L0=L0-1:G0T0 102 <008> 

110 B*=A*:GOSUB 508:B*=B*+A*:IF A*=CHR*(13)OR A*= M "DR A*=" f'THEN GOTO 1 

02 <226> 

112 GOSUB 500:POKE LO.B:L0=L0+1:GOTO 102 <060> 

198 REM -LADEN & ABSPEICHERN <0B7> 

200 GOSUB 204:POKE 780.0:SYS 65493:RETURN <211> 

202 GOSUB 204:POKE 193,0:POKE 194,20:POKE 174,0:POKE 175.48:SYS 63106:RE 

TURN <219> 

204 POKE 185,1:POKE 186,1:P0KE 183,0:POKE 144,0:POKE 187,0:RETURN <045> 

298 REM .'PENCO 1 STARTEN <242> 

300 SYS 9508 <216> 

39B REM .UEBERPRUEFUNG <050> 

400 AD*='"':INPUT"{DOWN,2SPACEJBL0CKADRESSE";AD*:IF AD*=““THEN RETURN <23B> 

402 GOSUB 502: B=AD/256-20: IF BOINT(B)OR B<0 OR B>27 THEN 400 <027> 

404 PRINT"{2SPACEJSUMME";:C=0:FOR T=AD TO AD+255 =C+PEEK(T):NEXT: IF CS< 

B)< >C THEN PRINT"{SPACE,RVSON>NICHT"; <242> 

406 PRINT" 1.0.":GOTO 400 <184> 

498 REM .HEX/DEZ-ROUTINEN <021> 

500 L=ASC(LEFT*(B*,1)):R=ASC(RIGHT*(B*,1)):B=(L-4B+(L >57 > *7)*16+R-4B+(R > 

57)*7:RETURN < 164 > 

502 B*=LEFT* < AD*,2):GOSUB 500:AD=B*256:B*=RIGHT*<AD*.2):GOSUB 500:AD=AD+ 

B:RETURN <227> 

504 B=INT(AD/256):GOSUB 506:AD*=B*:B=AD-B*256:GOSUB 506:AD*=AD*+B*:RETUR 

N <022> 

506 B*=MID* <HX*,B/16+1,1)+MID*(HX*,B-INT(B/16)*16+1,1) : RETURN <236> 

508 POKE 198,0:WAIT 198,1:GET A*:IF A*=CHR*(13)OR A*=" "OR A*="f’THEN RE 

TURN <079> 

510 IF A*<"0"OR A*>"F"OR A*<"A"AND A*>"9"THEN 508 <156> 

512 PRINT A*;:RETURN <242> 


© M'er 

Llstlng 1. Der Monitor zu »Penco«. Bitte beachten Sie die Eingabehinweise auf Seite 76. 
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Listing 2. Hauptprogramm von »Penco«. Bitte nur mit dem Monitor aus Listing 1 eingeben. 
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VC 20 + 16 KByte 


SPIELE 


Eingesperrt! 

Out-Break ist ein Grafik-Adventure, bei dem Sie 
sich aus einem Haus ins Freie retten müssen. 
Doch das ist nicht so einfach, denn es müssen 
Bomben entschärft, Spinnen vernichtet und 
Abgründe überwunden werden. 

I m Laufe des Spiels werden Sie feststellen, daß dies nicht 
die einzigen Hindernisse sind. In das Programm ist ein 
kleines Videospiel eingebaut und es gibt drei Schwierig¬ 
keitsstufen. Bei jedem neuen Start entstehen andere Varia¬ 
tionen des Spiels. »OUT-BREAK« ist ein Spiel für den VC 20 
mit 16 KByte RAM-Erweiterung. 

Hier einige Hilfen zur Lösung des Spiels: 

Spinnen können den Schaum von Feuerlöschern nicht ver¬ 
tragen, man sollte es hier mit den Tasten B, N und SHIFT pro¬ 
bieren. In blauen Räumen verliert man leicht die Orientierung. 
Verschlossene Türen lassen sich nur mit einem Schlüssel öff¬ 
nen. Schier unüberwindliche Abgründe lassen sich mit einer 
Leiter überwinden. Manchmal findet man auf weggeworfenen 
Zetteln brauchbare Informationen. 

Um im Dunkeln zu sehen, muß man eine Lampe anmachen. 
Bei Schwierigkeitsgrad 2 und 3 kann die Tür in die Freiheit nur 
mit einem Spezialschlüssel aus einem Tresor geöffnet wer¬ 
den. Die Freiheit lockt hinter der grünen Tür. 

Das Programm besteht aus zwei Teilen. Der erste. Teil 
(Listing 1) ist ein Basic-Lader, der die Daten für den u'ndefi- 


Programmablaufplan: 


160 

170- 220 
230- 300 
310- 410 

420- 840 
900- 1010 

1020 - 1380 

1390- 2420 
2430 - 3000 

3010 - 3070 
3080 - 3230 
3240 - 3740 
3750 - 4040 

4050 - 4480 


= Rücksetzen aller Variablen und 
Umschalten in Normalmodus 
= Festlegen der Konstanten 
= Anfangsbild 

= Auswahl des Schwierigkeitsgrades 
und Starten der Zeit 
= Festlegen der Stringvariablen 
= Starten der Stoppuhr, wenn Tresor 
oder Bombe gefunden wurden. 

= Abfrage und Auswertung, welcher 
Befehl eingegeben wurde 
= Auswahl und Definition der Räume 
= Anweisung bei falscher Eingabe 
oder Spielhinweise 
= Anzeigen der Stoppuhr 
= Schlußbild 
= Spinnenspiel 

= Spielende und Erklärung, warum 
verloren wurde 

= Definition, welcher Gegenstand sich 
in welchem Raum befindet. 


nierten Zeichensatz in den Speicher schreibt. Dieser Teil muß 
immer als erstes geladen und gestartet werden. Vorsicht! 
Durch den N E W-Befehl in Zeile 140 löscht sich dieser Teil von 
selbst, nachdem er seine Aufgabe verrichtet hat. Jetzt muß 
der zweite Teil (Listing 2), das eigentliche Programm, geladen 
und gestartet werden. Es versteht sich wohl von selbst, daß 
beide Teile vor dem Ausprobieren sicherheitshalber erst auf 
Kasset+e oder Disk gespeichert werden sollten. 

(Gudrun Disser/ev) 


100 

REM *** OUT-BREAK TEIL 1 *»* 

<026> 

3B0 

DATA 164, 246, 188, 20B, 152, 232, 

144 


na 

PR «MT"CCLR,9DQWN,4SPACE >CQPYR18HT BY CB 



, 144 


<023> 


SPACE, DOWN , 2SPACE > BUDRUN DISSER " 

<044> 

390 

DATA 165, 218, 151, 109, 89, 146, 75, 


120 

FOR I-716B TO 7168+391sREAD AsPOKE I,A 



181 


< 116> 


rNEXT 

<032> 

400 

DATA 255, 254, 252, 252, 248, 200, 

192 


130 

PRINT"CCLR,RED,5D0WN,4SPACE>LADEN SIE 



, 128 


<024> 


JETZT C3SPACE,DOWN,6SPACEJOUT-BREAK 2" 

<254> 

410 

DATA 255, 127, 127, 63, 63, 23, 3, 

1 

<020> 

140 

POKE 44,30!POKE 76B0,0iNEW 

<0B8> 

420 

DATA 1, 2, 2, 12, 48, 64, 128, 128 


<022> 

150 

DATA 0, 0, 0, 0, 0, 0, 0, 0 

<068> 

430 

DATA 255, 199, 215, 199, 239, 231, 

239 


160 

DATA 1, 1, 3, 7, 15, 15, 63, 63 

<226> 


, 231 


< 134> 

170 

DATA 0, 192, 192, 224, 240, 240, 252, 


440 

DATA 0, 0, 0, 124, 131, 0, 0, 0 


<252> 


252 

< 170> 

450 

DATA 0, 0, 0, 0, 195, 60, 0, 0 


<014> 

180 

DATA 63, 63, 63, 63, 31, 15, 7, 7 

< 199> 

460 

DATA 0, 0, 0, 0, 255, 0, 0, 0 


<23B> 

190 

DATA 252, 252, 252, 252, 248, 240, 224 


470 

DATA 0, 0, 0, 0, 0, 0, 0, 0 


< 134> 


, 224 

<053> 

480 

DATA 255, 255, 255, 255, 255, 255, 

255 


200 

DATA 3, 4, 8, 48, 64, 128, 128, 128 

<137> 


, 255 


<052> 

210 

DATA 0, 96, 156, 14, 252, 12, 30, 63 

<064> 

490 

DATA 0, 0, 0, 0, 0, 0, 0, 0 


< 154> 

220 

DATA 51, 55, 51, 55, 55, 63, 63, 55 

< 11 4> 

500 

DATA 16, 40, 40, 16, 16, 24, 16, 24 

<231 > 

230 

DATA 55, 55, 55, 51, 63, 63, 63, 33 

<197> 

510 

DATA 129, 66, 60, 165, 126, 24, 36 

19 


240 

DATA 0, 0, 0, 0, 0, 0, 0, 12 

<104> 


5 


<064> 

250 

DATA 0, 0, 0, 0, 0, 48, 112, 240 

<014> 

520 

DATA 1, 1, 31, 17, 1, 1, 1, 1 


< 135> 

260 

DATA 255, 139, 219, 217, 255, 0, 0, 0 

<062> 

530 

DATA 64, 64, 64, 224, 16, 236, 60, 

0 

<222> 

270 

DATA 240, 240, 240, 240, 240, 112, 4B, 


540 

DATA 16 r 16, 16, 16, 56, 124, 254, 

0 

< 104> 


0 

<025> 

550 

DATA 16, 16, 16, 16, 16, 16, 16, 0 


<017> 

280 

DATA 255, 255, 255, 255, 255, 126, 48, 


560 

DATA 255, 136, 218, 216, 217, 218, 

255 



0 

<0B2> 


, 255 


<038> 

290 

DATA 255, 255, 243, 161, 0, 0, 0, 0 

<076> 

570 

DATA 255, 145, 183, 145, 189, 145, 

255 


300 

DATA 255, 255, 255, 255, 98, 0, 0, 0 

< 113> 


, 255 


<155> 

310 

DATA 3, 3, 3, 15, 31, 23, 103, 157 

<144> 

5B0 

DATA 255, 17, 85, 81, 83, 21, 255, 

255 

<1B0> 

320 

DATA 192, 192, 192, 240, 248, 252, 215 


590 

DATA 255, 247, 213, 227, 193, 227, 

213 



, 77 

<219> 


, 247 


< 164> 

330 

DATA 3, 3, 3, 3, 3, 3, 3, 3 

< 248 > 

600 

DATA 127, 85, 106, 53, 42, 53, 26, 

21 

<060> 

340 

DATA 192, 192, 192, 192, 192, 192, 192 


610 

DATA 254, 170, B6, 172, 84, 172, 88, 1 



, 192 

<252> 


68 


<245> 

350 

DATA 101, 63, 53, 85, 93, 43, 51, 17 

<097> 

620 

DATA 26, 13, 10, 13, 10, 13, 10, 15 

<049> 

360 

DATA 4, 15, 18, 28, 63, 55, 77, 95 

<116> 

630 

DATA 88, 176, 80, 176, 80, 176, 80 

24 


370 

DATA 240, 40, 124, 204, 214, 250, 86, 



0 


<114> 


124 

<060> 

e 64'«’ 




Listing 1. »Out-Break« Ladeprogramm für Grafikzeichen 
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127 








SPIELE 


VC 20 + 16 KByte 


***** OUT-BREAK 2 **** 


< 192> 
<082) 
<092) 
<157) 
<021 > 
<230) 
<072> 
<130> 
<207> 
<037> 
<1B3> 
<164) 
<045) 


10 REM 
20 REM 
30 REM 

100 REM ********************** 

110 REM * C0PYR1QHT BY * 

120 REM » BUDRUN DISSER * 

130 REM * SCHULSTR. 42 * 

140 REM * 6451 MAINHAUSEN * 

1S0 REM ••**••***•**«»*•***•** 

160 CLRiPOKE 36069,192 
170 OINT(RND<l>*4> +1 
100 V-INT(RND <1)*099)*100 
190 V2*-STR*(V>«V2*-RI0HT*<V2*,3> 

200 V3*»LEFT* < V2*,1)iV4*=MID* < V2*,2,1>iV5* 
-RIGHT*CV2#,1> 

210 F-33792.T-36B781TI-36074t T2-36075iT3-3 
60761T4-36077 
220 FF—INT (RND < 1 > *7) ‘*•24 

230 PDKE 36079,25iZ*—"{SPACE,RVSON,20SPACE 
,RVOFF>" 

240 PRINT"{CLR,WHITEe"Z*iPRINT"(RVSON,7SPA 
CE >OUT-BREAKC6SPACE,RVOFF>"iiPRINT Z* 

250 PRINT"{3D0WN,RVOFF,PURPLE,26PACE JBCHWI 
ERIGKEITSGRAD" 

260 PRINT"C2D0WN,2SPACE,RVSON,BLUE,SPACE>1 
CSPACE,RVOFF,SPACE,0REEN >EINFACH" 

270 PRINT"CDOWN,23PACE,RVSON,BLUE,SPACE)2{ 

SPACE,RVOFF,SPACE,0REEN JSCHWER" 

280 PRINT"{DOWN,2SPACE,RVSON,BLUE,SPACE >3 < 

SPACE,RVOFF,SPACE,BREEN JSEHR SCHWER 
290 PRINT"C4D0WN,WHITE)"Z*iPRINT"{RVSON,4S 
PACEJBITTE WAEHLEN(5SPACE,RVOFF) " J iPRI 
NT Z* 

300 L6—4557iFOR H-4096 TO 41601POKE H+F,2i 
POKE L6+F,2:L6-L6-1iGOSUB 3070iNEXT 
310 BET B 

320 IF S=1 TUEN X=20iBOTO 370 
330 IF S-2 THEN X-10IGOTO 370 
340 IF B-3 THEN X=5iU=2iX2=4iBOTO 370 
350 L7—L7+1iIF L7-300 THEN L7-0:PRINT"CCLR 
) " IFOR H=1 TO 30001NEXTiGOTO 160 
360 GOTO 310 
370 BOTO 390 
380 L6—4557iFOR H-4096 TO 41601POKE H,32lP 

OKE L6,321L6—L6—1■BOSUB 30701NEXT <21B> 

390 PRINT"{CLRI"1A=2lTY—11 TI*“"000000" <086> 

400 PRINT"ICLR.BLACKJ" <220> 

410 POKE 36869,207 <047> 

420 Al*="{HOME,RVSON)a(DOWN JaCDOWN)aCDOWN) 

ü(DOWNJa" <100> 

430 A2*="{HOME,21RIBHT,RVSON JfcKDOWN,2LEFT > 
ü CDOWN,2LEFTJÄCDOWN,2LEFTJHCD0WN,2LEFT 
)ü“ <053> 

440 Bl#-"{HOME,5D0WN,5RIGHT,RVSONJ£rrnTTT 

TTT£," <137> 

450 B2#-" {HOME,15D0WN.5RIBHT,RVSONJkBSBSBS 

09052" <236> 

460 B3#-"{HOME,6D0WN,5RIBHT,RVSON)9(DOWN,L 
EFTJEiCDOWN,LEFT JTJ CDOWN,LEFT JTfCDOWN,LEF 
T J0(DOWN, LEFTJTTCDOWN, LEFTJffCDOWN, LEFTJ 
0(DOWN,LEFT > 0" 

470 B4#—"(HOME,6D0WN,16RIBHT,RVSON Jtf(DOWN, 

LEFT)RCDOWN,LEFTJRCDOWN,LEFT JRCDOWN,LE 
FT JRCDOWN,LEFTJTTCDOWN,LEFT JRCDOWN,LEFT 
JTTCDOWN,LEFT JTT" 

400 A3*-"{H0ME,16D0WN,4RIBHT,RVS0N)a{D0WN, 
2LEFT)a(D0WN,2LEFT JHCDOWN,2LEFT >ü(DOWN 
,2LEFT)Ü" 

490 A4*-"(HOME,16D0WN,17RIBHT,RVSON)a(DOWN 
)a{DOWN>ü{DOWN)n{DOWN>a" 

500 I*-"(HOME,10DOWN,8RIBHT,RVSON J£T£(DOWN 
,3LEFT)ff CRIBHT)H(DOWN,3LEFT JR{RIBHT)R< 

DOWN, 3LEFT ) 0 (RIGHT, RVOFF )•/. (RVSON, DOWN, 

3LEFT >0{R I BHT JH (DOWN , 3LEFT ) i9ß" 

510 J1*-"CHOME,6D0WN,RVSON)Ha(DDWN,2LEFT)H 
{RIBHT >a(DOWN,3LEFT>H(2RIBHT >a(DOWN,4L 
EFT > HTTE {D0WN,4LEFT>H(2RIBHT)H(D0WN,4L 
EFT >H C2RIGHT >H(DOWN,4LEFT JH(2RIGHT)H(D 
0WN,4LEFT>R{2RIGHTJH" 

520 J2*—"(HOME,13D0WN,RVSON >H(2RIBHT >H(DOW 
N,4LEFT >H(2RIGHT JRCDQWN,4LEFT >H(2RIBHT 
>H(DOWN,4LEFT JH(2RIBHT >H“ 

530 J3#“"(HOME,17D0WN,RVSON)HTTT(UPJa(DDWN 
,LEFT,DOWN,4LEFT)R(DOWN,LEFTJTTCDOWN,LE 
FT)a" 


<201 > 

< 165> 
<017> 

< 130> 
< 012 > 

< 147> 

< 164> 
<249> 
<105> 


<103> 

<227> 

<248> 

< 154> 

< 194> 
<000> 

,<147> 
<066> 
<204> 


<229> 


< 157> 


<005 > 


<092> 


< 200 ) 


<243> 


<014> 


< 194> 


< 1B2> 


<095) 


<160> 


<145) 


<103) 


< 212 > 


540 Kl*-" (HOME, 6D0WN, 20RI BHT, RVSON JKB'CDOWN 
,3LEFT)a{RIBHT)0<DOWN,4LEFT)H{2RIBHT)E 
(DOWN, 4LEFT) ATTcT (DOWN, 4LEFT Jff C2RI BHT J 0 
{DOWN,4LEFT)0(2RIBHT)0" 

550 K2*-"(HOME,12D0WN,RVSON,10RIGHT,RVSON} 

0{2RIBHT)0(DOWN,4LEFT)0{2RIBHT)0{DOWN, 

4LEFT)0(2RIBHT J 0 CDOWN,4LEFTJ0{2RIBHT)0 
(DOWN,5LEFTJakJJBTT' 

560 K3*-"(HOME,16D0WN,RVSON,21RIBHT J0(DOWN 
,LEFT)0(DOWN,LEFT)0(DOWN,LEFT)0<DOWN,L 
EFTJa" 

570 CI*-"(HOME,5D0WN,5RIBHT,RVSON J0IDOWN,L 
EFT Jfljja (DOWN , 3LEFT J 0R (RI BHT J a (DOWN , 4LE 
FT)0R{RIBHTJH{DOWN,4LEFT)0R(RIGHT)R(DO 
WN,4LEFT)0H(RIGHT JR(DOWN,4LEFT J0RCRIGH 
T)R(DOWN,4LEFT)0R{RIBHT)R“ 

580 C2#-"(HOME,12D0WN,5RIBHT,RVSON J0R(RIBH 
T ) R{DOWN, 4LEFT )0R(R I BHT )a<DOWN, 4LEFT JA. 
ea(DOWN,3LEFT) 0" 

590 C3#—"(HOME,5D0WN,16RIBHT,RVSON)R(DOWN, 

3LEFTJÜCLECDOWN,4LEFT JaiRIBHT J0R{DOWN,4 
LEFT)0{RIBHT J 0R(DOWN,4LEFT)0{RIBHTJ 0R( 

DOWN,4LEFTJ0{RIBHT J0R" 

600 C4*-"(HOME,11D0WN,13RIBHT,RVSON)0{RIBH 
T)0R(DOWN,4LEFT)0(RIBHT J 0R(DOWN,4LEFT) 
a(RIBHT)0R{DOWN,3LEFTJakßCDOWN,LEFT)R" <104> 
610 Dl*-" (HOME,9D0WN,BRIGHT,RVSON JÖÜÖBätJCD 
DWN,7LEFT)Ra<4RIGHT )*£CDOWN,BLEFT)R(RI 
BHT Ja(2RIGHT JfiCRIBHT)0{DOWN,BLEFT JR(2R 
IBHT)fl£(2RIBHT)0“ 

620 D7*—"(HOME,9D0WN.BRIGHT,RVSONjgSBSSBID 
OWN,7LEFT J Ra(4RIBHT)H0(DOWN,BLEFT)R(RI 
GHT,SPACE,2RIGHT,SPACE,RIGHT J0(DOWN,8L 
EFT)R(4SPACE,2RIGHT J 0" 

630 D2*—"(HOME,13D0WN,7RIBHT,RVS0NJR(2RIBH 
T)i£{2RIQHTJ0IDOWN,BLEFT}R{RIBHT)a(2RI 
BHTJa{RIBHTJ0{DOWN,BLEFTJaa(4 SPAC EJak" <043> 
640 E*="{H0ME,SDDWN,9RIBHT,RVSONJTTTT{4LEF 
T,4D0WN)BTOB" 

650 F*="(HOME,13D0WN.9RIBHT,RVOFF,BLUE)I(R 
ED J J(DOWN,2LEFT,BLUE JK{RED JL(BLACK J" 

660 E" (HOME,1BD0 WN,3RIBHT,RVSON,PURPLE) 

<12RIBHT)R{RIBHT)a" ’ 

670 B2*-"(HOME,20DOWN,2RIBHT,RVSON,PURPLE) 

680 H1*-“(HOME,10DOWN,12RIBHT,RVSON,PURPLE 
)R£0{DOWN,3LEFT)R£0{DOWN,3LEFT)H£0{DOW 
N,3LEFT)R£0(DOWN,3LEFT)R£0(DOWN,3LEFTJ 
R£0(D0WN,3LEFTJR£0(BLACK)" 

690 H2*—"(HOME,17D0WN,9RIBHT,RVSON,PURPLE 3 
R£0(DOWN,3LEFT)£££(DOWN,3LEFT)R£0 CDOWN 
,3LEFTJ£££{DOWN,3LEFT)R£0(BLACK)" 

700 M*-"(HOME,15D0WN,11RIGHT,RVOFF,GREEN > E 
(BLACK,DOWN,2LEFT JAB{DOWN,2LEFTJCD” 

710 L*-"(HOME,12D0WN,11RIBHT,RVOFF,REDJFCD 
OWN,LEFT JG{DOWN,LEFT JH CBLACK)" 

720 0*-"(BREENJUXV{DOWN,3LEFTJTXXVCDOWN,4L 
EFT)X X XV CDOWN,4LEFT)TX XW CDOWN,3LEFT,BL 
ACK)RS CDOWN,2LEFTJRS CDOWN,2LEFT)PQ" 

730 N#-"CHOME,10DOWN,RIGHT,RVSON,BLUE3BRAV 
0! ! ! " 

740 NI*-"(RVSON,BLUE,SPACEJDU BIST FREI" 

750 P*-"{RVSON,RED,SPACEJOHNE SCHLUESBEL B 
EHTCDOWN,7SPACEJDAS NICHT" 

760 Q*-"{RVSON,BLUE)DAS GEHT NICHT!!!(BLAC 
KJ" 

770 R*-"{RVSON,YELLOW)IM DUNKELN FINDEST D 
U(SPACE,DOWN,29PACE)DICH NICHT ZURECHT 


<164) 


<227> 


<046> 


<123) 


<094> 


< 111 ) 


( 210 > 


<241 > 


< 110 ) 


< 174) 


<007) 

< 165 > 
<04 1 > 

<194) 

<060) 


(070) 


700 S*-"(YELLOWJDU KONNTEST DIE BOMBECSPAC 
E,DOWN,2SPACE)NICHT RECHTZEITIG{3SPACE 
,DOWN,4SPACEJBESEITIBEN!!!!" 

790 T*=“(YELLOWJDU BIST IN DEN SCHACHT{DOW 
NJBEFALLEN UND HA3T DASCSPACE,DOWN,2SP 
ACE)SPIEL VERLOREN!!!!" 

000 U*-"CRVSON,RED,6SPACEJSEHR GUT!!C6SPAC 
E, 2D0WN, BLUE, 2SP ACE JDU HAST DIE BOMBE C 
2SPACE,DOWN,7SPACE JBESEITIBT. CBLACK)" <162 > 

010 Ml*="{RVSON,PURPLE,2SPACEJDAS GEHT NIC 
HT DU C3SPACE,DOWN,BPACEJMUSST ERST DIE 
BOMBE(SPACE,DOWN,5SPACEJLOSWERDEN!!" 

820 V*-"CHOME,13D0WN,12RIBHT,BLUE)> *■*■{DOWN 
,3LEFT)!,!CDOWN,3LEFT)!!!{RVOFF,BLACK) 


<116) 


<189> 


< 200 ) 


< 119> 


128 


SONDERHEFT 3/1986 










VC 20 + 16 KByte 


SPIELE 


830 Vl*="CHOME,13D0WN,12RIGHT,BLACK)!!! CDO 



,2170,2230,2290,2350 

<0B7> 

WN,3LEFT >!£ 1 CD0WN,3LEFT)! ! ! CBLUE.4LEFT 


1400 

IF B—1 THEN A—14 

< 128) 

,2UP,RV50N>TCDOWN,LEFTITCDOWN,LEFT>TCR 


1410 

IF B—-1 THEN A=2 

<249 > 

VOFF,RLACK>" 

<027> 

1420 

IF B-2 THEN A-6 

<238> 

840 W*-"CHOME,18D0WN, 16RIBHT,PURPLE)-.CDOW 


1430 

IF B—2 THEN GOSUB 2430 

<060) 

N,2LEFTJ/0" 

<032> 

1440 

GOSUB 4050 

<054> 

850 BDSUB 4050 

<22B> 

1450 

GOTO 860 

<004> 

860 B-0:C1»C*A: B*-“":A*-""!D2-0 

<158) 

1460 

IF B=1 THEN A=1 

<236) 

870 IF A»15 AND M-0 THEN GOSUB 2660:GOSUB 


1470 

IF B— 1 THEN A-3 

<057> 

4050 

<190) 

1480 

IF B-2 THEN A-B 

<046> 

BB0 IF Dl-1 THEN PRINT"CUP,WHITE)" 

<1B7> 

1490 

IF B—2 THEN BOSUB 2430 

< 120 > 

090 PRINT"CHOME,22D0WN,RV80N3"CHR*(63 > j CHR 


1300 

GOSUB 4050 

< 114) 

#(32)|CHR*(122>i 

<0B2> 

1510 

BOTO B60 

<064) 

900 IF A< >13 THEN T5-0:X2-4 

<099> 

1320 

IF B-l THEN A—2 

<042> 

910 IF Ml>0 OR M-l THEN 930 

<145> 

1530 

IF B—1 THEN A-4 

< 121 > 

920 IF A-15 THEN Ml-1IM2-VAL<TI*>jM-3 

<221) 

1340 

IF B—2 OR B-2 THEN GOSUB 2430 

< 116) 

930 IF Ml-1 THEN 3010 

<160) 

1550 

BOSUB 4050 

< 166) 

940 IF T5-1 THEN 960 

<175> 

1560 

GOTO 860 

< 116) 

950 IF A-13 AND B-3 THEN T5-1:M4-VAL<TI*> 

<149) 

1570 

IF B=1 THEN A-3 

<096> 

960 IF T5-1 THEN 3030 

<062> 

1580 

IF B—1 THEN A-16 

<0B2> 

970 GET Y* 

<09B> 

1590 

IF B-2 THEN A-5 

<152) 

9B0 IF T5-1 AND X2-<0 THEN A-INT(RND(1)*17 


1600 

IF B—2 THEN GOSUB 2430 

<232) 

)+lsGOSUB 4050:GOTO 860 

<1B7> 

1610 

BDSUB 4030 

<226> 

990 IF Ml-1 AND X-<0 THEN Z-3rG0T0 3750 

<073) 

1620 

GOTO 860 

<176) 

1000 IF M3-XM4+5) AND T5-1 THEN POKE 4106+ 


1630 

IF B-2 AND 85-1 THEN A-9 

<002> 

X2,32:X2—X2—13 M4—M3 

< 133) 

1640 

IF B-2 AND S5-0 THEN GOSUB 2480 

<199) 

1010 M3—VAL(TI*)lIF M3“>(M2+5)AND MI-1 THE 


1650 

IF B—2 THEN A-4 

<051 > 

N POKE 4096+X,32:X—X-l:M2—M3 

<111) 

1660 

IF B—1 OR B—1 THEN GOSUB 2430 

<100> 

1020 IF Y*-""THEN 970 

< 161 > 

1670 

GOSUB 4050 

<030> 

1030 PRINT CHR*(157)Y*CHR*(122)i 

<215> 

1680 

GOTO 860 

<236) 

1040 POKE T,1:POKE T3,200 

<093> 

1690 

IF B-2 AND L-3 AND S5-1 THEN A-7 

<034> 

1050 IF Y*=CHR*(20)AND LEN(B*)-0 THEN 950 

<029) 

1700 

IF B-2 AND LOS THEN Z-l: GOTO 3750 

< 108) 

1060 IF Y*—CHR*(20)THEN B*—LEFT*(B*,LEN(B* 


1710 

IF B—2 THEN A-l 

<099> 

)-l) 

<249> 

1720 

IF B-2 AND S5-0 THEN GOSUB 2480 

<023> 

1070 B*=B*+Y* 

<210) 

1730 

IF B—1 OR B—1 THEN GOSUB 2430 

< 170) 

1080 IF Y*=CHR*(20>THEN B*—LEFT*(B*,LEN(B* 


1740 

GOSUB 4050 

<100> 

) -1 > 

<013) 

1750 

BOTO 860 

<050) 

1090 POKE T,0:POKE T3,0 

<086) 

1760 

IF B— 1 THEN A-B 

<113) 

1100 IF Y*=CHR*(13)THEN 1120 

<062> 

1770 

IF B-2 AND S5-1 THEN A-13:GOSUB 2780 

<132) 

1110 GOTO 970 

<198) 

1780 

IF B=2 AND S5—0 THEN GOSUB 2480 

<083> 

1120 PRINT"CCLR3" 

<092> 

1790 

IF B=~2 THEN A=6 

<199> 

1130 A*=MID*(BS,6,4):BS-LEFT*<B*,4> <246> 

1800 ,r B=1 THEN GOSUB 2430 

<061 > 

1140 IF B*="FÄRB"THEN GOSUB 3050:GOTO 1370 

<052> 

1810 

GOSUB 4050 

<172) 

1150 IF B*—"LAMP"AND MID*(A*,2,2)-"AN"AND 


1820 

GOTO 860 

<122> 

D=1 THEN D2=l:GOTO 1370' 

< 19B> 

1830 

IF B-l THEN A-7 

<110> 

1160 IF Dl —1 AND B*< >"ZURU"THEN GOSUB 2530 

<140) 

1840 

IF B——1 THEN A-9 

<199) 

1170 IF Dl-1 THEN GOSUB 1210:GOTO 1370 

<087) 

1850 

IF B-2 THEN A-12 

<094> 

1100 IF B*-"RECH"THEN B—1:GOTO 1370 

<230> 

1860 

IF B—2 THEN A-2 

<255) 

1190 IF B*="LINK"THEN B=1:G0T0 1370 

< 128) 

1870 

GOSUB 4050 

<232> 

1200 IF LEFT*(B*,3)—"VOR"THEN B=2:G0T0 137 


1880 

GOTO 860 

<182) 

0 

<062> 

1890 

IF B-l THEN A-B 

< 172) 

1210 IF B*-"ZURU"THEN B—-2:GOTO 1370 

< 107) 

1900 

IF B—2 THEN A-5 

<051 > 

1220 IF Dl-1 THEN RETURN 

<050) 

1910 

IF B—1 OR0B-2 THEN GOSUB 2430 

<16B> 

1230 IF B*-"NIMM"AND A*="LEIT"AND A-5 THEN 


1920 

GOSUB 4050 

<026) 

L-l;GOTO 1370 

<234> 

1930 

BOTO 860 

<232) 

1240 IF B*="LEGE"AND A*="LEIT"AND L-l AND 


1940 

IF B-l THEN A—11 

< 148) 

A-6 THEN L—3:BOTO 1370 

<028> 

1950 

IF B-2 THEN A-16 

<210) 

1250 IF B*-"NIMM"AND A*-"LAMP"AND(Cl-3 OR 


1960 

IF B—1 OR B-~2 THEN BOSUB 2430 

<132) 

01-22 OR CI—42 OR C1-561THEN D-1:B0T0 


1970 

GOSUB 4050 

<076) 

1370 

<008> 

1980 

GOTO 860 

<026) 

1260 IF B*—"NIMM"AND A*-"SCHL"AND A-6 AND 


1990 

IF B-l THEN A-12 

<202) 

L—3 THEN S5—1:GOTO 1370 

< 183) 

2000 

IF B— 1 THEN A-10 

<200) 

1270 IF SS-1 AND L<>3 THEN X-l!BOTO 3750 

<152) 

2010 

IF B-2 OR B—2 THEN BOSUB 2430 

<232> 

12B0 IF B*-"NIMM"AND A*-"FEUE"AND(Cl-11 OR 


2020 

GOSUB 4050 

< 126> 

CI—44 OR CI-6 OR C1-91THEN F1-1:B0T0 


2030 

GOTO 860 

<076) 

1370 

<046> 

2040 

IF B—1 THEN A-l 1 

<248) 

1290 IF B*-"NIMM"AND A*="BOMB"AND A-15 THE 


2050 

IF B-2 AND S5-1 THEN A-15 

<066) 

N M-l:GOTO 1370 

< 179) 

2060 

IF B-2 AND S5-0 THEN GOSUB 2480 

<111) 

1300 IF B*-"WIRF"AND A*-"BOMB"AND A-6 AND 


2070 

IF B—2 THEN A-B 

<233> 

M-l THEN M-2:M1-2:GOSUB 2620:GOTO 137 


2080 

IF B-l THEN BOSUB 2430 

< 154) 

0 

<163) 

2090 

GOSUB 4030 

<198) 

1310 IF A-13 AND LEFT*(B*,3)-V2*THEN T6-1: 


2100 

GOTO 860 

< 140) 

BOTO 1370 

<090> 

2110 

IF B—2 THEN A-7 

<015) 

1320 IF B*="NIMM"AND A*="SCHL"AND A-13 AND 


2120 

IF B-2 AND S5-0 THEN GOSUB 2480 

< 171 > 

T6-1 THEN T6—0:S6—1:GOTO 1370 

<0B7> 

2130 

IF B-2 AND S5-1 THEN A-14:TY-2 

<: 0 17 > 

1330 IF A-10 AND B*="SIEH"AND A*“"NACH"THE 


2140 

IF B--1 OR B-l THEN GOSUB 2430 

<140) 

N:Z—2:GOTO 2870 

< 195) 

2150 

GOSUB 4050 

<002) 

1340 IF A-10 AND B*="NIMM"AND A*-"ZETT"AND 


2160 

GOTO 860 

<208> 

Z-2 THEN Z-l:GOTO 1370 

<111) 

2170 

IF B-l THEN A-l 

<184) 

1350 IF Z=1 AND B*="LIES"AND A*="ZETT"THEN 


2180 

IF B——1 THEN A-15 

<166) 

BOTO 2890 

<145) 

2190 

IF B—2 THEN A-13: GOSUB 2780 

<243) 

1360 GOSUB 2430 

<214> 

2200 

IF B-2 THEN GOSUB 2430 

<239) 

1370 PRINT"CBLACK)":D1=0 

<046> 

2210 

GOSUB 4050 

<062) 

1380 IF A<>13 THEN T5-0:X2-4 

<071) 

2220 

GOTO 860 

<012) 

1390 ON A GOTO 1400,1460,1520,1570,1630,16 
90,1760,1830,1890,1940,1990,2040,2110 


Listing 2. Hauptprogramm für »Out-Break«. 
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2230 IF B-2 THEN A=17 <240> 

2240 IF B—2 THEN A-12 <010> 

2250 IF B-l THEN A-14 <216> 

2260 IF B—1 THEN BQSUB 2430 <064> 

2270 BOSUB 4050 <122> 

2280 GOTO 860 <072> 

2290 IF B=-l THEN A-4 <U9> 

2300 IF B-l THEN A-17 <022» 

2310 IF B—2 THEN A-10 <066> 

2320 IF B-2 THEN B08UB 2430 <105> 

2330 BOSUB 4050 <1B4> 

2340 BDTO 860 <134> 

2350 IF B—1 THEN A-16 <090> 

2360 IF B—2 THEN A-15 <156> 

2370 IF B-2 AND Ul-1 OR M—3)THEN BOSUB 2300 <069> 

2375 IF B-2 AND B-l AND 85-0 THEN BQSUB 24 
80:GOTO 2400 

2376 IF B-2 AND B-l AND 35-1 AND(M-0 QR M» 

2)THEN 3080 

2380 IF B-2 AND S6-0 AND<M-0 QR M-2)THEN ß 
QBUB 2830 

2390 IF B-2 AND 86=1 AND<M-0 QR M-2)THEN 3 
080 

2400 IF B—1 THEN BOSUB 2430 
2410 GOSUB 4050 
2420 GOTO 060 

2430 PRINT"CCLR,9D0WN,3RIBHT >"J 
2440 FOR Q=1 TD LEN<Q*):PRINT"CRVSON)"MID* 

(□*,□,1); 

2450 IF MID*(Q*,Q,1)«CHR*(32>THEN NEXT Q 
2460 BOSUB 3230:NEXT Q 
2470 FQR H—1 TO 1500:NEXT:RETURN 
2480 PRINT"{CLR,9D0WN>" 

2490 FOR Q-l TO LEN(P*):PRINT"CRVSON)"MID* 

(P*,Q,1> 5 

2500 IF MID*(P*,Q, 1)-CHR*,(32)THEN NEXT G 
2510 BOSUB 3230:NEXT Q 

2520 FOR H—1 TO 2000: NEXT:PRINT"CBLACK»"1R 

ETURN <252> 

2530 PRINT“CCLR,9DQWN»" <076> 

2540 FOR Q—1 TO LEN<R*>:PRINT"CRVSON»"MID* 

(R*,Q,1)I 

2550 IF MID*(R*,Q,1)-CHR*(32)THEN NEXT Q <062> 

2560 BOSUB 3230:NEXT Q <1B5> 

2570 FOR H—1 TO 2000:NEXT:PRINT“CWHITE»":R 
ETURN 

2580 PRINT"CCLR,BDOWN»" 

2590 FOR Q-l TO LEN(M1*> : PRINT“ CRVSQN»"MID 
*(M1*,D,1)| 

2600 IF MID*(Ml*,0,1)“CHR*(32)THEN NEXT 0 
2610 BOSUB 3230:NEXT G:FOR H-l TO 1000:NEX 
T:RETURN 

2620 PRINT"CCLR,BDOWN » 

2630 FOR Q-l TO LEN(U*>:PRINT“CRVSON»"MID* 

(U«,Q,1>| 

2640 IF MID*(U*,Q,1)—CHR*(32)THEN NEXT Q 
2650 BOSUB 3230:NEXT Q:FOR H-l TO 1000:NEX 
T:RETURN 

2660 FOR H-l TO 2000:NEXT 
2670 IF G-l THEN Xl-100 
2680 IF B-2 THEN XI-50 
2690 IF B-3 THEN XI-25 

2700 PRINT"CCLR,5D0WN,RVSON,WHITE,2SPACEJV 
OR DIR LIEBT EINEC2SPACE,DOWN,2SPACE» 

BOMBE. DU HAST CA.C2SPACE)" 

2710 IF G-l THEN Xl-100 

2720 PRINT"CRVSON»"XI j:PRINT"BEKUNDEN ZEIT 
UMC3PACE,DQWN,SPACE)SIE IN EINEN SCH 
ACHTCSPACE,DOWN,2SPACE»ZU WERFEN. NUR 
SOCDQWN,SPACE>" 

2730 PRINT"CRVSON,4SPACE »KANNST DU SIEC5SP 
ACE,DOWN,5SPACE »BESEITIBEN! ! CBLACK.RV 
DFFJ" 

2740 FOR 1=1 TO 100 

2750 POKE 36879,10:GOSUB 2770:POKE 36879,4 
0:GOSUB 2770:NEXT I 
2760 RETURN 

2770 POKE T,6:POKE T3,250:FOR H-l TO 10:NE 
XT:POKE T,0:POKE T3,0:RETURN 
2700 IF ß< >3 THEN RETURN 

2790 PRINT"CCLR,4DDWN,RVSON,2SPACE3DU HAST 
DURCH DAS C3SPACE,DOWN,SPACE »BETRETEN 
DES RAUMESC2SPACE»" <152> 

2800 PRINT"CRVSON,SPACEJDIE ALARMANLAGE AU 
S~CSPACE,DOWN,SPACEJBELOEST. DEINE VE 

Listing 2. »Out-Break« (Fortsetzung) 


<039> 

< 165> 

< 111 ) 

<031 > 
<153> 
<008> 
<214> 
<130> 

<016> 

<1B6> 

<0B3> 

<074> 

<026> 

<056> 

<204> 

< 133> 


•<126> 


<165> 

<026> 

<0BB> 

<007> 

<241 > 
<254> 

<24B> 

<250> 

<025> 

< 156> 
<046> 
< 101 > 

< 171 > 


<215> 

<0B6> 


< 184> 


<182> 
< 1B6> 

<082> 

< 022 > 

<095> 

<246> 


R-C2SPACE,D0WN,SPACE)F0LBER SIND DIR 
AUF C2SPACE»" <114> 

2810 PRINT"CRVSON,SPACE>DER SPUR. IN 20 SE 
C.CSPACE,DOWN,SPACE»MUSST DU DEN RAUM 
C4SPACE,DOWN,5SPACE>VERLASSEN.“ 

2820 FOR H-l TO 7000:NEXT:RETURN 
2830 PRINT"CCLR,3D0WN,RVSON,SPACE»DAS GEHT 
NUR MIT DEMCSPACE,DOWN,SPACE»BCHLUES 
SEL UND EINEM" 

2840 PRINT 11 CDOWN,RVSON>ZUSAETZLICHEN SPEZI 
AL-CDOWN,7SPACEISCHLUESSEL" 

2850 PRINT“CRVSON,2D0WN,SPACE}ER BEFINDET 
SICH INC2SPACE,DOWN,4SPACE)EINEM TRES 
OR" 

2060 FOR H-l TO 7000:NEXT.RETURN 
2870 PRINT"CCLR,6D0WN,RVSON,SPACEJIM ABFAL 
LEIMER LIEGTCSPACE,DOWN,6SPACEJEIN ZE 
TTELCBLACKJ" 

2880 FOR H-l TO 2000:NEXT:BOSUB 4050:BOTO 
860 

2890 PRINT"CCLR,RVSON,3D0WN.2SPACEJDER COD 
E FUER DENC3SPACE,DOWN,2SPACEJTRES0R 
BESTEHT AUS C2SPACE,DOWN,2SPACE »FOLGEN 
DEN ZAHLEN," 

2900 PRINT"CDOWN,RVSON,2SPACE»DIE ABER NOC 
H IN C3SPACE,DOWN,3SPACE»DIE RICHTIGE 
REI— C2SPACE,DOWN,3SPACE »HENFOLBE BEBR 
ACHT" 

2910 PRINT"CDOWN,RVSON,2SPACE»WERDEN MUESS 
EN:":PRINT"C3D0WN,6RIBHT,RVS0N»"| 

2920 W=INT(RND(1)*6)+1 

2930 ON W GOTO 2940,2950,2960,2970,2980,29 
90 

2940 PRINT V3*JV4*sV5*:B0T0 3000 
2950 PRINT V3*;V5*jV4*:G0T0 3000 
2960 PRINT V4*|V3*»V5*:B0T0 3000 
2970 PRINT V4*3 V5 *j V3*:GOTO 3000 
2980 PRINT V5*;V4*5V3*:GOTO 3000 
2990 PRINT V5*jV3*jV4*:G0T0 3000 


<086> 
< 170> 


< 112 > 


< 134> 


<031 > 
< 210 > 


<027> 
< 173> 


<246> 


<243> 

< 159> 
<235> 

<215> 

< 113> 
<108> 

< 14B> 
<12B> 

< 153> 

< 17B> 

3000 PRINT"CBLACK»"lFOR H-l TO 9000:NEXT:G 

OSUB 4050:BOTO 860 <085> 

3010 H—4097 TO 4096+X.POKE H+F,2:P0KE 

H, 33: NEXT <U6> 

3020 BOTO 940 <026> 

3030 FOR H—4107 TO 4106+X2.POKE H+F,4lP0KE 

H,33:NEXT <241> 

3040 BOTO 970 <094> 

3050 FF—FF+1:IF FF-32 THEN FF-Z4 <082> 

3060 RETURN <068> 

3070 POKE T, 1* POKE T2,250: FOR B-l TO 20: NE 

XT S:POKE T2,0:POKE T,0:RETURN <010> 

3080 POKE T,5:FOR R-128 TO 255 STEP.2:P0KE 

T3,R:NEXT:POKE T,0:POKE T3,0 <039> 

3090 POKE 36879,152.PRINT"CCLRJ" <04B> 

3100 PRINT"CHOME,DOWN,4RIBHT»"0*:PRINT"C16 

RIBHT »"0*:PRINT"C2RIBHT J"0* < 071> 

3110 PRINT"CHOME,6D0WN,BLACK,SPACE »11»t C3R 

IBHT» ttJ 31tt J"BPC(30)"tJtJJttt" <021> 

3120 PRINT"C4D0WN »"SPC(13)"3 3 31C3RIBHT »11" 

SPC(5B)"tttt33T3" <162> 

3130 PRINT"C3D0WN,SPACE » T 3 C3RIBHT J333tt3" <00B> 

3140 FOR G-l TO 2000:NEXT <200> 

3150 PRINT N*.PRINT <045> 

3160 FOR P-l TO 15:PRINT"CRVSON)"MID*(NI*, 

P,l>, <155> 

3170 0-0+1 <225> 

3180 IF MID*(N1*,P,1>—CHR*(32)THEN NEXT P <077> 
3190 BOSUB 3220:NEXT P <017> 

3200 FOR Q-l TO 800.NEXT.FOR R-4373 TO 436 

0 STEP-1:POKE R,32:NEXT <092> 

3210 PRINT"CHOME,11D0WN»":GOTO 3160 <112> 

3220 IF O>60 THEN PRINT"CCLR»":BOTO 160 <187> 

3230 POKE T,2:POKE T3,150:FOR S-l TO 20.NE 

XT S:POKE T3,0:POKE T,0:RETURN <214> 

3240 S1-4454:S2-4459:83-4464:S4-4470:F-337 

92:K-4585 <124> 

3250 IF Ml—1 AND Fl-1 THEN X-X-4:B0T0 3270 <235> 
3260 IF Ml—1 THEN X-X-2 <146> 

3270 POKE S1,36:POKE S1+F,0:POKE S2,36:P0K 

E S2+F,0:POKE S3,36:POKE S3+F,0 <199> 

3280 IF Fl—0 THEN 3300 <106> 

3290 POKE S4,36:POKE S4+F,0:POKE K,39:POKE 

K+F,2 <108> 

3300 POKE T,4:FOR 1-170 TO 200:POKE T1,I.N 

EXT:POKE T,0:POKE T1,0 <161> 
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3310 IF Si>4580 0R S2>4580 OR 83>45B0 OR S 

4>4580 THEN Z-2sG0T0 3750 <139> 

3320 IF Fl-0 THEN 3380 <178> 

3330 IF K>4595 THEN 3350 <112> 

3340 IF PEEK(197)-28 THEN POKE K,32:K-K+ls 

POKE K+F,2iPOKE K,39 <155> 

3350 IF K<4586 THEN 3370 <069> 

3360 IF PEEK(197)“35 THEN POKE K,32:K-K-ls 

POKE K+F,2sPOKE K,39 <086> 

3370 IF PEEK(653)-1 THEN 0OSUB 3730sQOSUB 

3610 <241> 

3380 IF E5-1 THEN E6-E6+1 <023> 

3390 IF E6-90 THEN 3690 <12B> 

3400 IF El>2 AND E2>2 AND E3>2 AND E4>2 TH 

EN ES-lsBOTO 3310 <160> 

3410 J-J+lsIF J-3 THEN O-0SGOTO 3430 <136> 

3420 GOTO 3310 <154> 

3430 S—INT(RND<1)*4)+1 <205> 

3440 ON S GOTO 3450,3490,3530,3570 <1B7> 

3450 IF PEEK(81)-32 THEN Sl-4454sEl-El+1 <050 

3460 IF El-5 THEN 3300 <0B9> 

3470 POKE 81,32s 31—81+22s POKE 81,36sPOKE 8 

1+F,0 <101> 

3480 GOTO 3300 <182> 

3490 IF PEEK (32)-32 THEN S2-447B:E2-E2+1 <240> 

3500 IF E2-5 THEN 3300 <145> 

3510 POKE 82,32sB2-S2+22sPOKE S2,36:P0KE 8 

2+F,0 <217> 

3520 GOTO 3300 <222> 

3530 IF PEEK(83)-32 THEN 83-4459sE3-E3+1 <153> 

3540 IF E3-5 THEN 3300 <200 

3550 POKE 83,32s83—S3+22sPOKE S3,36sP0KE 8 

3+F,0 <077> 

3560 GOTO 3300 <006> 

3570 IF PEEK(84)»32 THEN S4“4464sE4-E4+1 <049> 

3580 IF E4—5 THEN 3300 <00O 

3590 POKE S4,32sS4—84+22sPOKE 84,36sPOKE 8 

4+F.0 <195> 

3600 GOTO 3300 <048> 

3610 H-KsFOR I-H-22 TO H-132 STEP~22sP0KE 
I+F ,5s POKE 1,40 

3620 IF PEEK(1-22)-36 THEN QOSUB 3660s GOTO 

3640 <116> 

3630 NEXT I <159> 

3640 FOR Jl-H-22 TO H-132 STEP-22sP0KE JH 

F,1s POKE J1,32s NEXT J1 <0B9> 

3650 RETURN <152> 

3660 IF E5-1 THEN RETURN <022> 

3670 POKE 4455,36sPOKE 4455+F.0SPOKE 4457, 

36sPOKE 4457+F,0sPOKE 4462,36:POKE 44 
62+F,0 <052> 

3680 RETURN <1B2> 

3690 FOR 11=4582 TO 4605sPOKE II,32sNEXT I 

1 s POKE 19B,0 <250 

3700 FOR 12-4448 TO 4580sIF PEEK(12)-36 TH 

EN Z=2sGOTO 3750 <170> 

3710 NEXT 12 <017> 

3720 E—0:E1-0 s E2-0 s E3-0S E4-0 s E5=0 :E6-0 s E7- 

0SGOTO 860 <1B8> 

3730 POKE T,43FOR H-250 TO 220 STEP-2sP0KE 

T2,HsNEXTsP0KE T2,0 <042> 

3740 RETURN <242> 

3750 FOR H-l TO 1000sNEXT <101> 

3760 IF Z—3 THEN 3780 <070> 

3770 POKE 36869,192sPOKE 36B79,BsP0KE 19B, 

0 <235> 

3780 ON Z GOTO 3790,3840,3950 <196> 

3790 PRINT" {CLR,7D0WN>"iF0R Q-l TO LEN(T*) 

SPRINT MID*(T*,Q,1>| <197> 

3800 IF MID*(T*,Q,1)-CHR*(32)THEN NEXT 0 <106> 

3810 QOSUB 3230sNEXT 0 <163> 

3820 GOTO 4020 <036> 

3B30 REM <0B0> 

3B40 U-U+l <254> 

3850 PRINT"tCLR,6DQWN,YELLOW,2SPACEJDU BIS 
T VON EINERC38PACE,DOWN,3SPACEJSPINNE 
BEBISSEN C48PACE,DOWN,6SPACE > WORDEN.< 
2D0WN>" <0B4> 

3860 IF B-l THEN 3890 <215> 

3870 IF U—3 THEN 4020 <252> 

3880 PRINT" DER DRITTE BISS IST<2SPACE,D0W 

N,6BPACE>T0EDLICH." <157> 

3B90 FOR H-l TO 5000sNEXT <245> 

3900 PRINT"<CLR,6D0WN,GREEN,SPACEJDURCH DA 
8 SPINNENGIFTfDOWN,SPACE>BIST DU VERW 
IRRT UNDCSPACE,DOWN,2SPACE >WEISST NIC 


HT WO DU" <140> 

3910 PRINT”<D0WN,3SPACE>DICH BEFINDEST."sF 
OR H-l TO 5000sNEXTsPOKE 36869,207sPR 
INT"<CLR,BLACK 1" < 048 > 

3920 A-INT(RND(l)*17)+l <002> 

3930 BOSUB 4050s GOTO 860 <115> 

3940 REM <192> 

3950 POKE T,15sPOKE T4.130 <211> 

3960 FDR H-l TO 100 <12B> 

3970 POKE 36879,124sPOKE 36879,143sPOKE 36 

B79,234lNEXTIPOKE T,0lPOKE T4,0 <i09> 

3980 POKE 36879,BsPOKE 36869,192sPRINT"CCL 

R,7D0WN>" <119> 

3990 FOR Q-l TO LEN<8*>sPRINT MID*(S*,Q,1> 

, <134> 

4000 IF MID*(S*,Q,1)-CHR*(32)THEN NEXT Q <020> 
4010 BOSUB 3230sNEXT Q <109> 

4020 PRINTsPRINT"(3D0WN,CYAN,4SPACEJ- SPIE 

LENDE -tBLACKJ" <125> 

4030 FOR H-l TO B000s NEXTiBOTO 160 <21B> 

4040 END <232> 

4050 PRINT"<CLR>"sPOKE T,2sPOKE T2,190sFOR 

H-l TO 60:NEXTsPOKE T,0:POKE T2,0 <1B9> 

4060 C1-C*A <23B> 

4070 IF A-l OR A-4 OR A-16 OR A-14 THEN PO 

KE 36879,(FF+160)sBOTO 4110 <15B> 

4080 IF D2-0 AND(Cl-13 OR Cl-34 OR C1-4B)T 

HEN POKE 36879,BsDl-lsBOTO 4110 <202> 

4090 IF D2-1 AND(Cl-13 OR Cl-45 OR Cl-34 0 

R CI-48)THEN POKE 36879,152s GOTO 4110 <192> 
4100 POKE 36879,FF <191> 

4110 IF A-l OR A—2 OR A-4 OR A-B THEN TY-1 <123> 
4120 IF A-3 OR A-ll OR A-14 OR A-16 THEN T 

Y—2 <173> 

4130 IF A-5 OR A-6 OR A-13 THEN TY-3 <090> 

4140 IF A-7 OR A—12 THEN TY-4 <176> 

4150 IF A—10 OR A—15 THEN TY-5 <062> 

4160 IF A=17 THEN TY-6 <010> 

4170 IF A—9 THEN TY-7 <161> 

4180 ON TY GOTO 4190,4220,4300,43B0,4410,4 
„ 450,4460 <171> 

4190 rr:£NT A1 *A2*B 1 *B2*J1*J2*J3*K1 *K2*K3*B 

3*B4*D1*D2* <031> 

4200 IF(C-2 OR C-3)AND A-B THEN 3240 <133> 

4210 RETURN <204> 

4220 PRINT A1*A2*A3*A4*C1*C2*C3*C4*E* <041> 

4230 IF CI—3 AND D-0 THEN PRINT F* <010> 

4240 IF CI—22 AND D-0 THEN PRINT F* <216> 

4250 IF CI—42 AND D-0 THEN PRINT F* <099> 

4260 IF CI-56 AND D-0 THEN PRINT F* <175> 

4270 IF(C-l OR C-4)AND A-ll AND Fl-0 THEN 

PRINT L* <062> 

4280 IF(C-2 OR C-3)AND A-3 AND Fl-0 THEN P 

RINT L* <020> 

4290 RETURN <02B> 

4300 PRINT A1#A2*A3*A4*B1*B2*B3*B4*I* <244> 

4310 IF A-6 THEN PRINT B1*B2* <23B> 

4320 IF L—0 AND A-5 THEN PRINT Hl* <133> 

4330 IF L—3 AND A-6 THEN PRINT H2* <017> 

4340 IF A-6 AND 35-0 THEN POKE 4352+F,2sP0 

KE 4352,35 <214> 

4350 IF G>1 AND A-13 AND T6-0 THEN PRINT V 

* < 210 > 

4360 IF Q>1 AND A-13 AND T6-1 THEN PRINT V 

1* <00B> 

4370 RETURN <110> 

4380 PRINT A1*A2*A3*B1*B2*B3*B4*K1*K2*K3*I 

* <105> 

4390 IF C-4 AND A-7 THEN 3240 <216> 

4400 RETURN <140> 

4410 PRINT A1*A2*A4*J1*J2*J3*B1*B2*B3*B4*D 

1*D2* <076> 

4420 IF A-15 AND(M-0 OR M-3)THEN PRINT M* <163> 
4430 IF A—10 AND G>1 THEN PRINT W* <019> 

4440 RETURN <1B0> 

4450 PRINT A1*A2*A3*B1*B2*B3*B4*K1*K2*K3*■ 

PRINT"CGREEN >"I* s PRINT"tBLACK >"s RETUR 
N <134> 

4460 PRINT A1*A2*A4*B1*B2*B3*B4*J1*J2*J3* <0B2> 

4470 IF C-l THEN 3240 <013> 

4480 RETURN <220> 

e B4'w 
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YAATZEE 
auf dem C16 

Wollen Sie ein interessantes Würfelspiel auf 
Ihrem Computer spielen? Dann schlagen Sie 
nicht gleich die nächste Seite auf, denn wir haben 
etwas für Sie. 


Y AATZEE ist ein Spiel, das viele auch unter dem Namen 
»KNIFFEL« kennen. Die nachfolgenden Spielregeln 
zeigen Ihnen, was Sie nach der Eingabe des neben¬ 
stehenden Programms (siehe Listing) erwartet. Nun zu den 
Spielregeln. 

Am Anfang fallen alle 5 Würfel. Davon können 0 bis 5 Würfel 
getauscht werden, indem Sie die Anzahl der zu tauschenden 
Würfel eingeben (GETKEY-Abfrage). Daraufhin fragt das Pro¬ 
gramm ab, welche Würfel getauscht werden sollen. Die 
getauschten Würfel werden neu geworfen, und Sie haben 
anschließend erneut die Möglichkeit zum Tausch. Drei Versu¬ 
che stehen Ihnen zur Verfügung. 

Anschließend können Sie mit der Abfrage »WOHIN« Ihren 
gesamten Wurf einer von 13 Rubriken (Tabelle 1) zuordnen. 
Diese Rubrik ist dann belegt und kann nicht mehr aufgerufen 
werden. Hatten Sie keinen Erfolg, müssen Sie trotzdem eine 
Rubrik belegen. Der Wert 0 wird dort eingetragen. 

Wenn Sie bei den Rubriken 1 bis 6 insgesamt mehr als 62 
Punkte erreicht haben, erhalten Sie einen Bonus von 35 
Punkten. 

Wer das Spiel verändern will, findet in Tabelle 2 die Varia¬ 
blenliste und in Tabelle 3 eine Programmübersicht. 

(Karl-Heinz Montag/kn) 





Mögliche Rubriken 

1) 

1er 

Hier zählen nur die gefallenen 1 er 

2) 

2er 

Hier zählen nur die gefallenen 2er 

3) 

3er 

Hier zählen nur die gefallenen 3er 

4) 

4er 

Hier zählen nur die gefallenen 4er 

5) 

5er 

Hier zählen nur die gefallenen 5er 

6) 

6er 

Hier zählen nur die gefallenen 6er 

0) 

Drilling 

3 Würfel mit gleichem Wert, 
es zählen alle Augen. 

9) 

Vierling 

4 Würfel mit gleichem Wert, 
es zählen alle Augen. 

10) 

Full House 

Je 3 und 2 gleiche Würfel, 

Zählwert 25 Punkte 

11) 

Kleine Straße 

4 Würfel in aufsteigender Folge 

(zum Beispiel 2,3,4,5) Zählwert 30 Punkte. 

12) 

Große Straße 

5 Würfel In aufsteigender Folge 
(zum Beispiel 1,2,3,4,5) Zählwert 

40 Punkte) 

13) 

YAATZEE 

5 Würfel mit gleichem Wert, 

Zählwert 50 Punkte 

14) 

Chance 

Diese kann man anfordern, wenn keine 
bestimmte Kombination erzielt wurde oder 
die erzielte bereits belegt ist. Es werden 
alle Augen gezählt. 


Tabelle 1. Rubriken, denen ein Wurf zugeordnet werden kann 


VARIABLENLISTE 

AS(1) bis A$(6) 

6 mögliche Würfel 

A (1) bis A(15) 

mögliche Kombinationen 

C (1) bis C(13) 

Überprüfung, ob Kombinationen 


schon belegt 

K 

Zeiger für Spielende 

R 

Zähler für 3 Würfe 

S 

Zähler für 13 mögliche Kombinationen 

AA,AB,AC,AD,AE 

5 Würfel 

BA,BB,BC,BD,BE,BF 

Zähler für Drilling, Vierling und 


Full House 

AG 

Anzahl Würfel tauschen 

U(1) bis U(5) 

Würfel tauschen 

B,TT 

Warteschleife 

O 

Abfrage welche Kombination 

V(P),W(P) 

DATAs für Melodie 

T 

Highscore 


Tabelle 2. Variablenliste zu »YAATZEE« 


10- 102 

Dimensionierung, Variablenbestimmung 

103- 300 

Bilderstellung 

301- 801 

Würfeln 

900 

Überprüfung, ob schon dreimal gewürfelt wurde 

1000- 1010 

Abfrage wieviele tauschen 

1100- 1303 

Abfrage welche lauschen 

1399- 6402 

Würfel tauschen 

6510 

Eingabe welche Kombinationen belegen 

7000- 7005 

Zähler für 1er 

7100- 7105 

Zähler für 2er 

7200- 7205 

Zähler für 3er 

7300- 7305 

Zähler für 4er 

7400- 7405 

Zähler für 5er 

7500- 7505 

Zähler für 6er 

7600 

Zwischensumme 

7700- 8204 

Zähler für Drilling, Vierling und Full House 

8300- 8302 

Überprüfung ob Drilling 

8400- 8402 

Überprüfung ob Vierling 

8500- 9050 

Überprüfung ob Full House 

9060- 9110 

Überprüfung ob große Straße 

9300- 9306 

Überprüfung ob YAATZEE 

9610- 9693 

Melodie 

9700- 9720 

Highscore 

9901- 9910 

Abfrage: nochmal 

10000-10060 

Würfel 


Tabelle 3. Programmübersicht zu »YAATZEE« 
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C 1 6/116 


10 DIMAU5) ,C(15) ,V(38) ,W(3S> -.GOSUB1000 

1000 PRINT"CHOME,22D0WNJWIEVIELE WILLST 

0 

DU TAUSCHEN?" 

20 F0RX“1T015:A(X) =0:C(X) =0:NEXT 

1010 GETKEYAG:IFAG=0THEN6500:IFAB“7THEN7 

90 SCNCLR 

600 

91 S=0:VOL3 

1020 PRINT"CHOME,23D0WN,7SPACE>" 

92 COLOR0,8,7s C0LQR4 *7,3 

1100 PRINT"CHOME,23D0WNJWELCHE" 

100 C0L0R1,1:A(7)=A(1)+A(2)+A(3>+A(4>+A( 

1200 FORAF=lTOAG 

5)+A(6>sIFA(7)>62THENA(7) = A ( 7)+35 

1300 GETKEYUCAF)sU=AFsSOUND1, 99,6 tNEXT 

101 GOSUB9450:R=0:K=0: S=S+1:1FS >13THEN95 

00 

102 SCNCLR s AA=0:AB=0:AC=0:AD=0:AE=0 

1301 1FU >0ANDU <6THEN1399:ELSE130 

1302 PRINT"CHOME,23DOWN,6SPACE>“ 

103 BA=0:BB=0:BC=0:BD=0:BE=0:BF=0 

1303 PR1NT"CHOME,23D0WN > WELCHE":GOTO1200 

106 PRINT"«SPACE,RVSON,RED >1CRVOFF,6SPA 

1399 FORB=1TO500:NEXT 

CE,RVSQN,CYAN >2CRVOFF,6SPACE,RVSON,PURPL 

1400 ONU(1)GOSUB6000,6100,6200,6300,6400 

E J3 CRVOFF,6SPACE,RVSQN,QREEN >4IRVOFF,6SP 

1409 FORB=1TO500:NEXT 

ACE,RVSON,BLUE >5 CRVSON >“ 

1410 ONU (2) GOSUB6000,6100,6200,6300,6400 

107 PRINT" C5SPACE3.U_C_C_CJ. .U.C.C.C.I. D.C.C.C-I. ü 

1419 FORB=1TQ500:NEXT 

CC.CI UC.CC.I" 

1420 ONU(3 > GOSUB6000,6100,6200,6300,6400 

110 PRINT"C3SPACE),SC3SPACE>fi£2SPACE>S£3B 

1429 FORB*1TO500:NEXT 

PACEJfi fiC3SPACE>fi fiC3SPACE)£C2SPACE>fiC 

1430 ONU (4) BOSUB6000,6100,6200,6300,6400 

3SPACEJ.fi" 

1439 FORB=lTO500:NEXT 

120 PRINT”C3SPACE>fiC3SPACEJfi fi<3SPACE>fi 

1440 ONU (5 > BOSUB6000,6100,6200,6300,6400 

fi£3SPACEJfi SC3SPACEJS fi{3SPACEJfi" 

1450 F0RAF=1TQ5:U(AF)=0:NEXT 

130 PRINT"C3SPACE>fi£3SPACEJfi fi{3SPACEJfi 

1500 GOTO900 

fi£3SPACE>fi 2C3SPACEJ2 fiC3SPACE>2" 

6000 PRINT"CHOME,2D0WN,4RIGHT,3SPACE,DOW 

140 PR I NT " C3SPACE > .J-C-C.C.K. .3.CJ.C.K. jL££S&C2S 

N , 3LEFT , 3SP ACE, DOWN , 3LEFT , 3SP ACE > " 

PACE J 3-C-CJA ,J-C,C.C_K." 

6001 AA=INT(RND(1)*6)+1 

150 PRINTs 

6002 PRINT"CHOME,2D0WN,4RIGHT >"A*(AA >:GO 

160 PRINT"C3SPACEJ1) 1ERC9SPACE}="A(1> 

SUB11000:RETURN 

170 PRINT"C3SPACEJ2) 2ERC9SPACEJ=“A(2> 

6100 PRINT"CHOME,2D0WN,1IRIGHT,3SPACE,DO 

180 PRINT"«SPACE>3) 3ER<9SPACE>="A(3) 

WN,3LEFT,3SPACE,DOWN,3LEFT,3SPACE>" 

190 PRINT"«SPACE>4) 4ER£9SPACE>="A(4) 

6101 AB=INT(RND(1>*6>+1 

200 PRINT"£3SPACEJ5) 5ER£9SPACE>="A(5) 

6102 PRINT"CHOME,2D0WN,11RIGHT >"A*(AB >:G 

210 PRINT"C3SPACEJ6) 6ERC9SPACEJ="A(6> 

OSUB11000:RETURN 

220 PRINT"C4SPACE,PURPLEJZW—SUMMEC6SPACE 

6200 PRINT"CHOME,2D0WN,1SRIBHT,3SPACE,DO 

J-C5SPACE,RVSQN>"A(7>"(RVOFF,BLACK >" 

WN, 3LEFT, 3SPACE, DOWN, 3LEFT, 3SPACE > “ 

230 PRINT"C3SPACEJB)DRILLINGC5SPACEJ“"5I 

6201 AC=INT(RNDC1)*6)+1 

FC(7)“1THEN231!ELSE232 

6202 PRINT"CHOME,2D0WN,1BRIGHT >"A* < AC >:G 

231 PRINT"CUP,19RIGHT,RVSON,REDJ"A(8>"CR 

OSUB11000:RETURN 

VQFF,BLACK>"!GQTO240 

6300 PRINT”CHOME,2D0WN,25RIGHT,3SPACE,DO 

232 PRINT"CUP,19RIGHTJ"A<8) 

WN,3LEFT,3SPACE,DOWN,3LEFT,3SPACE>" 

240 PRINT" C3SPACEJ9) VIERLINGC5SPACE>=" s I ;; q 

nuna ~" 31 AD=INTCRND<1>*6>+1 

FC ( B) = 1THEN241: ELSE242 

6302 PRINT"CHOME,2D0WN.25RIGHT>“A*(AD) :G 

241 PRINT"CUP,19RIGHT,RVSON,RED >“A(9)"CR 

OSUB11000:RETURN 

VQFF,BLACKJ":BOTO250 

6400 PRINT"CHOME,2D0WN,32RIGHT,3SPACE,DO 

242 PRINT"CUP,19RIGHTJ"A<9) 

WN , 3LEFT, 3SPACE , DOWN, 3LEFT , 3SPACE > " 

250 PRINT"C3SPACEJ10)FULLH0USEC3SPACEJ“" 

6401 AE“INT(RND(1)*6)+1 

!IFCC9)=1THEN251:ELSE252 

6402 PRINT"CHOME,2D0WN.32RIGHT>"A*(AE):G 

251 PRINT"CUP,19RIGHT,RVSQN,RED>"AC10)"C 

OSUB 11000: RETURN 

RVOFF , BLACK > “ ! GOTO260 

6500 PRINT"CHOME,22D0WN,31SPACE>" 

252 PRINT"CUP,19RIGHT >"A <10) 

6501 PRINT"CHOME,23D0WN)WOHIN C2BPACE >" 

260 PRINT"C3SPACE>11)KL.STRASSEC2SPACE>“ 

6510 INPUTQ:6OTQ6520 

"tIFCU0>-1THEN261tELSE262 

6511 PRINT"CHOME,22DOWN,31SPACE >“ 

261 PRINT"CUP,19RIGHT,RVSQN,RED >"A(11>"t 

6512 PRINT"CHOME,21D0WNJW0HIN " 

RVOFF,BLACKJGOTO270 

6513 INPUTO 

262 PRINT" CUP, 19RIGHTVA111 > 

6520 IFO=1THEN7000:ELSE6530 

270 PRINT"C3SPACEJ12)GR.STRASSEC2SPACEJ“ 

6530 IFQ=2THEN7100:ELSE6540 

"!IFC(11)-1THEN271CELSE272 

6540 IFO=3THEN7200:ELSE6550 

271 PRINT"CU 3 ,19RIGHT,RVSQN,RED>"A (12)“C 

6550 IFO-4THEN7300ELSE6560 

RVOFF, BLACK > " s BC1TQ290 

6560 IFO=5THEN7400:ELSE6570 

272 PRINT"CUP , 19R1GHT > • ft < 12 > 

6570 IFO=6THEN7500:ELSE6580 

280 PRINT“C3BPACE>13)Y AAT ZEE C5SPACE>-"11 

6580 IFO-BTHEN7700:ELSE6590 

FC C12)-1THEN281s ELSE232 

6590 IFQ“9THEN7700t ELSE6600 

281 PRINT" CUP, 19RTEHTRVSON , RED >" A (13) “£ 

6600 IFO“10THEN7700:ELSE6610 

RVOFF,BLACK >"3BOTO290 

6610 IFO=l1THEN9060:ELSE6620 

2B2 PRINT" CUP, 19RIGHT > "A(13) 

6620 IFO- 12THEN9095.ELSE6630 

290 PRINT"C3SPACEJ14)CHANCEC6SPACEJ“":IF 

6630 IFO=13THEN9300 : ELSE6640 

C ( 13) = 1T HEN291 : ELSE292 

6640 IFO“14THEN9400:EL5E6650 

29 1 PRINT M CUP, 1 9RI GHT ,R VSQN ,RED >"A(14)"< 

6650 GQTO100 

RVOFF,BLACK > ":GOTO300 

7000 IFC(1>-1THEN6511:A(1 > “0:ELSEIFAA“1T 

292 PRINT"CUP,19RIGHT>"A(14) 

HENA(1)=A(1)+1:ELSEAA=0 

300 PRINT"C5SPACE , SREEN > BESAMT C7SPACE > = C 

7001 IFAB”1THENA ( 1 ) ”A ( 1 )+ 1 : ELSEAB=0 

5SPACE , RVSON J " A C1 5)" CRVOFF , BLACK >" 

7002 IFAC= 1 THENA ( 1 ) =A ( 1 ) + 1 : ELSEAC-0 

301 IFK=100THEN9600 

7003 IFAD=1THENA ( 1 ) =A ( 1 ) +1 : ELSEAD-0 

400 AA“INT(RND(1>*6>+1 

7004 IF AE“1THENA ( 1 ) “A ( 1 ) +1 I ELSEAE=0 : C ( 1 ) 

401 PRINT"CHOME,2D0WN,4RIBHT>"A*CAA> 

-1 

500 AB=INT(RND(1)*6)+1 

7005 GOTO100 

501 PRINT"CHOME, 2D0WN, 11RI GHT > " A* (AB > 

7100 IFC(2)=1THEN6511:A(2)=0:ELSEIFAA=2T 

600 AC“ INT C RND (1)*6)+1 

HENA(2)=A(2)+2:ELSEAA=0 

601 PRINT"CHOME,2D0WN,1BRIGHT >"A#(AC) 

7101 IFAB-2THENA(2)=A(2)+2:ELSEAB=0 

700 AD“INT(RND(1)*6)+1 

7102 IFAC-2THENA(2)=A(2)+2:ELSEAC=0 

701 PRINT“CHOME,2D0WN,25RIGHT >"A* ( AD) 

7103 1FAD=2THENA(2)“A(2)+2:ELSEAD=0 

800 AE“INT<RND(1)#6)+1 

7104 IFAE“2THENA (2) =A (2) +2: ELSEAE=0: C ( 2 ) 

801 PRINT"CHOME,2D0WN,32RIGHT >"Ai<AE) 

-1 

900 R=R+1:IFR<3THEN990 :ELSE6500 

7105 GOTO100 

990 PRINT"CHOME,23DOWN,30SPACE>" 

Llsting zu »YAATZEE« 
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7200 IFC(3)=1THEN6511s A(3)=0:ELSEIFAA=3T 

8801 IFBA=20RBB=20RBC=*20RBE=20RBF=2THEN9 

HENA < 3)=A(3)+3:ELSEAA=0 

050:ELSE8900 

7201 IFAB=3THENA(3)=A(3)+3:ELSEAB=0 

8900 IFBE-3THENB9013 ELSE9000 

7202 IFAC=3THENA (3) “A (3) +3: ELSEAO0 

8901 IFBA=20RBB=20RBC“20RBD=20RBF=2THEN9 

7203 IFAD=3THENA < 3)=A(3)+3!ELSEAD=0 

050:ELSE9000 

7204 IFAE=3THENA(3)=A(3)+3:ELSEAE=0:C(3) 

9000 IFBF=3THEN9001:ELSE9020 

= 1 

9001 IFBA=20RBB»20RBC=20RBD=20RBE=2THEN9 

7205 GOTO100 

. 050:ELSE9020 

7300 IFC < 4) = 1THEN6511:A(4 > =0:ELSEIFAA=4T 

9020 A(10)=0:C(9)=1s GOTO100 

HENA(4)=A (4)+4:ELSEAA=0 

9050 A<10)=25:C(9)“18 GOTO100 

7301 IFAB=4THENA < 4)-A(4)+4:ELSEAB=0 

9060 IFC <10)=1THEN6511s ELSEA(11)=30:C(10 

7302 IFAC=4THENA(4)=A(4)+4 s ELSEAC=0 

)-lsGOTO100 

7303 IFAD=4THENA < 4 > =A(4)+4:ELSEAD=0 

9095 IFC(11)=1THEN6511aELSE909B 

7304 IFAE-4THENA < 4 > =A < 4 > +4:ELSEAE=0 s C < 4 > 

9098 IFAA<>ABANDAA< >ACANDAA<>ADANDAA< >AE 

-1 

THEN9102 8 ELSE9108 

7305 GOTO100 

9102 IFAB< >ACANDAB< >ADANDAB< >AEANDAB<>AA 

7400 IFC(5)“1THEN6511:A(5)=0:ELSEIFAA=5T 

THEN9103:ELSE9108 

HENA(5 > =A(5)+5«ELSEAA-0 

9103 IFAC<>AAANDAC<>ABANDAC<>ADANDAC< >AE 

7401 IFAB=5THENA< 5) =A ( 5 > +5:ELSEAB=0 

THEN9104 8 ELSE9108 

7402 IFAC=5THENA< 5 > =A < 5)+5: ELSEAC=0 

9104 IFAD<>AAANDAD< >ABANDAD< >ACANDAD<>AE 

7403 IFAD-5THENA< S > =A (5) +5:ELSEAD-0 

THEN9105 s ELSE9108 

7404 IFAE=5THENA(5>=A(5>+5:ELSEAE=0!C<5> 

9105 IFflE< >AAANDAE<>ABANDAE<>ACANDAE<>AD 

»=1 

THEN91068 ELBE9108 

7405 GOTO100 

9106 IFAA>1ANDAB>1ANDAC>1ANDAD>1ANDAE>1T 

7500 IFC(6)=1THEN65118 A(6)=01 ELSEIFAA=6T 

HEN9110:ELSE9107 

HENA (6 ) =A < 6> +6 s ELSEAA=0 

9107 IFAA<6ANDAB< 6ANDAC< 6ANDAD< 6ANDAE< 6T 

7501 IFAB-6THENA < 6 > =A < 6 > +6 a ELSEAB-0 

HEN9110:ELSE9108 

7502 IFAC=6THENA<6)=A(6)+6:ELSEAC=0 

9108 A(12)=0:C(11)=1:GOTO100 

7303 IFAD=6THENA*6)=A(6) +6 8ELSEAD=0 

9110 A(12)=40:C <11> =1:GOTO100 

7504 IFAE=6THENA(6)=A( b) +6:ELSEAE=0:C( b > 

9300 IFC <12)=1THEN6511:ELSE9302 

»1 

9302 IF AA=ABANDA A=AC AND AA=AD AND AA=AETHEN 

7505 GOTO100 

9306s ELSE9305 

7600 A (7) =A < 1 > +A (2) +A (3) +A (4> +A (5) +A (6) 

9305 A(13)=08C(12)=l:GOTO100 

7601 IFA<7)>62THENA(7)=A(7)+35s GOTO100 

9306 A(13)=50:C(12>=1:GOTO100 

7700 IFAA=1THENBA=BA+1 

9400 IFC(13)=1THEN6511:ELSEA(14)=AA+AB+A 

7701 IFAB-1THENBA-BA+1 

C+AD+AEr C(13)=1:GOTO100 

7702 IFAC=1THENBA=BA+1 

9450 A(15)=A(7)+A <8> +A(9)+A <10)+A <11)+A( 

7703 IFAD=1THENBA=BA+1 

12)+A(13)+A <14):RETURN 

7704 IFAE=1THENBA=BA+1 

9500 A(15)=A(7)+A<8)+A(9)+A(10)+A<11)+A< 

7B00 IFAA=2THENBB=BB+1 

12)+A(13)+A(14):K=100:GOTO103 

7801 IFAB=2THENBB=BB+1 

9600 FORTT=1TO3000:NEXT 

7802 XFAC=2THENBB=BB+1 

■» 10 IFA (15) >290THEN9620: ELSE9700 

7803 IPAD=2THENBB=BB+1 

9620 SCNCLR:F0RP=1TG38 

7804 IFAE=2THENBB=BB+1 

9630 READV(P),W(P) 

7900 IFAA=3THENBC=BC+1 

9640 SOUNDl,V(P),W(P) 

7901 IFAB=3THENBC=BC+1 

9650 PRINT"TRVOFF,RED>äTGREEN,R9S0N>"A(1 

7902 IFAC=3THENBC=BC+1 

5)"{RVOFF,LEFT,BLUEJ5Ä"j"<RED>ätGREEN,RV 

7903 IFAD=3THENBC=BC+1 

SQNJ 11 A (15) " CRVOFF.LEFT.REDJSS."; " {REDJS.CG 

7904 IFAE=3THENBC=BC+1 

REEN,RVSON >"A(15)"{RVOFF,LEFT,RED > ää"; "t 

8000 IFAA=4THENBD=BD+1 

RED J ätPURPLE,RVSON >"A(15)"{RVOFF,LEFT,RE 

8001 IFAB=4THENBD=BD+1 

D>^"J 

8002 IFAC=4THENBD=BD+1 

9660 NEXTP 

B003 IFAD=4THENBD=BD+1 

9670 DATA 643,20,739,20,739,10,770,10,79 

8004 IFAE=4THENBD=BD+1 

8,20,739,20,834,40 

8100 IFAA=5THENBE=BE+1 

9680 DATA 798,30,798,10,810,20,834,10,81 

8101 IFAB=5THENBE=BE+1 

0,10,798,10,810,10 

8102 IFAC=5THENBE=BE+1 

9690 DATA 834,20,770,10,739,10,770,10,79 

8103 IFAD=5THENBE-BE+1 

8,10,770,20 

B104 IFAE=5THENBE=BE+1 

9691 DATA1021,2 ,643,20,739,20,739,10,77 

8200 IFAA=6THENBF=BF+1 

0,10,798,20,739,20,834,40,798,30 

8201 IFAB=6THENBF=BF+1 

9692 DATA79B,10,810,10,834,10,798,10,B10 

8202 IFAC-6THENBF-BF+1 

,10,770,30,739,10,1021,2,739,30 

8203 IFAD=6THENBF=BF+1 

9693 RESTORE 

8204 IFAE=6THENBF=BF+1 

9695 FQRTT=1TO3000:NEXT 

8205 IFO=10THEN85003 ELSE8206 

9700 IFA US)>TTHENT=A(15):G0T09710:ELSE9 

8206 1FO=9THEN84008 ELSE8207 

900 

8207 IFO=8THENB300 

9710 COLDR1,2:COLOR0,1:C0L0R4,1 

8300 IFC(7)«1THEN65118 ELSE8301 

9720 PRINT"{CLR,9RIGHT,9DQWNIHIGHSCORE8t 

B301 IFBA>20RBB>20RBC>20RBD>20RBE >20RBF > 

RVSONI "T" {RVOFF>" 

2THEN8302 s ELSEC <7>=lsA<S>=0s GOTO100 

9900 FORTT=1TO3000:NEXT 

8302 A <S>=AA+AB+AC+AD+AEs C(7> = 1a GOTO100 

9901 PRINT"<3D0WN>N0CHMAL (J/N)?" 

8400 IFC(8)=1THEN65118 ELSEIFBA>30RBB>30R 

9910 GETKEYA*:IFA*="J"THEN20:ELSEEND 

BC >3ÜRBD>30RBE >30RBF 73THENB402 

10000 A* i 1)="{RIGHT,DOWN>&" 

8401 C(8)=lsA(9)=0a GOTO100 

10010 A*(2>="{RED}ä{2DQWN,RIGHT>STBLACK> 

8402 A(9)=AA+AB+AC+AD+AE:C(8)=1:GOTO100 

" 

8500 IFC(9)=1THEN65113 ELSEIFBA=3THENB501 

10020 A*(3)="{CYAN>fiTDOWN>fi{DOWN>äTBLACK 

s ELSE8600 

J" 

8501 IFBB=20RBC=20RBD=20RBE=20RBF=2THEN9 

10030 A*(4)="{PURPLE>S{RIGHTJäTDOWN,3LEF 

050:ELSE8600 

T,DOWN>fi{RIGHT J STBLACK >" 

8600 IFBB=3THEN8601s ELSE8700 

10040 A*(5)="{GREEN>S{RIGHT>a{DOWN,2LEFT 

8601 IFBA=20RBC=20RBD=20RBE=20RBF=2THEN9 

>äCDOWN , 2LEFT >,0_{R IGHT > SCBLACK) " 

050:ELSE8700 

10050 A*<6)="{BLUE)a<RIGHT>a(DOWN,3LEFT> 

8700 IFBC=3THEN8701jELSE8800 

a{RIGHT >äCDQWN,3LEFT >äCRlGHT »aTBLACK >" 

8701 IFBA=20RBB=20RBD=20RBE=20RBF=2THEN9 

10060 RETURN 

050:ELSE8800 

11000 SOUND1,1000,6-.RETURN 

8800 IFBD=3THENBB01:ELSE8900 

<c> 64 er Listing zu »YAATZEE« (Schluß) 
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VC 20 + 3 KByte 


SPIELE 


UFE - Das Spiel 
des Lebens 

Mit diesem Spiel erforschen Sie das Leben. Orga¬ 
nismen werden geboren, überleben oder sterben 
im Evolutionsprozeß. Wie sich die Organismen 
entwickeln, liegt an Ihnen. 

D as Spiel »LIFE« besteht aus zwei Programmteilen, 
einem Maschinenspracheteil »Life mc loader« (Listing 
1) und dem Hauptprogramm »Life basic program« 
(Listing 2). Für das Spiel wird eine 3 KByte Erweiterung 
benötigt. Haben Sie beide Programmteile abgetippt und 
gespeichert, ist zunächst»life mc loader« zu laden und mit 
RUN zu starten. Geben Sie nun NEW ein und laden das 
Hauptprogramm, das sich ebenfalls mit RUN starten läßt. 
Zum Programm: 

»LIFE« könnte man als mathematisches »Spiel« bezeich¬ 
nen. Es ist geradezu prädestiniert für die Implementierung 
auf Computern. Entwickelt wurde es vom britischen Mathe¬ 
matiker Arthur Conway. Mit »LIFE« werden in einer Matrix 
geometrische Figuren entwickelt, die, und das ist die Beson¬ 
derheit, in ihrer Entwicklung lebenden primitiven Organismen 
ähneln. Als Ausgangsfigur legt man in einer Matrix mit Reihen 
und Spalten ein beliebiges Muster fest. Dieses wird nach den 
folgenden Regeln fortentwickelt: 

Ein Feld in der Matrix hat genau acht Nachbarfelder. Befin¬ 
det sich in dem Feld nun eine »Zelle«, so wird darüber ent¬ 
schieden, ob diese Zelle »überlebt« oder »stirbt«. Existieren 
auf den Nachbarfeldern dieser Zelle zwei oder drei weitere 
Zellen, so »überlebt« die Zelle. Befinden sich dort weniger als 
zwei oder mehr als drei, so »stirbt« sie. Auf einem freien Feld, 
das genau drei Nachbarfeider mit Zellen hat, wird eine neue 
Zelle »geboren«. Diese Regeln werden alle simultan ange¬ 
wandt, das heißt unabhängig davon, ob eine Zelle »stirbt«, 
»überlebt« oder »geboren« wird, wird für die übrigen Zellen 
das noch bestehende Muster für die Anwendung der Regeln 
herangezogen. Ein in oben genannter Weise neu entstande¬ 
ner »Organismus« ist ein solcher der »zweiten Generation«. 
Diesen kann man nun genauso wie den ersten fortent¬ 
wickeln. 


1 POKE 55,1201POKE 56,23 <253> 

ia DIM H <75)I FÜR 1-0 TO 9 <139> 

20 H(4B+I>-IiH(65+1)-I+10oNEXT <067> 

30 FOR 1-6010 TO 7167iREAD A* <004> 

40 H-ASC(LEFT#<A*,1>)«L-ASC(RISHT*<A*,1>> <223> 

30 D-H(H)*16+H(L)iS-S+DiPOKE I,D <243> 

60 A-A+liIF A<20 THEN NEXT! A—1 <163> 

65 PRINT"ZEILE "jl000+Z| <181> 

70 READ V« Z-Z+l iIF V-S THEN B5 <049> 

00 PRINT" FEHLER ! •• j 999+Zn 8T0P <023> 

B5 IF A<0 THEN END <247> 

90 S-0!A-0!PRINTiNEXTtEND <133> 

1000 DATA 32,42,31,41,30,00,00,00,00,00,A9 

,00,8D,DB,1B,0D,DC,1B,A9,08, 1399 <152> 

1001 DATA BD,DB,1B,4U,D9,1B,90,12,18,AT,DA 

,1B,6D,DB,1B,SD,DB,1B,A9,00, 2221 <136> 

1002 DATA 6D,DC,1B,QD,DC,1B,4E,DB,1B,6E,DC 

,1B,CE,D8,1B,D0,DE,60,EA,EA, 2B6B <173> 

1003 DATA AD,CE,1B,1B,6D,D0,1B,BD,D2,1B,AD 

,CD,1B,1B,6D,CF,1B,90,03,EE, 2309 <147> 

1004 DATA D2,1B,BD,D1,1B,60,EA,EA,EA,EA,AD 

,D7,1B,BD,D9,1B,A9,1B,8D,DA, 3001 <221> 

1005 DATA 1B,20,B4,17,AD,DC,1B,BD,CD,1B,AD 

,DB,1B,SD,CE,1B,AD,D6,1B,BD, 2355 <213> 


Dieses ist schon vom Optischen her sehr reizvoll. Es kön¬ 
nen zum Beispiel aus unscheinbaren Ausgangsmustern auf¬ 
geblähte Konfigurationen entstehen, die aber ebenso plötz¬ 
lich in sich zusammenfallen können. Es existieren pulsie¬ 
rende Muster, die sich nach einer gewissen Zeitspanne wie¬ 
derholen. 

Um ein wenig »Evolution« in diese Regeln zu bringen, 
ermöglicht das Programm auch, zufällig eine bestimmte 
Anzahl von Zellen zu »zerstören«. 

Bedienung des Programms: 

Das Programm ist menügesteuert. Am Anfang läßt sich ein 
Grundmuster eingeben. Dazu wählt man »Option 1«(Entering 
of Coordinates). Falls man schon vorher ein Muster eingege¬ 
ben hat, kann man wählen, ob dieses vor Neueingabe 
gelöscht werden soll oder nicht. Danach erscheint auf dem 
Bildschirm eine Matrix aus 32 Zeilen und 26 Spalten mit 
einem roten Cursor in der Mitte. Diesen kann man wie den 
»normalen« Cursor mit den Steuertasten bewegen. Will man 
an einer Stelle eine »Zelle« setzen, so drückt man die Taste 
»*«, will man eine vorhandene Zelle löschen, so drückt man 
die Taste SPACE. Mit der Taste »R« kommt man ins Menü 
zurück. 

Nun läßt sich die Figur fortentwickeln. 

Dazu gibt es zwei Optionen. Die »Automatic«-Option ent¬ 
wickelt sich von selbst. Ist ein »Organismus« aufgebaut, so 
wird gleich darauf der der nächsten Generation erstellt. Im 
»Single Step Mode« wartet das Programm jeweils, bis die 
SPACE-Taste gedrückt wird. Erst dann wird der nachfolgende 
Organismus dargestellt. In beiden Modi kann man mit der 
Taste »F3« die Hintergrundfarbe und mit »F5« die Zeichen¬ 
farbe beliebig ändern. Mit »F7« kommt man ins Menü zurück. 
Die Tasten müssen einige Sekunden gedrückt werden. Gra¬ 
fisch iat das besonders reizvoll. Zusätzlich läßt sich auf einem 
Drucker eine Hardcopy erzeugen, wenn man auf die Frage 
mit Y (Yes) antwortet. Diese wird so erstellt, daß überflüssige 
Zeilen, die kein Muster enthalten, nicht gedruckt werden. 

Schließlich kann man mit Option 4 »Mutationen« erzeugen. 
Dazu wird nach der relativen Häufigkeit gefragt. »1« ist die 
geringste Häufigkeit, nach oben ist keine Grenze gesetzt. 
Mit Option 5 läßt sich die Mutation wieder »ausschalten«. 
- Interessant sind zum Beispiel Studien, ob Mutationen der 
»Entwicklung« förderlich oder für sie eher schädlich sind, 
oder über die Tatsache, daß der Trend der »Entwicklung« 
meist vom großen zu mehreren kleinen Organismen geht, in 
die sich der Große aufspaltet. 

(Claus Neupert/ah) 


1006 DATA CF, 1B, A9,00, BD, D0,1B , 20, B6,17 , AD 

,D2,1B,1B,6D,CC,1B,SD,D2,1B, 2160 <067> 

1007 DATA 60,A9,00,BD,F8,1B,BD,F9,1B,EA,A9 

,14,BD,CC,1B,A2,00,A0,00,A9, 23B4 <056> 

1008 DATA 0B,BD,D3,1B,A9,00,BD,DE,1B,BA,1B 

,69,01,8D,D6,1B,98,18,69,01, 1B7B <133> 

1009 DATA BD,D7,1B,20,D4,17,AD,D1,1B,BD,41 

,18,AD,D2,1B,BD,42,1B,AD,5E, 2197 <132> 

1010 DATA 17,C9,00,D0,03,A9,01,BD,DE,1B,A9 

,00,8D,D4,1B,CE,D3,1B,BE,D3, 2345 <1BB> 

1011 DATA 1B,AE,D3,1B,BD,BC,1B,1B,6D,D5,1B 

,BD,D6,1B,AE,DS,1B,SC,D5,1B, 2392 <079> 

1012 DATA AC,D3,1B,B9,C4,1B,1B,6D,D5,1B,BD 

,D7,1B,AC,D5,1B,20,D4,17,AD, 2426 <140> 

1013 DATA Dl,1B,BD,BA,1B,AD,D2,1B,8D,BB,18 

,AD,42,17,C9,00,F0,07,C9,FF, 2419 <212> 

1014 DATA F0,03,EE,D4,1B,AD,D3,1B,C9,00,D0 

,B3,AD,DE,1B,C9,00,D0,22,A9, 2753 <053> 

1015 DATA 02,CD,D4,1B,F0,1S,A9,03,CD,D4,1B 

,F0,11,AD,41,18,BD,C2,18,AD, 2377 <114> 

1016 DATA 42, 18,8D,C3,18,A9,02,BD,B9,16,4C 

Listing 1. Maschinenprogrammteil zu »LIFE« 
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,DF,1B,A9,03,CD,D4,1B,D0,11, 2133 <241> 

1017 DATA AD,41,1B,BD,DD,1B,AD,42,18,BD,DE 

,1B,A9,FF,8D,C6,15,CB,C0,1F, 2505 <10S> 

101B DATA D0,03,4C,EA,1B,4C,19,18,A0,00,EB 

,E0,19,D0,03,4C,F7,1B,4C,19, 1970 <07B> 

1019 DATA 1B,4C,00,19,13,37,23,96,63,1A,A2 

,01,A0,01,A9,14,BD,CC,1B,BE, 1S36 <195) 

1020 DATA D6,1B,BC,D7,1B,20,D4,17,AD,D1,1B 

,BD,1F,19,AD,D2,1B,BD,20,19, 2104 <133> 

1021 DATA AD,7A, 17,1B,C9,00,F0,15,C9,02,D0 

,08,A9,00 j20,50,19,4C,3B,19, 1689 <127> 

1022 DATA C9,FF,EA,EA,A9,01,20,26,1B,C8,C0 

,21,D0,C4,A0,01,E8,E0,1B,D0, 2872 <231> 

1023 DATA BD,60,EA,EA,EA,EA,EA,EA,EA,EA,BD 

,DD,1B,BE,D6,1B,BC,D7,1B,20, 3343 <0B0> 

1024 DATA D4,17,AD,D1,1B,SD,6C,19,AD,D2,1B 

,8D,6D,19,AD,DD,1B,8D,E3,IS, 2413 <209> 

1025 DATA C9,01,D0,05,A9,2A,4C,CB,19,A9,20 

,4C,CB,19,00,8D,DF,1B,4C,CB, 2096 <10S> 

1026 DATA 19,C9,FF,F0,EB,O?,02,D0,10,A9,20 

,BD,DF,1B,A9,1C,BD,CC,1B,20, 2576 <102> 

1027 DATA D4,17,4C,C8,19,60,8E,C0,CC,CE,CC 

,CB,CF,56,84,EC,FD,A4,4C,8B, 3073 <077> 

1028 DATA CC,E0,EC,A5,59,08,31,B2,33,21,33 

,13,33,33,31,B0,33,13,33,7B, 1B7B <193> 

1029 DATA 33,37,B9,1B,33,Bl,33,70,73,5B,BD 

,E1,1B,AD,CC,1B,BD,E0,1B,A9, 2225 <000> 

1030 DATA 1C,BD,CC,1B,20,D4,17,AD,D1,1B,BD 

,E9,19,AD,D2,1B,BD,EA,19,AD, 245B <147> 

1031 DATA El,1B,8D,E3,1D,AD,E0,1B,BD,CC,1B 

,60,33,03,B3,66,27,31,33,13, 2034 <060> 

1032 DATA B3, F1,93,33,32,65, C3,43, AB ,31,2B 

,19,AB,91,72,60,73,92,32,42, 2222 <165> 

1033 DATA 39, CA, CC, C5, BC, CC , 6C, CC, EC, 8C, DC 

,CB,CC,48,CC,CC,CC,CC,CD,94, 3557 <250> 

1034 DATA 46,CF,4B,CE,4C,6B,4F,DC,45,9E,0C 

,C6,EA,CC,33,2B,7B,71,93,63, 24B8 <157> 

1035 DATA 32,39,2B,13,33,37,33,64,93,30,39 

,B1,27,9C,53,7C,33,D9,37,00, 1580 <021> 

1036 DATA 13,03,3B,1A,3B,00,CC,BC,CB,C9,DC 

,EC,CC,CC,C6,C4,4C,CC,CE,SC, 2795 <189> 

1037 DATA DC, EC , CC , 2C, 4E , 43,91,90,4E , BE , CC 

,4B,75,AC,AB,35,4C,9C,33,B3, 2606 <191> 

1038 DATA 33,1F,37,23,13,12,33,33,33,31,33 

,1A,39,F1,81,0B,67,33,33,96, 12B1 <086> 

1039 DATA 67,2A,BB,13,33,F4,39,B0,36,96,CB 

,EC,CC,CC,CC,CC,DC,C2,8C,C4, 3082 <079> 

1040 DATA EE, C0,4F , CC, CC, CC, 4C, E4, ED, EC, DE 

,ED,EB,93,EC,28,4E,7D,EC,BE, 3593 <202> 

1041 DATA 04,£B,3B,33,71,53,33,D3,23,11,33 

,23,33,F4,33,33,2B,B3,E9,E5, 2023 <255> 

1042 DATA 33,70,52,FC,B3,BC,78,79,02,B2,13 

,BF,96,8F,CC,CE,CC,E7,C4,DC, 3001 <21B> 

1043 DATA CC , CC , CC , CC , 4C, C4, C0, C4 , CC , CD , CC 

,FF,CD,A4,BC,BF,66,CB,C7,ED, 3737 <210> 

1044 DATA C9,6D,EC,99,14,CD,11,23,73,31,33 

,3A,Al,33,13,31,33,37,71,7B, 1B71 <175> 

1045 DATA Bl,3A,13,B7,33,02,2C,C2,13,29,3B 

,70,27,6D,02,FF,BB,6B,CC,84,01991 <22S> 

1046 DATA CC, DC, D8, DD , BC, 4C, CC, DC, CC, CC, DC 

,DC,CC,CC,BC,D6,CC,DC,4E,E7, 3B44 <020> 

1047 DATA 18,A9,01,6D,FB,1B,90,03,EE,F9,1B 

,BD,FB,1B,A9,01,4C,50,19,63, 2105 <102> 

1048 DATA 93,B1,B3,77,33,33,66,66,B7,C7,33 

,59,AB,2B,13,IC,33,13,73,A3, 2059 <053> 

1049 DATA 3B,84,BC,54,CB,C4,CF,5C,EC,CC,4C 

,CC,CC,CB,C5,EC,CE,CC,BC,D4, 3429 <009> 

1050 DATA E6,2B,BC,DC,4C,84,5D,?D,EC,EB,CA 

,5A,6E,EE,30,1B,3B,37,31,27, 2473 <112> 

1051 DATA B3,F3,B3,7E,33,77,33,77,37,A9,E4 

,A6,13,89,22,BC,31,01,3B,13, 2191 <076> 

1052 DATA 3B,1B,1B,A3,B7,E7,8C,6D,D4,CD,CC 

,C5,CC,ED,DC,CC,CE,EE,C4,CC, 3463 <202> 

1053 DATA 4C,CB,BD,EC,D7,C9,C4,4E,CC,DE,CB 

,CD,CE,A7,B5,96,C0,B0,37,77, 3327 <125> 

1054 DATA 13,2B,17,B5,B3,33,32,97,33,15,00 

,01,02,00,02,00,01,02,00,00, 777 <216> 

1055 DATA 00,01,01,02,02,02,14,60,03,1A,00 

,7A,17,00,00,1E,1A,20,00,00, 386 <036> 

1056 DATA 1B,03,60,01,01 ,EC, 14,2A,C9, IC,CS 

,DA,CD,DE,D8,EC,DC,B8,46,25, 2412 <127> 

1057 DATA 3C,BC,B3,21,33,32,73,32,33,02,70 

,00,73,FF,32,BB,33,33, 1504 <131> 

e 

Listlng 1. Maschinenprogrammteil zu »LIFE« (Schluß) 
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20 POKE 55,240:POKE 56,19äCLR <135> 

22 PRINT"CCLR)"sPOKE 36879,75iPOKE 36B7B,1 

5sT1-234iT2-230«T3«223i <180> 

26 FOR 1-1 TO 108 BOSUB 31sF0R J-l TO 75 iN 

EXT■POKE 36878,0 <1B3> 

27 PRINT"CCLR)"«FOR J-l TO 7l8NEXTlPOKE 36 
B7B,15:NEXTsPOKE 36874,0sPOKE 36B75,0lP 

OKE 36B76.0 <250> 

28 GOBUB 31iPOKE 36874,0!POKE 36875,0sPOKE 

36876,0sBOSUB 4000:iBOTO 40 <061> 

31 PRINT"CWHITE,HOME,3D0WN,4RIGUT,RVSON,SP 
ACE,DOWN,LEFT,SPACE,DOWN,LEFT,SPACE,DOW 

N,LEF T,SPACE,DOWN,LEFT,3SPACE)” <16B > 

32 PRINT"(HOME,3D0WN,BRIGHT,RVSON,SPACE,DO 
WN,LEFT,SPACE,DOWN,LEFT,SPACE,DOWN,LEFT 

,SPACE,DOWN,LEFT,SPACE1" <067> 

33 PRINT"CHOME,3D0WN,10RIGUT,RVSON,3SPACE, 

DOWN,3LEFT,SPACE,DOWN,LEFT,2SPACE,DOWN, 

2LEFT,SPACE,DOWN,LEFT,SPACE)" <194 > 

34 PRINT"CHOME,3D0WN,14RIGHT,RVSON,3SPACE, 

DOWN,3LEFT,SPACE,DOWN,LEFT,3SPACE,DOWN, 

3LEFT,SPACE,DOWN,LEFT,3SPACE)" < 051> 

35 PRINT”CHOME,15D0WN,YELLOW)<C> 1983 BY C 

. NEUPERT CWHITE)" <096> 

36 POKE 36B74,T1sPOKE 36875,T2sPOKE 36B76, 

T3lRETURN <046> 

40 PRINT"CHOME,21 DOWN,WHITE,6RIBHT)HIT ANY 

KEY" <253> 

41 GET A48IF A4“""THEN 41 <050> 

50 POKE 36B7B,15: PRINT"CCLR.3D0WN,WHITE)“ 

!BE-0sPP-0 < 029 > 

51 PRINT"CRIGHT,RVSON>1CRVOFF,SPACE)ENTERI 

NG OF"!PRINT"C3RIBHT)C0DRDINATES" <0B2> 

52 PRINTiPRINT"CRIGHT,RVSON)2CRVOFF,SPACE) 

SINGLE STEP" <1B7> 

53 PRINTaPRINT"CRIBHT,RVS0N)3CRVOFF,SPACE) 

AUTOMATIC MODE," <035> 

54 PRINT"CDOWN,RIGHT,RVS0N)4CRVOFF,SPACE)M 

UTATIONB" <053> 

55 PRINT"CDOWN,RIGHT,RVS0NI5CRVOFF,SPACE1M 

iffATIONS DFF" <069> 

GeY A4sIF A4-""THEN 57 <227> 

58 ON VAL(A4)GOTO 500,600,700,B00,S60 <146> 

59 GOTO 57 <125> 

99 STOP <165) 

500 POKE 3687B,15:PRINT"CCLR,WHITE,DOWN)"l 

PP-0iRD=0 <030> 

517 PRINT"C2D0WN)ENTER NOWCSPACE,RVSON)SCR 
VOFF,2SPACE)FOR "«PRINT"CDOWN)SETTINB 
DOTS, OR" <203> 

519 PRINT"CDOWN,RIGHT,RVSON)ACRVOFF,2SPACE 

)FOR DELETINB ALL." <042> 

520 REM <074> 

522 GET A43IF A4-""THEN 522 <144> 

524 IF A4“"S"THEN BOSUB 70008 GOTO 530 <227> 

525 IF A4“"A"THEN PRINT"CCLR,2D0WN,WHITE,S 

PACE)DELETINB..."IGOSUB 40008 GOTO 50 <200> 

526 GOTO 522 <074> 

530 PRINT"CCLR,DDWN)"«GOSUB 9000«GOBUB 300 

0sFOR Y-l TO 32sFOR X-l TO 26«POKE 716 
B+X+27*Y,76 <209> 

531 IF PEEK(5120+X+27*Y)-1 THEN POKE 716B+ 

X+27*Y,42« POKE 7168+X+27*Y+30720,3lPP- 

PP-tl <232> 

532 NEXT«NEXT«X-13«Y-16.AD-7613.POKE AD,16 

0sPOKE AD+30720,2sPOKE 36B78,15 <21B> 

540 GET A4lIF A4*""THEN 540 <034> 

542 IF A$<>"" THEN Q-ASC(A*> <214> 

544 IF Q-17 THEN Y-Y+llBOTO 5B0 <133> 

545 IF Q-29 THEN X-X+laBOTO 5B0 <20B> 

546 IF Q—145 THEN Y-Y-1«G0T0 580 <090> 

547 IF Q—157 THEN X-X-llGOTO 5B0 <146> 

540 IF Q-32 THEN 590 <055> 

549 IF Q—42 THEN 595 <108> 

550 IF Q-B2 THEN PRINT"CCLR)"«POKE 36879,7 

5a GOTO 5015 <131> 

552 GOTO 540 <06B> 

580 IF Y>32 THEN Y-32 <059> 

581 IF Y<1 THEN Y-l <075> 

582 IF X>26 THEN X-26 <049> 

583 IF X<1 THEN X-l <197> 

584 POKE 36B76,210a::a a t «.« «:ii««POKE 3687 

6,0«IF PEEK CAD)—42 THEN 5S7 <12B> 

Listing 2. Hauptprogramm zu »LIFE«. 
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585 IF PEEK(AD>-170 THEN POKE AD,42iPOKE A 
D+30720,3s GOTO 507 

506 POKE AD,76iPOKE AD+30720,1 

507 AD-716B+X+27*YiIF PEEK(AD>-42 THEN POK 
E AD,170!POKE AD+30720,2iGOTO 589 

580 POKE AD,160tPOKE AD+30720,2 

589 GOTO 540 

590 POKE 36076,2351POKE AD,160iPOKE AD+307 
20,2 

592 POKE 5120+X+27*Y,0lPOKE 36076,0«0OTO 5 
40 

595 POKE 36876,2401POKE AD,170iPOKE AD+307 
20,3 

597 POKE 5120+X+27#Y,1iPOKE 36076,0sPP-PP+ 

11 GOTO 540 

599 RETURN 

600 0OSUB 2000 

610 PRINT"tCLR,3D0WN,WHITE)PRESS<BPACE,RVB 
0N1SPACE(RVOFF,SPACE>FOR EACH" 

615 PRINTlPRINT"BINGLE STEP." 

625 PRINT"C3D0WN,YELLOW,39PACE)HIT ANY KEY 
CWHITE)" 

630 GET Ml IF A*“""THEN 630 

635 PRINT"(CLR>"lGOSUB 30001G08UB 9000 

636 SYS 64001 GOSUB 111001 GOTO 641 

640 SYS 6151sGOSUB 11000 

641 GET A*lIF A*-""THEN GOSUB 5000IBOTO 64 
1 

642 IF ASC(A*)-136 THEN 5015 

643 IF M< >" "THEN 641 
650 GOTO 640 

700 GOSUB 2000 

702 PRINT"tCLR,DOWN>D0 YOU WANT A HARDCOPY 
"iPRINT"<DOWN.2SPACE)CY/N3 ?" 

703 GET A*sIF A*="" THEN 703 

704 IF A*-"N"THEN 707 

705 IF A*<>"Y"THEN 703 

706 PF-llOPEN 1,4:CMD 1«PRINT#1 

707 PRINT"(CLR>"iGOSUB 3000!GOSUB 9000 
710 SYS 6400!GOSUB 11100IFOR J-l TO 9001 NE 

XTiIF PF THEN C*-""iZX-01ZY-0!GOSUB 17 
000 

720 SYS 6151!GOSUB 11000!GOSUB 5000 

721 C*=""sZX«0«ZY=0sIF PF-1 THEN GOSUB 170 

00 

730 GET A*iIF A*”“"THEN 720 

740 IF ASC (A*)< >136 THEN 720 

750 IF PF-1 THEN PRINT#1sCLOSE liPF-0 

752 GOTO 5015 

800 PRINT“(CLR,3D0WN>RELATIVE FREQUENCY"!P 
RINT"(2D0WN1FQR MUTATIONS?" 

B20 PRINT!PRINT!PRINT!INPUT FOlIF FGK0 OR 
FQ< >1NT ( FQ)THEN 820 
850 MF—1iGOTO 50 

860 PRINT"(CLR>"i MF-0!FQ-0!FOR J-l TO 500 
iNEXTiGOTO 50 

2000 PRINT"ICLR,WHITE,2D0WN)"iRD-0 

2002 PRINT"{DOWN,RVSON)F3{RVOFF,SPACE)SCRE 
EN CQLOR"lPRINT"{DOWN,RVSON >F5 tRVOFF, 
SPACE1CHARACTER COLOR" 

2003 PRINT"{DOWN,RVSON)F7{RVOFF,SPACE)GOTO 

MENUE" 

2005 PRINT"{3D0WN,WHITE>WANT RANDOM COLORS 
7" 

2010 GET A*iIF A*“""THEN 2010 

2020 IF A*-"Y"THEN RD-1 

2021 RETURN 

3000 POKE 64B,28iSYS 58648I 
3005 POKE 36864,01POKE 36865,20iPOKE 36866 
,27IPOKE 36867,194 
3010 POKE 36879,0!RETURN 

4000 FOR 1-5120 TO 60101POKE 1,0s NEXTiRETU 
RN 

5000 GET A*iIF A*-""THEN RETURN 
5005 W-ASC(A*>:IF W-134 THEN SC-SC+1+15*<S 
C—15)lGOTO 5100 
5010 IF W—135 THEN 5020 
5012 IF W< >136 THEN A*-""iRETURN 
5015 POKE 36864,121POKE 36865,38iPOKE 3686 
6,150«POKE 36067,151iSYS 58648ePOKE 3 
6879,75s GOTO 50 
5020 CC—CC+1+8» < CC—7 > 

5025 FOR 1=37880 TO 38900SPOKE I.CCsNEXTlA 
..RETURN 

5100 POKE 36079,16*SC+8iA$=""!RETURN 
7000 PRINT"{CLR,DOWN)DO YOU WANT TO DELETE 


<096> 

< 121 > 

< 002 > 

< 000 > 

< 105> 

< 107> 
<009> 
<208> 

<140> 

< 149> 
<056> 

< 022 > 

<216> 

<0B5> 
<091 > 
<229> 
< 022 > 
<014> 

<203> 
<1B7> 
<241 > 

< 174> 

< 156> 

<129> 

< 133> 

< 132> 

< 143> 
<027 > 
<045> 


< 136> 

< 139> 
<159> 
<115> 
<005> 
<057 > 

< 167> 

< 106 > 
<247> 

<232> 

<044> 


< 135 > 

<0B2> 

<230> 

<057> 

<035> 

<045> 

< 198> 

<01B> 

< 154> 

<205> 

< 182> 

<062> 
< 180> 
<069> 


<084> 

<00B> 

< 16B> 
<030> 


"iPRINT"{DOWN>THE OLD MATRIX CY/N3 7" <042> 
7010 BET A4«IF A*-"J" THEN PRINT"{CLR)"iGO 

SUB 4000!RETURN <018> 

7020 IF A*-"N" THEN RETURN <204> 

7030 BOTO 7010 <192> 

9000 FOR 1=7660 TO 8185sPOKE I,32iNEXTsFOR 
I-37B8B TO 38800!POKE I,1+INT<RND(1) 

*0>*RD«NEXT«RETURN <171> 

11000 IF MF—0 THEN 11100 <0BB> 

11010 FOR 1-0 TO FD« XM-INT(RND <1)*26)+11YM 

—INT(RND <1)#32) + 1 <176> 

11020 AM-5120+XM+27*YMlPOKE AM,0 <225> 

11030 NEXT <118> 

11100 BE-GE+1«PP-PEEK(7160)+256*PEEK(7161) 

lPRINT"(HOME,WHITE,RIGHTJQEN.i"|BE| <162> 

11105 PRINT"{HOME,11RIGHT,RED)POPULATION(G 

REEN >"|PP|"(LEFT,2SPACE,HOME >"j <145 > 

11110 IF PF THEN PRINT41,"(4SPACE)GENERATI 
ONi "|GE|"(5SPACE>P0PULATI0Ni "|PPlP 
RINT41 <171> 

11150 POKE 36878,lSlPOKE 36874,234lPOKE 36 
B75,223«POKE 36876,204!FOR J-l TO 20 
01NEXT <220> 

11200 POKE 36B74,0«POKE 36875,0iPOKE 36876 

,0!RETURN <030> 

15000 FOR 1-0 TO 8«READ DsPOKE 6151+1,D«NE 

XT <089> 

16000 DATA 169,0,141,248,27,141,249,27,234 <199> 
17000 FOR Y-l TO 321 FOR X-l TO 26i IF PEEK ( 
5120+X+27*Y)—1 THEN C#-C*+"*"lZX-1«G 
OTO 17010 <140> 

17005 C*=C*+" " <11B> 

17010 NEXTiIF ZX THEN PRINTttl,""|TAB(25)|C 

*s ZY—01 GOTO 17030 <110> 

17020 IF ZX-0 THEN ZY-ZY+llIF ZY<4 THEN PR 

INT*1 <235> 

17030 C*-""lZX-01NEXT YiPRINT#1iPRINT#1iRE 

TURN <170> 

e 

Listin^ 2. Hauptprogramm zu »LIFE« (Schluß) 
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CI 6/116 


Herrscher über leben und Tod 


Es war schon immer der Reiz der Menschheit, 
Macht über andere auszuüben; erproben Sie Ihre 
Fähigkeit, über eine Stadt 65 Jahre zu regieren, 
lassen auch Sie sich von dieser Machtsucht erfas¬ 
sen und steigen Sie voll ein, in Hamurabi. 

D as Programm »Hamurabi« für den C116/ C16 wurde 
dem berühmten Managementspiel »Kaiser« nachemp¬ 
funden. Es geht darum, 65 Jahre lang über die Stadt 
Babylon zu herrschen. 

Beispielsweise ist es wichtig, genügend Korn zu kaufen 
oder anzubauen, damit das Volk nicht verhungert... 

Hamurabi läuft ohne Erweiterung. Der Spielstand kann auf 
Diskette gespeichert und natürlich wieder geladen werden. 
Wird die Frage »Altes Spiel laden?« mit JA beantwortet und es 
erscheint ein Disk-Error, muß überprüft werden, ob ein File 
mit dem alten Spielstand existiert. Erscheint keine Fehlermel¬ 
dung, so wird das alte Spiel geladen. Gespeichert wird das 
Spiel, wenn am Ende einer Runde »S« für SAVEn eingegeben 
wird. Hierdurch wird ein File auf Diskette geschrieben, das 
alle wichtigen Daten enthält und das wieder geladen werden 
kann. Nach dem Programmstart wird das Titelbild aufgebaut 
und die Musik ertönt. Danach wird das Spiel mit»+« gestar¬ 
tet. Alle weiteren Anweisungen ergeben sich aus dem Pro¬ 
grammablauf. Wir wünschen viel Spaß beim Spielen! (do) 


Variablenliste 

ES - Hektar Land, die eingesät werden sollen 
BG - Bargeld 

EW - Einwohner von Babylon 

GM - Anzahl der großen Mühlen 

JA - Jahr 

KA - Kornbesitz 

KK - Anzahl der Kornmühlen 

LB - Landbesitz 

MP - Anzahl der Marktplätze 


Programmaufbau 


0- 855 

860- 1100 
2000- 3100 
5000- 8040 
9000 - 9080 
9100- 9200 
9500- 9800 
9800- 10000 
10000 - 13000 
15000 - 17000 
17000 - 18000 


Vorspann 

Hauptmenü 

Auslosung des Wetters 
Kauf und Verkauf von Land und Korn 
Kornverteilung 
Bericht über die Einnahmen 
Einsäen des Landes 
Mühlen, etc. kaufen 
Kommentar nach Ende des Spiels 
Laden und Speichern des Spielstandes 
Bericht über die Stadt (wird im Pro¬ 
grammablauf angesprungen). 


0 REM - 

1 PPM __ _ 

29 PRINT" C2RIGHT >-t 14SPACE>-t5SPACE> = Y5? 

l. rvc.ri 

2 REM - -846R C 

7 ppm nnMTMTi^ cTCtri er 

TXTXTXVZüPRLb> Z)C-A4üPttL;t *" 

30|dpfc~NT" <2RIGHT ^{^SPACEJAU^SPACE^S 
SPACE>— ■gC2SPACE>^C2SPACE>5C2SPACE>^ -C4 

^ IM-I 1 UUl C- 1 DlLLu 

a RFM 

5 REM - ALFRED-KUBIN-STR.13 - 

A RFM __ * 

orHLt/ 

31 PRINT" t2RIGHT >.-.C45PACE>UI {4SPACE 

1 7RCDflrC 1 TQCDßre MIT /OGDArc 1 7/1CDAPC % n 

7 REM - 5090 LEVERKUSEN 1 - 


8 REM - - 

9 REM -WEST GERMANY - 

10 REM- - 

11 REM - TEL.0214/94695 - 

12 REM- - 

13 REM--- 

1 4 PFM 

97 PRINT"tDOWN>*DOMINIK EISELE* PRAESENT 
IERT s" 

99 PRINT"tRVSON,BROWN >+13BSPACE>+" 

100 PRINT" TRVSON >Tt2SPACE>Tt2SPACE>TTt2 
SPACEJTTTVT TC2SPACEJT V+V+C2SPACE>TTt2S 

DAPCITTTT ',*i' II 

ih rvL.n — 

15 REM t REM-ZEILEN NICHT ABTIPPEN T 

1 A RFM 

rHLt/TTTT TT 

101 PRINT"tRVSON JTt2SPACE>T Tt2SPACE>T 
TT? TC2SPACE>T Tt2SPACE>T Tt2SPACE>T T 

T T TT " 

17 PRINT" CCLR,BLACK,DOWN>"; :COLQR0,11, 6 : 

CÜL0R4,1,1s PRINTCHR*(8),CHR*(142) 

1B PRINT"f 2RIGHT,2BSPACE >MUSIK VON t3SPAC 
E>" 

102 PRINT"tRVSON >++++ ++++ T T T Tt2SPA 

CE >T ++++ ++++ TTTT ++ " 

103 PRINT"tRVSON >Tt2SPACE>T Tt2SPACE>T 

20 PRINT" t2RIGHT>i3&S.L5t6SPACE>±S.i - 5 , ,£3tl0 

T T T Tt2SPACE>T T Tt2SPACE>Tt2SPACE>T T 

SPACE JGERALD16SPACE >" 

~ r | < *g*| L II 

21 PRINT" t2RIGHT> = Tm=t6SPACE> = Y)T?*=t5S 

104 PRINT"tRVSON >Tt2SPACE>T Tt2SPACEJT 

PACE >i£L3SPACE >HANISCH C5SPACE >" 

T + T ++++ Tt2SPACE>T Tt2SPACE>T ++++ TT 

22 PRINT" I2RIGHT}ü.C2SPACE} ÜJLt 6 SP ACE>üt 
2SP ACE > ÜJS. 15SPACE 15SP ACE >" 

"> 

105 PRINT"tRVSON>+138SPACE> +1RVOFF >"5 

23 PRINT" t2RIGHT > = F^tBSPACEJ^ =t 6 SPAC 

106 RESTORE 200 

E>^tl5SPACE>" 

107 V0L8 

24 PR INT" <2R I GHT VzJ.S'J.'Sl.’S'iSciC = t4SPAC 

E > MH——. t 6 SPACE > MM f4SPACE > N f2SPACF 1" 

25 PRINT“ 12RIGHT > = I2SPACE>TxYjrzYzVYV{2S 

108 DO 

109 READ X,Y 

110 SOUND1,X,Y:VOL0s FORT=1TOS:NEXTT:VOLB 

PACE > ^ 12SPACE > ä 12SPACE > ikc ÜÜ12SPACE > h 12 

111 LOOP UNTIL X=0!GOTO 850 

SPACE >flt2SPACE >Mt3SPACE >" 

200 DATA 810,25,Bl0,25,B10,50,822,25,B22 

26 PRINT"MQ = F<10SPACEJB ^ M14SPACE1MM 

,25,822,50,870,25,870,25,870,25 

t2SPACE>ß -T = Mt2SPACE>" 

201 DATA 870,12,810,112,798,25,798,25,79 

:27 PRINT" C2RIGHT>£t V U<2SPACE>iLS.C2SPACE 
>F F .----Mt 10SPACE 1M-.C2SPACE>->K5SPACE> " 

8,50,784,25,784,25,784,50,770,25,770,25 

202 DATA 770,25,770,12,770,37,810,25,834 

28 PRINT" 12RIGHT > = t3SPACE>Et2SPACE>JLit2 

,18,854,6,864,18,881,6,897,25,897,12 

5FACE JVT35PACE J UJLt45PACE 

203 DATA 397,63,881,23,881,12,881,63,870 

4SPACE>" 

,25,870,25,870,25,870,12,810,112 
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204 DATA 864,25,864,25,BB1,25,881,25,897 

2015 VK=INT(100*RND(1)> 

,25,897,12,870,38,870,25,897,11,897,11 

2020 K0=K1*VK 

205 DATA 097,11,897,11,BB1,25,881,25,864 

2030 KA=KA-KO 

,25,810,12,864,62,1,1,0,0 

2035 IF KA<=0 THEN KA=0 

850 GETR*:IFR*="+" THEN V0L8:SOUND1,Bl0, 

2040 RETURN 

20:GOTO 860 

3000 IF BB=1 THEN PRINTW$:RETURN 

855 GOTO 850 

3005 KP=INT(370*RND(1))+119 

860 KA=15000:AA=0:BG=23000:EW=INT <257*RN 

3010 IF KP<192 THEN W*=" TOLLES WETTER {6 

D(1))+500:LB-10000:JA=1:MP=0:KK=0:GM=0 

SPACE»SEHR REICHE ERNTE":HL=2 

870 KR=INT(10000*RND(1 > )+60000:BJ=0:MP=1 

3020 IF KP>=192 AND KP<284THENW*=" GUTES 

: BB=0 

WETTER{BSPACE »GEWOEHNLICHE ERNTEHL-3 

871 PRINT"{CLR,4DQWN,3RIGHT»ALTES SPIEL 

3030 IF KP>=284 AND KP<380 THEN W*=" REG 

LADEN ?" 

EN{12SPACE»SCHLECHTE ERNTE":HL=4 

872 PRINT"{DQWN,5RIGHT»(J/N)“ 

3040 IF KP>=380 THEN W*=" DUERRE{9SPACE> 

873 GETD*:IFD*="J"THENV0L8:GOTO 15000 

HUNGERSNOT DROHT":HL=5 

876 IFD*="N" THEN VOLB:SOUND1,810,20: GOT 

3050 LP=INT(70*RND(1>)+19 

0890 

3100 BB-1:RETURN 

877 GOTO 873 

5000 INPUT"{DOWN>WIEVIEL KORN WOLLT IHR 

890 GOSUB 1000 

KAUFEN";KM 

900 GOTO 890 

5001 IFAA=1ANDKR<=0THENPRINT"{RVSON >IHR 

1000 COLOR 4,1,7sCOLOR0,1,1:PRINT"CCLRJ" 

BEKOMMT NUN KEIN KORN MEHR !!!!!!{RVOFF> 

1004 GOSUB 3000 

":GOTO 5010 

1005 GOSUB 2000 

5003 IF KR<=0 THEN KR=0 

1006 PRINT"{CLR,RED}"KR"{YELLOW> SCHEFFEL 

5005 IF KM<0 THEN 1006 

KORN WERDEN ANGEBOTEN{RED}" 

5006 IFKM>KRTHENGOTQ 5050 

1007 PRINT"{YELLOW,RIGHT»ERNTEERTRAEGE s 

5007 KA=KA+KM:KR=KR—KM:BG=BG-KM*KP/1000 

"INT(EE)"SCHEFFEL" 

5010 VOLB:SOUND1,900,15:FORT=1TQ500:NEXT 

1008 PRINTVK"{YELLOW»K EURER KORNRESERVE 

T 

N SIND VERFAULT" 

5020 GOTO 1006 

1009 GOSUB 3000 

5050 PRINT"{RVSONJSO VIEL KORN WIRD NICH 

1010 BK=EW*9 

T ANGEBOTEN {RVOFF > " : AA= 1: GOTO5010 

1011 PRINT" CBLUE>♦♦»♦»»»»JUljtjMMMUOUUIJUUUfc 

6000 INPUT"{DOWNJWIEVIEL KORN WOLLT IHR 

.«wMWAWJwa"; 

VERKAUFEN”;KV 

1012 PRINT”{RIGHT,YELLOW!KORNRESERVEN <S 

6010 IF KV>KA THEN PRINT”{RVSONJIHR HABT 

CHEFFEL» -tSPACE,GREY 3>";INT(KA) er of 

NIÜ’T SO VIEL KORN '.!! {RVOFF »": GOTO 501 

1020 PRINT"{RIGHT,DOWN,YELLOW»BENQETIGTE 

0 

S KORN{BSPACE»-{SPACE,GREY 3»";INT(BK) 

6020 IF KV<0 THEN 1006 

1030 PRINT"{RIGHT,DOWN,YELLOW »KORNPREIS 

6035 KR=KR+KV:KA=KA-KV:BG=BB+KV*KP/1000 

(TALER){7SPACE>-{SPACE,GREY 3>- 5 INT <KP 

6040 GOTO 5010 

) 

7000 INPUT"{DOWNJWIEVIEL LAND WOLLT IHR 

1040 PRINT"{RIGHT,DOWN,YELLOW>LANDPREIS 

KAUFEN";LW 

(TALER){7SPACE>-CSPACE,GREY 3 >"}INT(LP 

7010 BG=BG-LW*LP/10 

) 

7020 LB=LB+LW 

1050 PRINT"{RIGHT,DOWN,YELLOW JLANDBESITZ 

7025 IF LW<0 THEN 1006 

(HEKTAR){5SPACEJ-{SPACE,GREY 3»“;INT( 

7030 VOLB:SOUND1,900,15:FORT=1TO500:NEXT 

LB) 

T 

1060 PRINT"{RIGHT,DOWN,YELLOW}BARGELD (T 

7040 RETURN 

ALER){9SPACE»-{SPACE,GREY 3>";INT(BG> 

8000 INPUT"{DOWN>WIEVIEL LAND WOLLT IHR 

1070 PR I NT " {BLUE > 

VERKAUFEN";LV 


8005 IF LV>LB THEN PRINT"{RVSON>SO VIEL 

1081 PRINT"1 - KORN KAUFEN{4SPACE»— 

1082 PR INT "2-KORN VERKAUFEN-{ 

LAND HABT IHR NICHT !M{RVOFF> n :GOTO 703 

0 

8010 BG=BG+LP*LV/10 

2SPACE »RWEITER{2SPACE}" 

8020 IF LV<0 THEN 1006 

1083 PRINT"3-LAND KAUFEN ('tSPACE)-— 

8030 LB=LB-LV 

-{2SPACE »HMIT"CHR*(130)"{SPACE,RVSON,G 

8040 GOTO 7030 

REY 1»SPACE{LIG.GREEN,RVOFF}" 

9000 PRINT"{CLR,WHITE>":COLOR 0,1,1:COLO 

1084 PR INT “4-LAND VERKAUFEN-{ 

R4,11,1 

25PACE» i.'p'p'p'p'p'pVp'p’"; 

9005 PRINT"{2D0WN,13RIGHT >KORNVERTEILUNG 

1088 GET A*:IFA*=" " THEN V0L8:SOUND1,90 

II 

0,10:GOTO 9000 

9010 PRINT"{4RIGHT,2D0WN}Q HAMURABI VON 

1089 IFA*=" 1" THEN VOLB: SOUND 1,100,10: GO 

BABYLON ICH FRAGE" 

TO 5000 

9020 PRINT"{4RIGHT,DOWN>EUCH, WIEVIEL KO 

1090 IFA*="2" THEN VOLB:S0UND1,150,10:GO 

RN WOLLT IHR DEN" 

TO 6000 

9022 PRINT"{4RIGHT,DOWN»HUNGERNDEN ZUR V 

1091 IFA*="3" THEN V0L8:SOUND1,250,10:GO 

ERFUEGUNG STELLEN?" 

TO 7000 

9025 PRINT"{DOWN,4RIGHT>IHR BESIZT{RED>" 

1092 IFA*="4" THEN V0L8:SOUND1,340,10:GO 

INT(KA)"{WHITE »SCHEFFEL KORN" 

TO 8000 

9026 PRINT"{DOWN,4RIGHT»DIE BENOETIGTE K 

1093 GOTO 1088 

ORNMENGE IST{RED»"INT(BK) 

1100 RETURN 

9027 PRINT"{DOWN,4RIBHT,WHIT£>DIE EINWOH 

2000 REM —KORNRESERVEN - 

NERZAHL BETRAEGT{RED»"EW 

2010 K1=KA/100 

Listing »Hamurabl« 
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9030 INPUT“tWHITE,2D0WN,4RIGHT JBETRAG{SP 
ACE,GREEN J "; VS 

9032 IF VS>KA THEN V0L8:SOUND1,150,15 s GO 
TO9000 

9033 IF VS<0 THEN V0L8:SOUND1,150,15«GOT 
0 9000 

9035 KA=KA—VS 

9040 VR—INT(VS/EW):TW=EW 

9050 VOLB:SOUND1,350,15:GOSUB 9500 

9055 PRINT"{12RIGHT,3D0WNJWEITER MIT"CHR 

*(130)"{SPACE,RVSON,BLUE >SPACE{RVOFF>" 

9070 GETS*:IFS*=" " THEN VOLB:SOUND1,900 

,15:GOTO 9100 

9080 GOTO 9070 

9100 PRINT"{CLR,WHITE>"s COLOR0,11,4« COLO 
R4,11,6 

9101 PRINT"{DOWN,BRIGHTJO HAMURABI VON B 
ABYLQN" 

9102 PRINT"{DOWN,2RIGHTJICH BERICHTE EUC 
H UEBER EURE STADT..{4SPACE>" 

9103 PRINT"{DOWN,17RIGHTJJAHR”JA 

9105 PRINT"{DOWN,RIGHT,WHITEJ"INT(TW)"{S 
PACE,BLACKJEINWOHNER SIND VERHUNGERT." 
9110 IFSS=1 THEN PRINT"{RIGHT,WHITE>"ZW" 
{BLACKJEINWOHNER SIND ZUGEWANDERT" 

9120 AG=INT(47*RND(1))+20 

9130 PRINT"{RIGHT,YELLOWJ"INT(AG)"{SPACE 

,BLACK >EINWOHNER WURDEN GEBOREN." 

9140 AT=INT(47*RND(1))+20 

9150 PRINT"{RIGHT,YELLOW >“INT(AT)"{SPACE 
,BLACKJEINWOHNER SIND IM ALTER GESTORBEN 
":EW=EW+AG—AT+ZW-TW 

9151 PRINT"{DDWN,RIGHT,YELLOWJEURE MARKT 
PLAETZE BRACHTEN"INT(MP*495):BG=BG+INT(M 
P*495) 

9152 PRINT"{DOWN,RIGHT,YELLOWJEURE KORNM 
UEHLEN BRACHTEN”INT(KK*5Q9):BG-BG+INT(KK 
*589) 

9153 PRINT"{DOWN,RIGHT,YELLOWJEURE GR. K 
ORNMUEHLEN BRACHTEN"INT(GM*678):BG-BG+(G 
M*678) 

9154 PRINT“{DOWN,RIGHT,BLACKJ(ANGABEN IN 
TALERN){YELLOW>“ 

9155 SV=SV+EW*2: IF SV<0 THEN SV=>0 

9156 PRINT"{DOWN,RIGHT,WHITE JDAS VOLK ZA 
HLTE"SV"TALER STEUERN." 

9157 BG-BG+SV 

9158 SV=0 

9160 PRINT"{DOWN,BLACK,12RIGHTJWEITER MI 

T"CHR*(130)"{SPACE,RVSON JSPACE{RVOFF J" 

9170 GETC*:IFC*=" " THEN V0L8:SOUND1,900 

,15«GOTO 17000 

9180 GOTO 9170 

9200 GOTO 10000 

9500 FOR R-l TO 8 

9510 IF VROR THEN EW-INT(EW-(TW/(R+R))> 
«TW-TW-EW:RETURN 
9520 NEXTR 

9530 IF VR->9 ANDVR<-25THEN TW=0iRETURN 
9540 FOR R=26 TO 20000 

9550 IFR=VRTHEN ZW=INT((TW*(R/2))/98):EW 
-INT(EW+(TW*(R/2)>/98):TW-0:SS-1:RETURN 
9560 NEXTR 
9600 RETURN 

9700 PRINT"{CLR,WHITEJ"sCOLOR 0,1,1:COLO 

R 4,11,2 

9705 PRINT"{2D0WN,15RIGHTJEINSAEHEN" 

9710 PRINT"{2DOWN,2RIGHTJWEITERHIN O HAM 
URABI FRAGE ICH EUCH «" 

9720 PRINT"{DOWN,2RIGHTJWIEVIEL LAND WOL 
LT IHR EINSAEEN ?" 

9730 PRINT"{DOWN,2RIGHT>IHR BESIZT{REDJ" 


9740 PRINT"{DOWN,2RIGHTJIHR HABT{REDJ"IN 
T(BG)"{WHITEJTALER.■ 

9745 PRINT"{DOWN,2RIGHTJDAS EINSAEEN PRO 
HEKTAR LAND" 

9746 PRINT»{DOWN,2RIGHTJKOSTET{REDJ"HL"{ 
WHITEJTALER." 

9750 INPUT"{DOWN,2RIBHTJ(HEKTAR) ";ES 
9760 IF ES>LB THEN VOLB:SOUND1,150,15«GO 
TO9700 

9770 IF ES<0 THEN VOLB:SOUND1,150,15:GOT 
09700 

9775 ZF-INT(24*RND(1))+72 

9780 BG-INT(B6-HL*ES):KA-KA+(ES/HL)*ZF«E 
E—INT((ES/HL)*ZF):VOLB:SOUND1,350,15 
9785 PR1NT"(2DOWN,12RIGHT JWEITER MIT"CHR 
*(130)"{SPACE,RVSON JSPACE{RVOFF J" 

9795 GETR*:IFR*=" " THEN VOLB:SOUND1,900 
,15«GOTO 9800 

9796 GOTO 9795 

9800 PRINT"{CLR,BLACKJ":COLOR 0,12,4:COL 
0R4,1,4 

9810 PRINT"{4RIGHTJO EDLER HAMURABI," 
9820 PRINT"{3RIGHT,2D0WNJUM DIE STAATSKA 
SSE AUFZUBESSERN," 

9830 PRINT"{3RIGHT,DOWNJWAERE ES VON VOR 
TEIL EINNAHMEQUELLEN" 

9840 PRINT"{3RIGHT,D0WNJZU ERRICHTEN." 
9850 PRINT"{3RIGHT,DOWNJEURE WAHL «" 

9860 IFLB/(MP+KK+GM)<1000THENPRINT"{2D0W 
N,RIGHT,RVSONJIHR BENOETIGT MEHR BAULAND 
!{RVOFF J":GOTO 9990 

9959 PRINT"{2D0WNJTALER"BG 

9960 INPUT"WIEVIEL MARKTPLAETZE - 2000 T 
ALER";TM 

9961 p»i —MP+TM 

9962 BG=BG—TM*2000 
9965 VQL8:SOUND1,180,15 

9969 PRINT"TALER"BG 

9970 INPUT"WIEVIEL KORNMUEHLEN{2SPACE>— 
3000 TALER"jTK 

9971 KK—KK+TK 

9972 BG-BG—TK*3000 
9975 V0L8:SOUND1,250,15 

9979 PRINT"TALER"BG 

9980 INPUT"WIEVIEL GROSSE MUEHLEN <- 5000 
TALER";TG 

9981 GM-GM+TG 

9982 BG=BG-TG*5000 

9985 VOL8:SOUND1,300,15 

9986 PRINT"TALER"BG 

9990 KR-INT(10000*RND(1))+60000 

9991 IF BG<0 THEN BJ-BJ+BG 

9992 IF BJ<-90000 THEN 10000 

9993 IF EW<500 THEN 10000 

9994 IF JA=65 THEN 12000 

9995 PRINT"{DOWN,12RIGHTJS-SAVEN!{RVOFFJ 

II 

9996 PRINT"{DOWN,12RIBHTJWEITER MIT"CHR* 
(130)"{SPACE,RVSON JSPACE{RVOFF J" 

9997 IFR*="S" THEN BB=0sAA=0:SS=0:JA-JA+ 
1:GOSUB 16000 

9998 GETR*:IFR*=" " THEN BB=0:AA=0:SS=0: 
J A« J A+1:VOLB:SOUND1,900,15:GOTQ1000 

9999 GOTO 9997 

10000 FORT-1TO2000:NEXTT:PRINT"{CLR,WHIT 
EJ":COLOR0,1,1sC0L0R4,1,1 

10005 PRINT"{2D0WN,RIGHTJHAMURABI ICH MU 
SS EUCH SAGEN,DASS IHR" 

10010 PRINT"{DOWN,RIGHTJEIN SCHLECHTER H 
ERRSCHER WART." 

10020 PRINT"{DOWN,RIGHTJEUER VOLK ZAEHLT 
E NACH"JA"JAHREN" 

10030 PRINT"{DOWNJ"EW"MENSCHEN. " 


LB"{WHITE JHEKTAR LAND. 
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10040 PRINT"tDOWN,RIGHT}EUER LAND WAR"LB 
"HEKTAR GROSS UND" 

10050 PRINT"tDOWN, RIGHTJEURE SCHATZKAMME 
R WAR MIT" 

10060 PRINT" tDOWN,RIGHT>"BG"TALERN GEFUE 
LLT. " 

10070 PRINT"tDOWN,RIGHT}DOCH SCHAETZT EU 
RE FAEHIGKEITEN SELBST" 

10080 PRINT"{DOWN,RIGHT>EIN UND UEBERLEG 
T OB FUER EUCH EINE" 

10090 PRINT"tDOWN, RIGHT>WIEDERWAHL IN FR 

AGE KOMMT." 

10095 GOSUB10500 

10100 PRINT"tDOWN,RIGHT>(tRVSON}J tRVOFF J 
A/<RVSON>NtRVOFF>EIN)" 

10110 GETF*:IFF*="J" THEN VOLB:SOUND1,70 
0,20!RUN 

10120 IFF*="N" THEN V0L8iSOUND1,200,20:P 

RINT"CCLR}":GOTO 13000 

10130 GOTO10110 

10500 RESTORE 10510 

10505 VOLB 

10510 DO 

10515 READ X,Y 

10516 SOUND1,X,Y:VOL0S FORT—1T05:NEXTT3VO 
L8 

10517 LOOP UNTIL X-03 RETURN 

10518 DATA 453,60,453,45,453,15,453,60 

10519 DATA 488,45,345,15,453,45,345,15,4 
53,45,345,15,453,120,1,1,0,0 

12000 FORT=1TO2000:NEXTT:PRINT"tCLR,WHIT 
E >"s COLOR0,1,1:C0L0R4,1,1 

12010 PRINT"C2D0WN,RIGHT>HAMURABI VON BA 
BYLON ICH SAGE EUCH" 

12020 PRINT"tDOWN,RIGHTJNACHDEM IHR 65 J 
ÄHRE LANG DER STADT" 

12030 PRINT"tDOWN,RIGHT>VORGESTANDEN HAB 
T WIRD ES NUN" 

12040 PRINT"tDOWN,RIGHT}SCHWER SEIN EINE 
N EBENBUERTIGEN" 

12050 PRINT"tDOWN,RIGHTJNACHFOLGER ZU FI 
NDEN." 

12060 PRINT"tDOWN,RIGHTJIHR WART SEIT JA 
HRHUNDERTEN DER BESTE" 

12065 PRINT"tDOWN,RIGHT>HERRSCHER UEBER 
BABYLON !!!!!” 

12070 PRINT"t2D0WN,2RIGHTJLANDBESITZ s"L 
B"HEKTAR." 

12080 PRINT" 12RIGHT>BARGELD 14SPACE>: "BG" 
TALER." 

12090 PRINT"t2RIGHT>EINWOHNERt2SPACE>«"E 
W 

12091 GOSUB12500 

12095 PRINT"t2D0WN,2RIGHT,RVSON,REDISPAC 
E tRVOFF,WHITE JDRUECKEN..." 

12100 GETAA*!IFAA»-" "THEN PRINT"tCLR}"3 

SOUND1,300,20S GOTO13000 

12110 GOTO12100 

12500 RESTORE12520:VOLB 

12510 DO 

12515 READ X,Y 

12516 SOUND1,X,Y 3VOLB s FORT-1T04 3 NEXTT 8 VO 
L8 

12517 LOOP UNTIL X-0:RETURN 

12520 DATA 596,20,596,20,704,20,739,20,7 

70.40.704.10.685.10.643.20.784.20 

12521 DATA 784,20,784,40,770,10,784,10,B 

10.30.704.10.704.20.704.20.685.20 

12522 DATA 704,20,739,100,596,10,596,10, 
596,20,704,20,739,20,770,40,704,10 

12523 DATA 685,10,643,20,784,20,784,20,7 

84.40.784.10.784.10.770.30.739.10.704.20 

12524 DATA 596,20,685,20,739,20,704,100, 


810.20.834.20.834.20.834.20.834.20 

12525 DATA 854,30,864,10,810,20,810,20,8 
10,20,770,40,810,10,810,10,864,30 

12526 DATA 810,10,810,20,810,20,784,20,7 

70.20.739.100.810.10.810.10.834.20 

12527 DATA 834,20,834,20,834,20,854,20,B 
64,20,810,30,810,10,810,20,770,40 

12528 DATA 810,10,810,10,864,30,810,10,8 
10,20,810,20,784,20,770,20,810,100 

12529 DATA 1,1,0,0 
12590 END 

13000 PRINT“tBDOWN,14RIGHT,RVSON,GREENJ! 
SPIELENDE!tRVOFF}"3 FORT»1TO60 3 NEXTT 3 GOTO 
13000 
14000 END 

15000 REM - LADEN - 

15010 OPEN 2,8,2,"0:HAM.SEQ.,S,R"30PEN15 
,8,153INPUT#15,EN,EM*,ET,ES 
15020 INPUT#2,AA,BB,BG,EE,EW,GM 
15030 INPUT#2,JA,KA,KK,LB,MP,SS 

15040 PRINT"t3DOWN,3RIGHT>” 

15041 IF EM*="OK"THENPRINT"OK"3CLOSE2,B, 

2 3 CLOSE15 s FORT-1TO1000 3 NEXTT 3 EM»- GOTO 

890 

15042 IFEM*O"0K"THENPRINT"DISK ERROR" :C 

L0SE2 3 CLOSE15:FORT-1TO1000s NEXT s G0T0871 
16000 REM - SAVEN - 

16005 OPEN 2,8,2,HAM.SEQ.,S,W" 

16010 PRINT#2,AA:PRINT#2,BBs PRINT#2,BG 3 P 

RINT#2,EE s PRINT#2,EW s PRINT#2,GM 

16020 PRINT42,JA:PRINT42,KA:PRINT42,KK:P 

RINT#2,LB:PRINT#2,MP: PRINT#2,SS 

16030 CL0SE2,B,2sPRINT"tHOME,5RIGHT,22DO 

WNVDS» : RETURN 

170«» PRINT"tCLR,WHITE>”sCOLOR 0,l,lsCOL 

OR4,1,1 

17005 VOLB:SOUND1,400,60s FORT-1TOS s NEXTT 

3 SOUND1,500,70 

17010 PRINT"t3D0WN}WEITERHIN EREIGNETE S 
ICH IN DIESEM JAHR:" 

17022 PP—INT <8*RND(1))+1 

17030 IF PP=1THEN PRINT"t2D0WN}EURE FEIN 
DE NAHMEN EUCH BEI EINEM":LB-LB-1000 

17031 IFPP-1THENPRINT"t2D0WN}RAUBZUG 100 
0 HEKTAR DES LANDES."8GOTO17090 

17040 IFPP—2THENPRINT"t2DQWN}EINE HUNGER 
SNOT BEDROHTE EURE BUERGER"sEW-EW-50 

17041 IFPP—2THENPRINT"t2D0WN}UND NAHM EU 
CH WEITERE 50 EINWOHNER."8GOTO17090 

17050 IFPP—3THENPRINT"t2D0WN}DIE PEST ZO 
G UEBER DIE STADT UND NAHM":EW-EW-40 

17051 IFPP—3THENPRINT"t2D0WN}EUCH 40 STE 
UERZAHLER.“3 GOTO 17090 

17060 IFPP—4THENPRINT"t2DOWN>EIN SANDBTU 
RM VERWUESTETE DIE STADT.":BB-BG-5000 

17061 IFPP—4THENPRINT"t2D0WN}FUER EINE S 
AEUBERUNG ZAHLT 3000 TALER."3GOTO 17090 

17070 IFPP-5THENPRINT"t2D0WN}IHR HABT DU 
RCH EINE GEWONNENE SCHLACHT"8LB-LB+1500 

17071 IFPP—5THENPRINT"t2DOWN}1500 HEKTAR 
LAND DAZU BEKOMMENGOTO 17090 

17080 IFPP>5THENPRINT"t2D0WN}IHR HABT QL 
UECK,ES GESCHAH NICHTS" 

17081 IFPP>5THENPRINT"t2D0WN}BESONDERES. 
"3 GOTO 17090 

17090 PRINT"t4D0WN,RED,12RIGHTIWEITER MI 
T"CHR»(130)"tSPACE,RVSON >SPACE tRVOFF >" 

17091 GETC»:IFC»—" " THEN VOLSsSOUND1,90 
0,15:GOTO 9700 

17092 GOTO 17091 
18000 END 

684''er Listing »Hamurabi« (Schluß) 
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Rate 

oder hänge! 

Haben Sie Spaß an Ratespielen? Dann wird Ihnen 
»Galgenraten« gefallen. Aber es geht um Kopf 
und Kragen. 

D er Computer im Haus erspart den Zimmermann. Das 
klingt zwar etwas wunderlich, aber wenn Sie das Spiel 
eingetippt und gestartet haben, wird es sich nur 
selten verhindern lassen, daß Sie in der schon genannten 
Holzbaubranche tätig werden - zumindest auf dem Bild¬ 
schirm. Eigentlich geht es in dem Spiel ja darum, ein bestimm¬ 
tes Wort zu erraten, aber mit jedem falsch geratenen Buch¬ 
staben forcieren Sie den Bau einer Holzkonstruktion, die in 
ihrer nüchternen Zweckform auch »Galgen« genannt wird. 
Und wenn Sie Ihrem Ebenbild den Verbrechertod nach alter 
englischer Tradition ersparen wollen, dann sollten Sie mög¬ 
lichst bald auf das richtige Wort kommen. 


Aber jetzt wollen wir uns den Details zuwenden. Das Spiel 
besteht aus zwei Programmteilen, wobei das Vorprogramm 
»Galgenraten« (Listing 1) zuerst geladen werden muß. In die¬ 
sem Programmteil wird der Zeichensatz neu definiert. Nach 
dem Laden des »Hauptprogramms« (Listing 2) können Sie 
wählen, ob der Computer oder ein Mitspieler Ihnen das zu 
erratende Wort vorgeben soll. Anschließend wird Ihnen 
durch Striche, auch Platzhalter genannt, das zu erratende 
Wort auf dem Bildschirm symbolisiert. Wenn Sie nun einen 
Buchstaben über die Tastatur eingeben, erscheint dieser an 
entsprechender Stelle des Wortes - vorausgesetzt, er ist im 
Wort enthalten. War der Buchstabe falsch, beginnt der schon 
erwähnte Bau. Wenn Sie durch ungünstige Buchstabenkom¬ 
bination die Hänkerstat vollendet haben, können Sie das 
Spiel nach einer Trauermelodie mit einem neuen Wort fortset¬ 
zen. Selbstverständlich werden Sie nicht daran gehindert, 
nach richtigem Raten das Spiel ebenfalls fortzusetzen. Die 
Abschlußmelodie hat in diesem Fall auch nicht mehr den trau¬ 
rigen Charakter. 

Zum Schluß noch ein Tip, den Sie beim Eintippen des 
»Hauptprogramms« (Listing 2) beachten sollten. Die Zeilen¬ 
nummern der Datenfelder dürfen Sie nicht verändern, da im 
Programmverlauf auf diese direkt zugegriffen wird. 

(Swen Jung/kn) 


O COLOR0,1:CUL0R4,1 

1 PRINT"ICLR,YELLOW}" 

2 POKE51,0:PQKE52,60:POKE55,0: 
PQKE56,60 

3 FORA=15360TO16191 

4 READA# 

5 POKEA,DEC<A*> 

6 NEXT 

7 P0KE65298,8:P0KE65299,60 

8 CHAR1 ,4,11, "Lfiiü— Siü =T=XÄ 
HSTÜfifc 

V. g-fl.+.+. l " 

9 NEW 

10 DATA00,00,00,00,00,00 * 7E,00 

11 DAT A18,24,24,7E, 62,62,62,00 

12 DATA78,24,24,3C,32,32,7C,00 

13 DATA3C,42,40,60,60,62,3C,00 

14 DATA7C,22,22,32,32,32,7C,00 

15 DATA7E, 22,20,38,20,22, 7E, 00 

16 DATA7E, 22,20,38,20,20, 70,00 

17 DATA3C,42,40,6E,6A,62,3C,00 

18 DATA42,42,42,7E,62,62,62,00 

19 DATA3C. 10,10,18,10,18.3C.00 

20 DATA0E,04,04,0C,0C,4C,3B,00 

21 DATA44,4B,50,7C,62,62,62,00 

22 DATA40,40,40,60,60,62,7E,00 

23 DATA24,5A,42,62,62,62,62,00 

24 DATA32,4A,4A,6A,6A,6A,64,00 

25 DATA3C,42,42,62,62,62,3C,00 

26 DATA7C,22,22,3C,30,30,30,00 

27 DATA3C , 42, 42,62,62,6A, 3C, 06 

28 DATA7B,24,24,38,34,32,32,00 

29 DATA3C,42,40,3C,06,46,3C,00 

30 DATA7E,08,0B,18,18,18,18,00 

31 DAT A42,42,42,62,62,, 62,3C ,00 

32 DAT A42,42,42,34,34,34,18,00 

33 DATA46,46,46,46,42,5A,24,80 

34 DATA42,42,24,18,34,62,62,00 

35 DATA42,42,24,18,18,18,18,00 

36 DATA7E,42,04,18,30,62,7E,00 

37 DATA00,10,3C,24,24,24,24,7E 
3B DATA7E,62,62,62,62,62,62,00 

39 DATA00,7E,7E,22,22,20,20,3C 

40 DATA3C,30,30,32,32,7E,7E,00 

41 DAT A00,3C,7E,42,42,40,40,6E 

42 DATA00,00,00,00,00,00,00,00 

43 DATA06,06,06,06,00,06,06,00 

44 DATA6E,6A,6A,62,62,7E,3C,00 

45 DATA00,40,40,40,40,40,40,60 

46 DATA60,60,60,62,62,7E , 7E , 00 

47 DATA00,32,7A,4A,4A,4A,4A,6A 

48 DATA6A,6A,6A,6A,6A,6E,64,00 

49 DATA00,78,7C, 44,44,44,44,78 

50 DATA78,64,62,62,62,62,62,00 

51 DATA00,7E,10,10,10,10,10,18 


52 DATA18,18,1B,1B,18,18,18,00 

53 DATA01 ,03,07,0F, 1F,3F,7F,FF 

54 DATA00,00,00,00,00,06,06,00 

55 DATAFF,FF,PF,FF,FF,FF,FF,FF 

56 DATA00,00,00,00,00,06,06,00 

57 DATA80,C0,E0,F0,F8,FC,FE,FF 

58 DATA3C,42,46,6A,72,62,3C,00 

59 DATA08,18,08,18,18.18,7E,00 

60 DATA3C,42,02,0C ,30, cf7 7E,00 

61 DATA3C , 42,02 , IC , 06,46,3C , 00 

62 DATA40,40,48,48,7E,18,18,00 

63 DATA7E,40,7C,06,06,46,3C,00 

64 DATA3C,42,40,7C,46,46,3C,00 

65 DATA7E,42,04,18,18,18,18,00 

66 DATA3C,42,42,30,46,46,3C,00 

67 DATA3C, 42,42,3E, 06,46,3C , 00 

68 DATA00,06,06,00,06,06,00,00 

69 DATAE0,70,38,1C,0E,07,03,01 

70 DATA01,01,01,01,01,01,01,01 

71 DAT A80,80,80,80,80,80,80,80 

72 DATA07,1F,3F,78,70,E4,E0,E0 

73 DATA3C,42,02,0C,18,00,18,00 

74 DATAE0,F8,FC,9E,0E,27,07,07 

75 DATAE1,C0,80,43,44,20,IC,07 

76 DATAB7,03,01,C2,22,04,38,E0 

77 DATA07,02, IC,78,FC,FE,FF,FF 

78 DATAE0,40,3B,1E,3F,7F,FF,FF 

79 DATA7F,FF,FF,FF,7F,FF,FF,FF 

80 DATA00,00,00,00,01,07,1F,3F 

81 DATA00,00,00,00,80,E0,F8,FC 

82 DATA3F, 7F , 7F, 7F , 7E , 7E , 7E , 7E 

83 DATAFC,FE,FE,FE,7E,7E,7E,7E 

84 DATA7E,7E,7E,7E,7E,7E,7E,7E 
05 DAT A7E,24,24,42,42,24,18,00 
B6 DATA80,FF,FF,FF,FF,FF,FF,FF 
87 DATA01,FF,FF,FF,FF,FF,FF,FF 
BB DATAFE,FE,FE,FE,FE,FE,FE,FE 

89 DATA7F,7F,7F,7F,7F,7F,7F,7F 

90 DATA24,66,7E,7E,7E,7E,3C,18 

91 DAT A00,00,38,04,3C,4C,3C,00 

92 DATA40,40,78,64,64,64,78,00 

93 DATA00,00,3C,60,60,60,3C,00 

94 DATA04,04,3C,64,64,64,3C,00 

95 DATA00,00,38,64,7C,60,3C,00 

96 DATA00,00,3C,64,64,30,04,78 

97 DATA40,40,78,64,64,64,64,00 

98 DATA00,20,00,30,30,30,78,00 

99 DATA40,40,48,50,70,68,64,00 

100 DATA30,10,10,30,30,30,78,00 

101 DAT A00,00,34,6A, 6A, 6A, 6A ,00 

102 DAT A00,00,38,64,64,64,64,00 

103 DAT A00,00,38,64,64,64,38,00 

104 DATA00,00,58,64,64,58,40,40 

105 DAT A00,00,30,64,60,60,60,00 

106 DATA00,00,38,40,3B , 0C, 78,00 


107 DATA10,7C,10,18,18,1B,18,00 

108 DATA00,00,64,64,64,64,38,00 

109 DATA00,00,62,62,6A,6A,34,00 

110 DATA00,00,64,64,64,3C,04,78 

111 DATA00,00,70,04,38,60,7C,00 

112 DATA28,00,38,64,64,64,38,00 

113 DATA28,00,64,64,64,64,38,00 

Listing 1. »Galgenraten« - Vorprogramm 

0 DATASCHLITTSCHUH 

1 DATAREGENWURM 

2 DATAPHYS X KBUCH 

3 DATAHAUSMANNSKOST 

4 DATAOBSERVATQRIUM 

5 DATAMASKOTTCHEN 

6 DATAKNQCHENBRUCH 

7 DATAFERIENJOB 

8 DATATAUCHERBRILLE 

9 DATADARMVERSTOPFUNG 

10 DATAHAREMSDAME 

11 DATAAUTQWASCHANLAGE 

12 DAT ADIRNDLKLEID 

13 DATATRACHTENANZUG 

14 DATATIEFSCHLAG 

15 DATAKANNIBALISMUS 

16 DATAQUIZSENDUNG 

17 DATAPLASTIKBEUTEL 

18 DATAPORTEMDNAI 

19 DATAPRE1SELBEERE ' 

20 DATAGROSCHENROMAN 

21 DATATASCHENRECHNER 

22 DATAKARNICKELSTALL 

23 DATACÜMPUTERFREAK 

24 DATAARZNEIMITTEL 

25 DATAMEDIKAMENT 

26 DATAJONGLEUR 

27 DATAINSTALLATEUR 

28 DAT ACHAHPIGNON 

29 DATAINFORMATION 

30 DATATISCHTENNIS 

31 DATARADIORECORDER 

32 DATALIEBESPAAR 

33 DATAANTIALKOHOLIKER 

34 DATABUNDESK.ANZLER 

Listing 2. Hauptprogramm 
zu Galgenraten 
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35 

DATABABYSCHNULLER 

107 

DATASTANDESAMT 

179 

DATASCHNEEBALL 

36 

DAT ASP1EGELB X LD 

108 

DATASPRICHWORT 

180 

DATASCHOKOLADE 

37 

DATACELLOPHAN 

109 

DATATUBERKULOSE 

181 

DATASCHMETTERLING 

38 

DAT AWASSERKLOSETT 

110 

DATAREKLAMESENDUNG 

182 

DATATRAUBENSAFT 

39 

DAT AZOOLOGIE 

111 

DATAREAGENZGLAS 

183 

DATAOZEANDAMPFER 

40 

DATAHAIFISCHFLOSSE 

112 

DATAORCHIDEE 

184 

DAT AQRGANISATOR 

41 

DATAVOKABELHEFT 

113 

DATAPAMPELMUSE 

185 

DATANACHWUCHS 

42 

DATAFREUNDSCHAFT 

114 

DATAZITRUSFRUCHT 

186 

DAT AMURMELTIER 

43 

DATAGESELLSCHAFT 

115 

DATAPANTOFFEL 

187 

DATANACHMITTAG 

44 

DATAHAARWUCHSMITTEL 

116 

DATAJUSTIZIRRTUM 

188 

DATAMAGNETBAND 

45 

DATAKIRCHTURMUHR 

117 

DATACOWBOYFILM 

189 

DAT AMANDARINE 

46 

DATAHONIGMELONE 

118 

DATACURRYSAUCE 

190 

DATAMANSARDE 

47 

DATAGASTHAUS 

119 

DATAVOLLEYBALL 

191 

DATAMANUSKRIPT 

48 

DATADURCHSCHNITT 

120 

DATADSCHUNKE 

192 

DATAMARATHONLAUF 

49 

DATASCHNURRBART 

121 

DATADSCHUNGELTIER 

193 

DATAMARIONETTE 

50 

DATAKINDERGARTEN 

122 

DATAGASTRONOMIE 

194 

DATAMARMELADE 

51 

DATAORIENTTEPPICH 

123 

DAT AEIDECHSE 

195 

DATAMAKKARONI 

52 

DATATEMPERAMENT 

124 

DATABIMSSTEIN 

196 

DATAMEERRETTICH 

53 

DATASTUHLGANG 

125 

DATABISAMRATTE 

197 

DATAMETTWURST 

54 

DATAMIEZEKATZE 

126 

DATABASKETBALL 

198 

DATARECHENSCHAFT 

55 

DATABIMMELBAHN 

127 

DATAPURZELBAUM 

199 

DAT ARANDALIERER 

56 

DATAQUARZUHR 

128 

DATARANGIERBAHNHOF 

200 

DATAREDAKTEUR 

57 

DAT AKQMPLIMENT 

129 

DAT AQUASSELEI 

201 

DATASADISMUS 

58 

DATAKONDENSMILCH 

130 

DATAQUACKSALBER 

202 

DATAVERABREDUNG 

59 

DAT AKOMBINATIQN 

131 

DATAQUADRATMETER 

203 

DATARESIDENZ 

60 

DATAREGENMANTEL 

132 

DATARAUCHVERBOT 

204 

DATARESTAURATOR 

61 

DATAKRANKENWAGEN 

133 

DAT AREPRODUKTION 

205 

DATAREVANCHE 

62 

DAT AKAT ASTRDPHE 

134 

DATASABOTEUR 

206 

DAT AREVOLUTION 

63 

DATATOLPATSCH 

135 

DATARODELBAHN 

207 

DATARHYTMUS 

64 

DAT AT ALISMANN 

136 

DAT ASALMIAKGEIST 

208 

DAT ARIZINUSOEL 

65 

DATAHAGEBUTTE 

137 

DAT ASAMARITER 

209 

DAT ARQLLBRATEN 

66 

DAT AHASCHISCH 

138 

DAT ASANATQRIUM 

210 

DATAZUCKERRQHR 

67 

DATAHASCHEE 

139 

DATASANDWICH 

211 

DATASABOTAGE 

68 

DATAINGENIEUR 

140 

DAT ASCHLAFITT rH EN 
DATASCHASCHLIK 

212 

DAT AWILDSCHWEIN 

69 

DAT AJ OURNALIST 

141 

213 

DATASCHABLONE 

70 

DATAKASSETTE 

142 

DATASCHABERNACK 

214 

DATASCHAUSPIELER 

71 

DATATEENAGER 

143 

DATASAXOPHQN 

215 

DATASCHIEDSRICHTER 

72 

DATATACHOMETER 

144 

DATAHINRICHTUNG 

216 

DAT ASCHLAMPEREI 

73 

DATAGRILLPARTY 

145 

DATASCHIMPANSE 

217 

DAT ASCHORNSTEIN 

74 

DATASCHMALZLOCKE 

146 

DAT ASCHLAMPEREI 

218 

DATALEBENSMITTEL 

75 

DATAMITTELSCHEITEL 

147 

DAT AVEGET ARIER 

219 

DATASCHREBERGARTEN 

76 

DATASTRICKNADEL 

148 

DAT AUTENSILIE 

220 

DATASCHULBUS 

77 

DAT AEXF'ORTEUR 

149 

DATAAKKORDARBEIT 

221 

DATASCHWIEGERELTERN 

78 

DATAUNTERGANG 

150 

DATAALLHEILMITTEL 

222 

DATASELTERSWASSER 

79 

DATAAMEISENHAUFEN 

151 

DATAANALPHABET 

223 

DATAMILCHSHAKE 

80 

DATAPLUMBSKLO 

152 

DATAANGORAKATZE 

224 

DAT ASENSATION 

81 

DATAZAHNFASTA 

153 

DATAAPPARTMENT 

225 

DAT ASKANDINAVIEN 

82 

DATAPICKNICKKORB 

154 

DAT AAQUARIUM 

226 

DATASMARAGD 

83 

DATAZINNOBER 

155 

DATAASTRONAUT 

227 

DATASPHINX 

84 

DATAZENTIMETER 

156 

DATAAUSRUFEZEICHEN 

228 

DATASTEWARD 

85 

DATATORNISTER 

157 

DATABAGATELLE 

229 

DATAVERABREDUNG 

86 

DAT ASEIFENSCHAUM 

158 

DAT ABARIKADE 

230 

DATAALUMINIUMFOLIE 

87 

DAT ATHUNFISCH 

159 

DATABAZILLUS 

231 

DAT ASYMPHONIE 

88 

DATABRILLENGESTELL 

160 

DATACHARAKTER 

232 

DAT AKREPPAPIER 

89 

DATAZYANKALI 

161 

DATACHRYSANTHEME 

233 

DATASCHICKSALSSCHLAG 

90 

DATATDPFLAPPEN 

162 

DAT ACONT AINER 

234 

DATAUMLAUFBAHN 

91 

DATABLAUBEERTORTE 

163 

DATAFARBFERNSEHER 

235 

DATAUREINWOHNER 

92 

DATASPRINTERHOSE 

164 

DAT ABRANNTWEIN 

236 

DAT AWAHRZEICHEN 

93 

DATAHUNDEKNOCHEN 

165 

DATABUNSENBRENNER 

237 

DAT AWEQERICH 

94 

DATABRIEFTAUBE 

166 

DATABUMERANG 

238 

DATAWEIZENBROT 

95 

DATATINTENPATRONE 

167 

DATABUCHSTABE 

239 

DATAWEINBRAND 

96 

DATAQUELLWASSER 

168 

DATABUDDHISMUS 

240 

DAT ABRANNTWEIN 

97 

DATAKASSENBON 

169 

DAT ABRITANNIEN 

241 

DATASCHUCREME 

98 

DATAPETROLEUM 

170 

DATABEGLAUBIGUNG 

242 

DATASEEFAHRERVOLK 

99 

DATAPETER5ILIE 

171 

DATAGARDEROBE 

243 

DATAZAPFENSTREICH 

100 DATAREGENSCHAUER 

172 

DATATRAUBENZUCKER 

244 

DATAZITADELLE 

101 DATAPULLOVER 

173 

DATAEINSCHREIBEN 

245 

DATAZEPPELIN 

102 DATAPLANSCHBECKEN 

103 DATAGIROKONTO 

104 DATAEXPERIMENT 

105 DATAVQLLMILCH 

106 DATAPQLTERABEND 

174 

175 

176 

177 

178 

DATABRIEFDRUCKSACHE 

DATAELEKTRIKER 

DATASCHNELLBAHN 

DATASCHLAMASSEL 

DATASCHLARAFFENLAND 

246 

DATAZERVELATWURST 

Listing 2. Hauptprogramm 
zu »Galgenraten« 
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SPIELE 


CI 6/116 


247 DATASTUNDENPLAN 

302 CHAR 1 ,0,8, "Wü= SAU. UA-.U- FUXAUTf AB.R. 

24B DATABILDERBUCH 

ü-, IÄ~ ±R 

249 DATAESSENSZEIT 

303 CHAR 1,0,9," SAU XM T& TTMC6SPACE 

250 DATATOMATENSALAT 

M=! " 

251 DATAHAUSKATZE 

304 CHAR1,0,11,"WÜ,= lä W-W UAV-U-V.U.R.U.— 

252 DAT AKANARIENVQGEL 

Ä K, ±W AL=" 

253 DATAFLASCHENKQRKEN 

305 CHAR 1,0,12, "SM XM Tfi IfätBSPACE JX¥R 

254 DATAHOLZSESTELL 

SAU"! " 

255 DATATASCHENDIEB 

306 COLORl,2,4 

256 DATA704,32,704,16,685,16,643,32,571, 

307 CHAR1,14,9,"tRVSON JHELP» 

32,596,32,643,32,1020,14,643,16,571,24 

308 CHAR1,14,12,"tRVSON 3 RETURN tRVOFF J" 

257 DATA596,8,685,32,643,32,704,32,739,3 

309 COLORl,2,1 

2,1020,14,704,16,685,16,704,16,739,16 

310 CHAR1,22,24,"Mfiiü Eß STÜ= JT=Ü" 

258 DATA704,16,685,32,1020,14,685,16,704 

311 POKE65286,27 

,16,685,16,643,32,571,32,596,32,643,32 

312 COLORl,8,6 

259 DATA1020,14,643,16,571,24,596,8,685, 

313 CHAR1,12,16,"tFLASH ON>@tFLASH OFF>@ 

32,643,32,704,32,739,32,1020,14,739,16 

@@@@@@@@@@@@@" 

260 DATA704,16,685,16,643,32,596,32,685, 

314 CLR 

16,704,32,739,16,704,48,1020,64,-1 

315 V0L6 

261 DATA1020,10,881,5,881,15,881,5,917,2 

316 P0KE239,0 

0,917,20,929,20,929,20,953,30,939,10 

317 GETA* 

262 DATA917,10,953,5,939,15,917,5,897,20 

318 IFA*= " ANDLEN (B*) >0THEN329 

,944,40,929,15,911,5,917,40,1020,64,-1, 

319 IFA$=CHR*(13)ANDA >4THEN335 

263 F0RA=1T07 

320 IFASC (A$) >90ORASC(A*X65THEN317 

264 KEYA,"" 

321 SOUND1,836,4 

265 NEXT 

322 A=A+1 

266 KEY8, " 

323 IFA=16THEN312 

267 POKE51,0:PQKE52,60:P0KE55,0:P0KE56,6 

324 CHAR1,11+A,16,A* 

0:POKE216,0:P0KE217,0:POKE1344,1 

325 B$=B*+A* 

268 P0KE65286,11s P0KE65298,8:P0KE65299,6 

326 IFA=15THEN316 

0 

327 CHAR1,12+A,16,"tFLASH ONJQtFLASH OFF 

269 CQL0R4,1:COLOR0,1 

>" 

270 PRINT"T2H0ME,CLR,CTRL-H,CTRL-N>" 

328 G0T0316 

271 COLOR1,16,5 

329 B*=LEFT*(B*,LEN(B$)-1> 

272 CHAR1,14,0,“37." 

330 1P-A—1 

273 CHAR1,14,1,CHR$(34)+"£$”+CHR$(34)+”f 

331 CHAR1,12+A,16,"tFLASH QNXÜtFLASH OFF 

&(£*t8<" 

}" 

274 COLDR1,3,5 

332 IFA<14THENPRINT" 

275 CHARl,0,6,"B2<.!nrü SM.:" 

333 SOUND1,836,4 

276 CHAR1,3,8,"ZT? C.-+t.rKM*.a.T TSHX IAL G 

334 G0T0316 

T ÜSTfÄTfÜ=MF" 

335 POKE65286,11 

277 CHAR1,3,9, "W-5TTÜ ! " 

336 PRINT"t2H0ME,CLR,CTRL-H,CTRL-N >" 

278 CHAR 1,3,11,"ZT5T EX-.V.PAU lü gT AASVS.'k' 

337 COLORl,16,5 

ä=XU= W-«7ä " 

338 CHAR1,14,0,"«-C#«-37.'C) 37." 

279 CHAR 1,3,12, "ITSäM ÜX-Ü ft-.T_U.».U. PtJ.* -- 

339 CHAR1,14,1,CHR$(34 > +"£*"+CHR$(34)+"t 

1 H 

&(£*t8<" 

280 CQLOR1,2,4 

340 COLORl,3,5 

281 CHAR1,0,8,"tRVSON >F 1" 

341 CHAR 1,0,6," BÄTtTk .T.gH.5_Y.U= SAU; " 

282 CHAR1,0,11,"tRVS0N’>F2tRVOFF >" 

342 CHAR1,3,8,"WÜ= LS. W-¥Tf gXSJTgAV." 

283 COLQR1,2,1 

343 CHAR 1,3,9," üü X 7!" 

284 CHAR 1,22,24, "M&IÜ STÜ= JTFÜ." 

344 CHAR 1,3,11,"WAL— 1 XÄ -ASM? ?A5A 

285 PQKE652B6,27 

IfM" 

286 IFPEEK(198)=4THEN359 

345 CHAR 1,3,12,"M. .5X»AUAU- X TT*- " 

287 IFPEEK(198)“5THEN289 

346 COLORl,2,4 

288 G0T02B6 

347 CHAR1,0,8,"tRVSONJF1" 

289 COLQR1,2,4 

348 CHAR1,0,11,"tRVSON >F2 tRVOFF}" 

270 CHAR1,0,11,"tRVSON,FLASH 0NJF2tRVOFF 

347 COLORl,8,6 

>" 

350 CHAR 1,12,16," 

291 FGRA=1023TO0STEP-B 

351 CHAR1,12,16,B$ 

292 V0LA/12B 

352 COLORl,2,1 

293 SOUND1,A,1 

353 CHAR 1 ,22,24, "M fiXSA ÄS STÜP JT^Ü" 

294 NEXT 

354 P0KE65286,27 

295 P0KE65286,11 

355 P0KE239,0 

296 PRINT"t2H0ME,CLR,CTRL-H,CTRL-N>" 

356 IFPEEK(198)=5THEN291 

297 CDLOR1,16,5 

357 IFPEEK(198)< >4THEN356 

298 CHAR1,14,0,"«-C#«-I7.' C) 37.» 

358 G0T0363 

299 CHAR1,14,1,CHR$(34)+"fi*”+CHR*(34)+"T 

359 COLORl,2,4 

M£*T&" 

360 CHAR1,0,8,"tRVSON,FLASH ON>FltRVOFF> 

300 COLORl,3,5 

II 

301 CHAR 1,0,6," BX.'R'K'Ai &&. ü- SAU. AS_U UA- 

361 RESTOREINT(RND(1)*314159265)AND255 

W-*K UX—V URU—!" 

362 READB* 


@3ta? 
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CI 6H16 


SPIELE 


363 

FORA=1023TO0STEP-B 

429 

CHAR1,29,10,"fig" 


364 

VOLA/128 

430 

A=5 


365 

SOUND1,A,1 

431 

LOOP 


366 

NEXT 

432 

COLOR1,3,3 


367 

POKE652B6,11 

433 

CHAR1,24,16,A* 


368 

PRINT"C2H0ME,CLR,CTRL-H,CTRL-N>" 

434 

CHAR1,29,11," 


369 

COLÜR1,16,5 

435 

CHAR1,29, 12, "—1L" 


370 

CHAR1,14,0,"+C#+3X' C) 37." 

436 

CHAR1,29,13, 


371 

CHAR 1,14,1, CHR$ (34 )+"£:* " +CHR* (34) + " t 

437 

A=6 


&<£*T8t" 

438 

LOOP 


372 

COLOR1,3,5 

439 

COLOR1,3,3 


373 

CHAR^l^'-B^WiA V-U-KJJ-- SXü IKS1A BT&Ü 

440 

CHAR1,25,16,A$ 


•üVQlRJJ.— U X- ■ " 

441 

CHAR 1,28,11 , " 


374 

COLOR1,8,6 

442 

CHAR1,28,12,"ü" 


375 

FORB=0TOLEN(B$)-1 

443 

CHAR 1,28 , 13, " ü," 


376 

CHAR1,(28—LEN(B*>)/2+B, 10," 

444 

CHAR1,28,14, " JL" 


377 

NEXT 

445 

A=7 


378 

COLOR1,2,1 

446 

LOOP 


379 

CHARl,22,24,"MäUi ÄS STÜ= JT=Ü." 

447 

COLOR1,3,3 


380 

P0KE65286,27 

448 

CHAR1,26,16,A$ 


381 

C*=B* 

449 

CHAR 1,31,11, " 


382 

A=1 

450 

CHAR1,31,12,"i" 


383 

V0L6 

451 

CHAR1,31,13,"i" 


384 

DO 

452 

CHAR1,31,14, "i." 


385 

P0KE239,0 

453 

A=B 


386 

GETKEYA* 

454 

LOOP 


387 

IFASC(A*)>90ORASC(A* > <650RINSTR(D*,A 

455 

COLOR1,7,1 


*)>0THENLOOP 

456 

CHAR 1,29,14," Ul" 


388 

SOUND1,836,5 

457 

CHAR 1,29,15," KO." 


389 

D*=D*+A* 

458 

CHAR1,29,16,"Hfl" 


390 

IFINSTR(B$,A*)=0THENONAGOTO400,409,4 

459 

COLOR1,10,0 


17,425,432,439,447,455 

460 

CHAR1,29,17,"££" 


391 

COLOR1,8,6 

461 

COLOR1,8,6 


392 CHAR1,(28-LEN(B$) >/2-1+INSTR(C*,A$>, 
10, A* «S 

462 CHAR1,(28—LEN(B$))/2,10,"CFLASH 

QN>" 

393 

MID*(C»,INSTR(C*,A*>,1>=" " 

463 

V0L8 


394 

C=C+1 

464 

REST0RE256 


395 

IFINSTR(C*,A*>>0THEN392 

465 

DO 


396 

IFCCLEN <B*> THENLOOP 

466 

READA,B 


397 

REST0RE261 

467 

IFA=—1THENEXIT 


398 

P0KE217,(PEEK(217)+1)AND255 

468 

SOUND1,A,B 


399 

G0T0465 

469 

SOUND1,1020,2 


400 

COLOR1,8,6 

470 

LOOP 


401 

CHAR1 ,0,16, "Ffi2. 5-H.U. BT.5JC -gO-lUJ"; ■■ 

471 

POKE65286,11 


402 

COLOR1,3,3 

472 

P0KE216, (PEEK (216)+DAND255 


403 

CHAR1,20,16,A$ 

473 

PRINT"<2H0ME,CLR,CTRL-H,CTRL-N > 


404 

COLOR1,6,1 

474 

COLOR1,16,5 


405 

CHAR 1,27,19,"+-/" 

475 

CHARl,14,0," + t# + 37.' C) 37." 


406 

CHAR 1,26,20, "+-/" 

476 

CHAR1,14,1,CHR$(34)+"£*"+CHR*(34)+"t 

407 

A=2 

&(£*t&" 


408 

LOOP 

477 

COLOR1,3,5 


409 

COLOR1,3,3 

478 

CHAR 1,2,6, "BÄ RUS TSSÜ^+STR* (PEEK (2 

410 

CHAR1,21,16,A$ 

16))+" WTSTTÜT gt uy+Äirü-." 


411 

COLOR1,10,1 

479 

CHAR 1,2,8, " E TTffüA—" +STR* ( PEEK (217) 

412 

FQRA=7T01B 

>+" 

W+*?u? üinfäTfiL=. " 


413 

CHAR1,35,A," 

480 

CHARl,6,13,"MTäli‘fi , .y,- S&y. TÜAk'ÜS 

t_X.UJZ. 

414 

NEXT 

ü- ?" 


415 

A=3 

481 

CHARl,12,15,"Ja -TU? NÜÄ= 7" 


416 

LOOP 

482 

P0KE65286,27 


417 

COLOR1,3,3 

483 

P0KE239,0 


418 

CHAR1,22,16,A$ 

484 

GETKEYA* 


419 

COLOR1,10,1 

485 

IFA*<>"N"THENRUN26B 


420 

CHAR 1,29,7, "-<DOWN,LEFT>; " 

486 

SYS65529 


421 

COLOR1,8,3 




422 

CHAR1,29,8,"<■" 




423 

A=4 




424 

LOOP 




425 

COLOR1,3,3 




426 

CHAR1,23,16,A* 




427 

COLOR1,9,4 

Listlng 2. Hauptprogramm »Galgenraten« (Schluß). 


428 

CHAR1,29,9,">£" 

ßitte beachten Sie die Eingabehinweise auf Seite 76/77. 
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SPIELE 


VC 20 + 8 KByte 


Kampf um Rom 


Imperium Romanum ist ein Strategiespiel für 
zwei Personen, das sich besonders durch seine 
sehr gute Bildschirmgestaltung auszeichnet. Es 
zeigt, daß auch auf dem VC 20 das letzte Wort 
über Grafik noch nicht gesprochen ist. 

D as Spiel besteht aus einer Europakarte (siehe Bild), 20 
römischen Legionen, 15 germanischen Horden und 
einem Fadenkreuz (zur Bewegung dieser Legionen). 
Jede dieser Einheiten kann pro Runde (entspricht einem 
Jahr) zwei »Schritte« in eine beliebige Richtung marschieren, 
sofern diese Felder frei sind und nicht im Meer liegen. 

Sinn des Spiels 


Anfangs wird gelost, welcher Spieler die Germanen und wer 
die Römer übernimmt. Die Germanen müssen, um das Spiel 
siegreich zu beenden, mindestens vier der fünf Römerstädte 
erobern (das heißt sich auf deren Feld stellen). Die Aufgabe 
der Römer ist es, dies 25 Jahre lang zu verhindern. 

Die Römer sollten sich jedoch keinesfalls von der geringen 
Anzahl der Germanenhorden zu unüberlegten Taten hinrei¬ 
ßen lassen. Die Kampfkraft der Germanen ist zu Beginn des 
Spiels wesentlich höher als die der Römer. Deshalb sollten 
die Römer zuerst die Taktik des geordneten Rückzugs 
anwenden, aber auch darauf achten, daß dieser nicht in eine 
kopflose Flucht ausartet. 

Im Jahre 405 nach Christus wird sich dann das Blatt wen¬ 
den. In diesem Jahr erhalten alle noch vorhandenen Einhei¬ 
ten Nachschub, aber dieses Mal bekommen die Römer ein 
größeres Stück von dem Kuchen ab. 

Das Spiel ist ebenfalls beendet, wenn einer der beiden 
Spieler keine Einheiten mehr zur Verfügung hat. 



Bild. Eine aufwendige Grafik zeichnet dieses Strategiespiel aus 
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Kämpfe 


Eine Kampfsituation entsteht, wenn zwei oder mehr feindli¬ 
che Einheiten auf angrenzenden Feldern stehen. (Bei einem 
solchen Kampf wird jeder teilnehmenden Einheit ein wenig 
von ihrer Kampfstärke abgezogen. Sollte die Kampfstärke auf 
Null abgesunken sein, so löst sich die betreffende Einheit 
auf.) Da diese kämpfenden Einheiten dann jedes halbe Jahr 
erneut auf sich einprügeln, wenn sie nicht versetzt werden, 
sollte es Sie nicht wundern, wenn nach einigen Jahren meh¬ 
rere dieser Legionen das Zeitliche segnen und von der Land¬ 
karte verschwinden. 

Strategie 


Wenn man sich auf solche Kämpfe einläßt, so sollte man eine 
feindliche Einheit mit mehreren eigenen Legionen umstellen, 
damit man sich sicher sein kann, dieses Gefecht als Sieger 
zu überstehen. Es ist zu empfehlen, die Legionen mit häufi¬ 
gem Feindkontakt auszuwechseln, damit die eigenen Einhei¬ 
ten nicht aufgerieben, sondern nur geschwächt werden (im 
Jahre 405 werden sie dann wieder gestärkt). 

Die Römer sollten sich auf die Verteidigung von zwei bis 
drei Städten beschränken, um nicht von den germanischen 
Horden, die sich darum reißen, an Odins Tafel teilzuhaben, 
überrannt zu werden. 

Steuerung 


Der Spieler, der Rom vertritt, beginnt das Spiel. Mit dem Joy¬ 
stick kann er das Fadenkreuz bewegen. Das Fadenkreuz läßt 
sich weder aus dem Bildschirm heraus- noch durch das Meer 
steuern und hat somit die gleichen Eigenschaften wie die 
Legionen, die man bewegen möchte. Aus diesem Grund 
sollte man zuerst mit dem Fadenkreuz die Umgebung ab- 


01,02 


Bildschirmfarben 

JA 

= 

Jahreszahl 

F 

= 

Vordergrund 

M,N 

= 

Absperrung des Bildrandes für bewegliche 
Einheiten 

A(l) 

= 

Römer-Legionen (Türme) 

B(l) 

= 

Germanen-Horden (Hütten) 

K1(l) 

= 

Kampfkraft der Römer 

K2(l) 

- 

Kampfkraft der Germanen 

BW(I) 

= 

Anzahl der Bewegungen einer Einheit pro Jahr 

K(l) 

- 

Position der Städte 

FA 

- 

Fadenkreuz 

PI 

= 

Kartenuntergrund unter dem Fadenkreuz 

P2,P3,P4,P5 

= 

Umgebung des Fadenkreuzes 

Z 

= 

Abwechseln der Spieler 

U1.U2.U3.U4 

= 

Bewegungsrichtungen des Fadenkreuzes 

SC 

= 

Feuertaste 

W2,W3,W4,W5 

= 

Umgebung der Legionen 

X 

SS 

Position der eben bewegten Einheit 

ZT 

= 

»Jahre« seit Spielbeginn 

TR,TL 

= 

Verluste der Einheiten pro Kampf 


Tabelle 1. Variablenliste 
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SPIELE 


VC 20 + 8 KByte 


tasten, um festzustellen, wohin sich die Legionen bewegen 
können und wo nicht. 

Hat man sich nun für eine bestimmte Richtung entschie¬ 
den, so setzt man das Fadenkreuz auf die fortzubewegende 
(eigene) Einheit und drückt die Feuertaste. Mit einem kurzen 


15 - 

98 

Hauptprogramm 

Initialisierung der Variablen 

110- 

190 

Erstellen der Europakarte 

200- 

220 

Abdruck der Römer-, Germanen- und Städtesym- 

300 - 

310 

bole auf dem Bildschirm 

Eventuelle Abgabe an das Unterprogramm 

32(5 


Aufruf der Joystickabfrage 

32S - 

375 

Darstellung und Bewegung des Fadenkreuzes 

380- 

450 

Tastaturabfrage 

480- 

610 

Unterprogramme 

Bewegung der Legionen 

615- 

620 

Kontakt einer Germanen-Horde mit einer Stadt? 

630 - 

700 

Sollten vier Städte zerstört sein, dann nach 2000 
verzweigen. 

Bei Druck auf Feuertaste erfolgt Rücksprung ins 

800 - 

803 

Hauptprogramm 

Ablauf der Jahre 

805 


Nach 25 »Jahren« endet das Programm 

810- 

1010 

Gefecht. Abzüge von der Kampfkraft 

1015- 

1020 

Ausgabe der Jahreszahl 

2000 - 

2150 

Sieg der Germanen 

2500- 

2640 

Sieg der Römer 

3000 - 

3040 

Joystickabfrage 

5000- 

5030 

Änderung der Bildschirmfarben über Tasten 

Tabelle 2. Programmbeschreibung 


Piepston wandelt sich das Kreuz in die darunter befindliche 
Einheit um. Nun kann diese Legion mit Hilfe des Joysticks bis 
zu zwei Schritte weit in die gewünschte Richtung marschie¬ 
ren. (Wenn diese Richtung nicht bereits von einer anderen 
Einheit blockiert wird. Man kann weder eine eigene noch eine 
fremde Legion »überspringen«.) 

Wenn Sie mit Ihrem Steuermanöver fertig sind, müssen Sie 
erneut die Feuertaste betätigen. Das Fadenkreuz wird 
dadurch wieder frei. 

Auf diese Art und Weise können Sie alle Ihre Einheiten 
(sofern diese nicht blockiert sind) versetzen. Wenn Sie alle 
Einheiten, die Sie bewegen wollten, versetzt haben, müssen 
Sie eine Taste drücken. Dadurch beginnen die feindlichen 
Legionen ihr Gefecht, und man »hört« ein halbes Jahr verge¬ 
hen: Nachdem die Melodie verklungen ist, wird der Joystick 
weitergereicht, und der zweite Spieler ist an der Reihe. Inter¬ 
essierte Leser finden in den Tabellen 1 und 2 eine Variablen¬ 
belegung und eine Dokumentation zum Programm. 

(Ralf Trabhardt/tr) 


Wichtig ! 

Beachten Sie bitte, daß Ihr VC 20 mindestens eine 
8 -KByte-Speichererweiterung besitzen muß. Tippen Sie 
zuerst Listing 1 ein, speichern Sie es, und dann Listing 
2 (ebenfalls speichern!) Wenn Sie spielen wollen, 
müssen Sie vor dem Laden des Vorprogramms folgen¬ 
des eintippen: 

POKE 44,28 : POKE. 7168,0 : NEW 






6*eR onur 





5 PRINT" 

CCLR,4D0WN,RIGHT>BITTE 7 SEC. WARTEN!" 

<040> 

51 

DATA 

224, 224, 224, 224, 224, 224, 192, 

0 

<190> 

6 FÜR 1= 

5120 TO 6423:READ K:S=S+K:NEXT:IF S<>14 


52 

DATA 

127, 63, 31, 3, 1, 1, 0, 0 


<044> 

2823 THEN PRINT"FEHLER IN DATAS!":STOP 


<073> 

53 

DATA 

0, 0, 0, 160, 224, 252, 255, 255 


<053> 

7 REM FORI=6400TO6407:POKEI,255:NEXT 


<253> 

54 

DATA 

0, 0, 1, 1, 1, 3, 3, 1 


<081 > 

B PRINT 1 

TDOWNILADEN SIE NUN DASC5SPACE,DQWNJHAU 


55 

DATA 

192, 128, 128, 192, 240, 24B, 248, 

248 

<052> 

PTPROGRAMM'" = END 


<187> 

56 

DATA 

128, 128, 196, 220, 252, 248, 248, 

240 

< 107> 

10 

DATA 

255, 255, 255, 255, 255, 255, 255, 

255 

<092> 

57 

DATA 

191, 255, 255, 255, 255, 255, 255, 

255 

<067> 

1 1 

DATA 

0, 7, 31, 31, 63, 63, 127, 255 


<207> 

58 

DATA 

0, 0, 0, 0, 0, 0, 12, 159 


<102> 

12 

DATA 

15, 63, 31, 255, 255, 255, 255, 255 

< 104> 

59 

DATA 

0, 0, 0, 0, 0, 0, 12, 252 


<251 > 

13 

DATA 

48, 60, 126, 63, 191, 191, 191, 255 


<02B> 

60 

DATA 

0, 0, 0, 0, 0, 0, 32, 61 


<202> 

14 

DATA 

0, 176, 240, 240, 252, 252, 253, 255 

<202> 

62 

DATA 

0, 0, 0, 0, 24B, 252, 254, 254 


< 103> 

15 

DATA 

B, 30, 7, 19, 15, 15, 15, 1 


<135> 

63 

DATA 

0, 0, 0, 0, 62, 255, 255, 255 


<165> 

16 

DATA 

255, 255, 127, 63, 31, 31, 31, 15 


<094 > 

64 

DATA 

0, 0, 0, 240, 255, 255, 255, 255 


<147> 

17 

DATA 

7, 31, 15, 7, 7, 7, 7, 3 


< 151 > 

65 

DATA 

0, 0, 0, 0, 0, 71, 239, 255 


< 117> 

10 

DATA 

3, 1, 1, 1, 3, 3, 1, 5 


<124> 

66 

DATA 

0, 0, 0, 0, 0, 7, 31, 63 


<191 > 

19 

DATA 

5, 13, 14, 15, 31, 31, 31, 31 


<135> 

67 

DATA 

0, 0, 0, 0, 208, 240, 252, 255 


<233> 

20 

DATA 

31. 63. 63, 127, 127. 255, 255, 255 

<095> 

6B 

DATA 

192, 12B, 131, 131, 129, 129, 128, 

128 

<053> 

21 

DATA 

0, 0, 0, 224, 251, 255, 255, 255 


< 126> 

69 

DATA 

255, 255, 255, 255, 255, 255, 255, 

243 

<146> 

22 

DATA 

224, 240, 254, 255, 255, 255, 255, 

255 

<237> 

70 

DATA 

255, 255, 255, 191, 159, 143, 175, 

167 

< 162 > 

23 

DATA 

0, 0, 0, 152, 252, 252, 254, 255 


<099> 

71 

DATA 

7, 23, 11, 3, 23, 3, 3. 1 


< 137> 

24 

DATA 

127, 15,,1, 0, 0, 0, 0, 0 


<099> 

72 

DATA 

255, 127, 47, 7, 3, 9, 40, 3 


< 012 > 

25 

DATA 

255, 255, 255, 255, 255, 254, 254, 

240 

<07B> 

73 

DATA 

1, 0, 0, 0, 0, 0, 0, 0 


<235> 

2 6 

DATA 

254, 240, 224, 192, 192, 192, 0, 0 


< 191 > 

74 

DATA 

255, 63. 31, 15, 7, 3, 1, 0 


<147> 

27 

DATA 

254, 254, 254, 252, 252, 254, 254, 

255 

<163> 

75 

DATA 

127, 63, 63, 127, 255, 255, 127, 255 

<022> 

29 

DATA 

754, 740, 774, 197, 192, 120, I7B, 

e» 

<099> 

76 

ROTA 

255. 127, 127. 255, 127. 63, 31, 15 

<169> 

29 

DATA 

255, 255, 255, 255, 255, 255, 2S5, 

254 

<109> 

77 

DATA 

7, 7, 7, 3, 3, 1, 1, 0 


<004 > 

30 

DATA 

255, 255, 253, 255, 254, 252, 120, 

0 

<210> 

78 

DATA 

127, 255, 255, 127, 0, 10, 63, 127 


<071 > 

31 

DATA 

255, 252, 24B, 248, 240, 240, 224, 

240 

< 171 > 

79 

DATA 

0, 2, 0, 0, 4, 2, 0, 0 


<157> 

32 

DATA 

248, 248, 240, 224, 0, 0, 0, 0 


<203> 

80 

DATA 

63, 63, 31, 31, 31, 31, 29, 9 


<036> 

33 

DATA 

191, 63, 31, 7, 0, 0, 0, 0 


<199> 

Ql 

DATA 

1, 1, 0, 0, 0, 0, 0, 0 


<039> 

34 

DATA 

255, 255, 254, 252, 248, 112, 0, 0 


<016> 

Q2 

DATA 

176, 144, 0, 32, 0, 0, 0, 0 


<153> 

33 

DATA 

255, 255, 255, 255, 255, 255, 253, 

232 

<04 /> 

83 

DATA 

241, 240, 248, 208, 192, 192, 224, 

ZZ4 

<092> 

36 

DATA 

235, 255, 255, 255, 255, 255, 235, 

127 

<246 > 

04 

DATA 

204,198,227,253,126,62,191,255 


<035> 

37 

DATA 

31, 7, 1, 1, 1, 3, 3, 1 


< 190> 

85 

DATA 

0,0,128,128,192,64,32,0 


<046> 

30 

DATA 

255, 255, 255, 255, 255, 127, 63, 31 

<120> 

B6 

DATA 

12B,192,192,224,224,224,192,192 


<033> 

39 

DATA 

31, 15, 7, 7, 3, 1, 1, 0 


<217> 

87 

DATA 

254,254,255,191,63,188,156,150 


< 132> 

40 

DATA 

240, 248, 248, 252, 252, 252, 254, 

254 

<146> 

88 

DATA 

0, 0, 0, 128, 128, 0, 0, 0 


<254> 

41 

DATA 

120, 128, 128, 192, 192, 224, 224, 

240 

<068 > 

89 

DATA 

255, 255, 255, 255, 255, 255, 249, 

240 

<017> 

42 

DATA 

0, 0, 0, 0, 0, 0, 0, 0 


<216> 

90 

DATA 

0, 0, 0, 12B, 224, 240, 24B, 255 


< 184 > 

43 

DATA 

255, 255, 127, 39, 7, 7, 3, 3 


<071 > 

91 

DATA 

28, 26, 51, 39, 15, 31, 31, 63 


<105> 

44 

DATA 

255, 255, 171, 131, 131, 147, 147, 

255 

< 141 > 

92 

DATA 

3,127,255,255,255,255,255,255 


<006 > 

45 

DATA 

128, 0, 0, 128, 224, 240, 24B, 255 


<074> 

93 

DATA 

0,198,255,255,127,255,255,255 


<052> 

46 

DATA 

255, 255, 255, 249, 248, 240, 240, 

240 

<018> 

94 

DATA 

224,252,252,249,224,128,1,3 


< 151 > 

47 

DATA 

128, 192, 224, 224, 112, 4B, 48, 32 

<100> 






40 

49 

DATA 

DATA 

224, 24B, 24B, 252, 252, 252, 124, 
224, 224, 224, 192, 128, 0, 0, 0 

96 

<222> 

<164> 

Listing 1. Das Vorprogramm zu »Imperium Romanum 

« 

50 

DATA 

1, i, 1,1, 91, 243, 240, 224 


<238> 

enthält die Informationen zum geänderten Zeichensatz 


148 


SONDERHEFT 3/1986 









VC 20 + 8 KByte 


SPIELE 


VS DATA 128,128,192,224,224,192,192,224 

<047> 

138 

DATA 

0,40,32,0,0,152,180,255 


<215> 

96 DATA 240,128,0,0,0,128,128,128 

<103> 

139 

DATA 

1B0,240,249,249,249,251 ,255,255 


<059> 

97 DATA 240,240,240,240,240,240,240,240 

< 199> 

140 

DATA 

3,7,191,255,255,255,255,255 


<077> 

9B DATA 255,255,254,254,244,240,240,240 

<156> 

141 

DATA 

0,0,0,0,0,0,0,1 


<061 > 

99 DATA 224,192,128,128,0,0,0,0 

<059> 

142 

DATA 

0,0,0,0,24,56,248,254 


<149> 

100 

DATA 

255,255,255,254,252,240,224,224 

<244> 

143 

DATA 

7,7,39,39,63,63,63,127 


< 131 > 

101 

DATA 

63,103,15,103,39,7,7,15 

<018> 

144 

DATA 

3,3,3,3,1,1,3,3 


<236> 

102 

DATA 

3,3,223,207,79,65,0,0 

< 190> 

145 

DATA 

0,0,0,1,1,1,3,3 


<240> 

103 

DATA 

255,127,63,255,7,7,31,28 

<023> 

146 

DATA 

63,60,60,60,120,60,12,0 


<223> 

104 

DATA 

255,255,255,255,255,255,191,63 

<008> 

147 

DATA 

255,255,127,127,255,255,255,127 


<237> 

105 

DATA 

0,28,28,28,16,0,0,0 

<251 > 

148 

DATA 

254,252,252,252,252,253,248,224 


<066> 

106 

DATA 

0,0,0,0,0,0,64,0 

<219> 

149 

DATA 

0,0,0,0,128,128,0,0 


<060> 

107 

DATA 

0,0,0,0,0,0,0,0 

<025> 

150 

DATA 

224,0,0,0,0,0,0,0 


<102> 

108 

DATA 

0,4,0,0,0,2,2,0 

<219> 

151 

DATA 

255,255,239,207,159,147,255,255 


<06B> 

109 

DATA 

0,0,1,3,7,1,129,192 

<163> 

160 

DATA 

40, 4B, 24, 24, 12, 12, 6, 6 


< 026 > 

110 

DATA 

0,0,135,199,192,120,12B,0 

<017> 

161 

DATA 

0, 137, 205, 116, 84, 68, 36, 34 

< 157> 

111 

DATA 

0,0,0,1,3«3«3«3 

<030> 

162 

DATA 

0, 243, 10, 138, 146, 227, 129, 

65 

<044> 

112 

DATA 

3,3,3,3,3,1,0,1 

<0B7> 

163 

DATA 

0, 231, 4, 4, 4, 199, 5, 5 


<218> 

113 

DATA 

192,128,128,128,128,0,0,0 

<017> 

164 

DATA 

0, 130, 66, 68, 68, 132, B, 8 


<081 > 

1 14 

DATA 

0,128,128,128,128,128,128,0 

< 190> 

165 

DATA 

0, 17, 33, 33, 34, 66, 68, 69 


<025> 

115 

DATA 

49,55,63,63,31,63,63,63 

<0B3> 

166 

DATA 

0, 66, 102, 108, 180, 168, 136, 

16 

< 191 > 

116 

DATA 

31,31,31,63,63,63,59,49 

<043> 

167 

DATA 

6, 3, 0, 0, 0, 0, ly 2 


<105> 

117 

DATA 

0,128,128,128,128,0,0,0 

<201 > 

168 

DATA 

34, 18, 0, 0, 0, 0, 240, 35 


<125> 

1 18 

DATA 

0,0,0,0,0,0,32,48 

<052> 

169 

DATA 

65, 65, 0, 0, 0, 0, 0, 137 


<237> 

119 

DATA 

240,224,192,0,0,0,0,0 

<250> 

170 

DATA 

4, 196, 0, 0, 0, 0, 0, 24 


<09B> 

120 

DATA 

24B,0,0,0,0,0,0,0 

<233> 

171 

DATA 

136, 136, 0, 0, 0, 0, 0, 144 


<101> 

121 

DATA 

239,199,239,199,187,187,199,255 

<074> 

172 

DATA 

73, 49, 0, 0, 0, 0, 0, 12 


<100> 

122 

DATA 

63,63,63,31,15,15,1,0 

<221 > 

173 

DATA 

16, 16, 0, 0, 0, 0, 0, 128 


<042> 

123 

DATA 

62,6,0,0,0,0,0,0 

<032> 

174 

DATA 

4, 7, 10, 18, 34, 33, 65, 65 


<249> 

124 

DATA 

1,65,65,192,192,192,192,192 

•<0B4> 

175 

DATA 

68, 136, 16, 17, 33, 35, 38, 2B 


<059> 

125 

DATA 

231,231,231,0,0,231,231,231 

<100> 

176 

DATA 

203, 213, 149, 161, 33, 33, 65, 

65 

< 141 > 

126 

DATA 

255,255,231,195,129,153,255,255 

<119> 

177 

DATA 

36, 36, 60, 36, 66, 66, 66, 66 


<227> 

127 

DATA 

255,255,251,227,195,147,147,255 

<052> 

178 

DATA 

202, 201, 169, 164, 148, 138, 134, 131 

<071 > 

12B 

DATA 

11,205,255,255,255,255,255,255 

<124> 

179 

DATA 

0,0,0,0,0,0,0,0 


<097> 

129 

DATA 

0,1,3,3,1,1,7,7 

< 143> 

180 

DATA 

42, 21, 20, 138, 74, 69, 36, 24 


<220> 

130 

DATA 

B, 32,79,7,71,67,195,231 

<006> 

181 

DATA 

192, 224, 160, 16, 16, 8, 132, 

130 

<160> 

131 

DATA 

24,63,255,255,255,255,255,255 

<004 > 






132 

DATA 

127,255,255,255,255,255,255,255 

<222> 

@ 64 

'er 




133 

DATA 

124,124,62,62,127, 127,255,63 

< 048> 






134 

DATA 

124,252,252,60,56,61 ,61 ,60 

< 118> 






135 

136 

DATA 

DATA 

15,31,63,63,127,127,127,124 

192,192,128,192,192,128,0,0 

<146> 

<043> 

Listing 1. 

Das Vorprogramm zu »Imperium Romanum 

« 

137 

DATA 

4,30,30,156,220,220,134,0 

<246> 

Bitte beachten Sie die Eingabehinweise auf Seite 76 





6^eB onun®»« 





1 REM********VC-20+8K******* 

<136> 

140 

PRINT"@@@@@@@@YZ@9;@@@@@@@H @@@0@UWX7C 


2 REH* IMPERIUM ROMANUM * 

< 166> 


"i 

<130> 

3 REM* BESCHRIEBEN VON * 

<123> 

150 

PRINT"000STV{2SPACEt@@@R 


4 REM* RALF TRABHARDT * 

<047 > 


{4SPACE>'5TD@fl 7000001 ": 

<163> 

5 REM* PHILIPPSBERBSTR.45 * 

<009> 

160 

PRINT"0@Q TT{2SPACE> lTH ! @* ;£@@H@Ä£@OP { 


6 REM* 6200 WIESBADEN * 

< 155> 


5SPACE>£R{2SPACE>-?*7.fl@iAEa@" ! 

<228> 

7 REM* TEL. 06121/523970 * 

< 160> 

170 

PRINT"N1J{ 10SPACE>!T& £@K. Z00876543120 , 


S REM*****#****»*****-»****«# 

< 149> 


+ < * JLC.U-+.QQ" ; 

< 150 > 

9 PRINT" {CLR.BLACIO" 

<083> 

180 

PRINT"@@@@@@@@/. 5*) {3SPACE>£üirs^@@@@@@ 


10 POKE 650.128:01=24:GOSUB 5000:POKE 650. 



@000- {6SPACE> ££ £2SPACE > 11 " : 

< 141 > 

0 

<24S> 

181 

FOR 1=4580 TO 4601:POKE 1,0:POKE I+F.O 


15 F=33792:U=37151 

< 127 > 


2:NEXT I 

<240> 

20 JA=395 

< 192> 

182 

POKE 4168,162 

<023> 

25 POKE 36878,15 

<197> 

200 

FOR 1=1 TO 20:IF Kl(I)>0 THEN POKE A(I 


30 J=4108 : M=4558 : N=4579 

< 150> 


) .34 

< 161 > 

35 DIM A ( 26),B(26),K1(26),K2(26),BW(26) 

<039> 

201 

IF K2(I>>0 AND B (I ) >0 THEN POKE Bdl.l 


40 FOR L=1 TO 20:READ A <L>:NEXT L 

< 123> 


15 

<110> 

45 FOR 1=1 TO 15:READ B(I)iNEXT I 

< 142> 

205 

NEXT I 

<033> 

50 FOR 1=1 TO 5:READ K<I):NEXT I 

<030> 

210 

FOR 1=1 TO 5:IF K < I ) >6 THEN POKE K<I). 


98 FOR 1=1 TO 20:Kl ( I ) =70iK2 ( I ) =100:NEXT I 

<110> 


110:NEXT I 

<246> 

100 REM*ERSTELLEN DER KARTE* 

<254> 

220 

FA=4326 : P1=PEEK ( FA ) 

<076> 

110 POKE 36869,205:PRINT"<CLR,BLACK.HOME.1 


300 

REM 

< 10Q> 

0SPACE >EY<RVSON )H IJF {RVOFF > @00000 £RVSO 


310 

IF 61=1 OR Ql=2 THEN 500 

<245> 

NJMNOPQRS<RVOFF.3SPACE >F?<RVSON>GK£RVO 


320 

GOSUB 3000 

<03B> 

FF , SPACE , RVSON >E {RVOFF } @@@@00!" ; 

<033> 

322 

REM*BEWE6UNG DES FADENKREUZES* 

<040> 

1 20 FRINT"{RVSON JTUVWXVZ{RVOFF,3SPACE>ß?{S 


325 

P2=PEEK(FA-22) : IF P2<>32 THEN SR=1 

< 1B9> 

PACE,RVSON JBCD CRVOFF >@@0000" : 

< 154> 

327 

IF FA<4118 THEN SR=0 

<056> 

125 PRINT"{RVSONTCflt+l {RVOFF ,2SPACE>W3@{ 


330 

IF U2=l AND SR=1 THEN POKE FA,PI:FA=FA 


RVSON > @A{RVOFF > 0@@©@@@@ I7SPACE >r@@@@@@ 



—22:P1=P2:GOTO 400 

<227> 

@@@@©@@@" ; 

<234> 

335 

P3=PEEK(FA+22):IF P3<>32 THEN SR=2 

<208> 

130 PRINT"{45PACEJU Ay@@@@@@@@@@@@@@" j 

<064> 

336 

IF FA>4557 THEN SR=0 

< 005 > 

131 PRINT"{2SPACE>EDCB@@@@@@@@@@@@@@@@"; 

<093> 

340 

IF U4=l AND SR=2 THEN POKE FA,PI:FA=FA 


132 PRINT"£3SPACE>F @@@@@@@@@@@@@@@@@@ £3SPA 



+22 : P1=P3 : GOTO 400 

<021 > 

CE >G@@@@@@@@@@@@@@@@@@{3SPACE >H@@@@@@@ 





@@@@@@@0000"; 

<013> 




135 PRINT " MI2SPACE > I@@@@@@@@@@@@@@@@@i@LKJ 





0000000:; 

<093> 

Listing 2. »Imperium Romanum«, Hauptprogramm 




SONDERHEFT 3M986 


149 









SPIELE 


VC 20 + 8 KByte 


345 P4—PEEK(FA—1> :IF P4<>32 THEN SR=3 <075> 

346 IF FA=M 0R FA=M-22 OR FA-M-44 OR FA=M- 
66 OR FA=M-B 8 OR FA=M-19B OR FA-M-220 

OR FA=M—242 THEN SR=0 <194> 

350 IF Ul = l AND SR=3 THEN POKE FA,P1:FA=FA 

-1:P1=P4:GOTO 400 <027> 

355 P5=PEEK(FA+l> : IF P5<>32 THEN SR=4 <220> 

356 IF FA=N OR FA=N-22 OR FA=N-44 OR FA=N— 

66 OR FA—N -88 OR FA=N-110 OR FA=N-220 

OR FA=N—242 THEN SR-0 <094> 

357 IF FA=N-264 OR FA=N-418 OR FA=N-440 OR 

FA=N-462 THEN SR=0 <174> 

360 IF U3-1 AND SR-4 THEN POKE FA,P1:FA=FA 

+1iP1=P5:G0T0 400 <076> 

365 FOR 1=1 TO 20:IF A<I>=FA AND Z=0 THEN 

Fl-laBOTO 370 <031> 

366 IF Z=1 AND B(I)=FA THEN F1=2:G0T0 370 <106> 

367 NEXT I <197> 

370 IF SC=1 AND Fl = l THEN 81=1:F1=0:POKE 3 

6876.250:POKE 36B76,0:GOTO 400 <004> 

375 IF SC=1 AND Fl=2 THEN 81=2:F1=0:POKE 3 

6B76,250:POKE 36876,0:GOTO 400 <018> 

380 GET A< <080> 

385 IF A*<>""THEN POKE 198.0:GOTO 800 <1B2> 

400 POKE FA,114:SR=0:F1=0 <094> 

450 GOTO 300 <140> 

480 REM*BEWEGUNB DER LEBIONEN* <100> 

500 IF Z=0 THEN X=A(I) <236> 

501 IF Z=1 THEN X=B <I) <015> 

502 GOSUB 3000 <220> 

505 W2—PEEK(X-22):IF W2<>32 AND W2<>34 AND 

W20115 THEN SW=1 <106> 

507 IF X<4118 THEN SW=0 <081> 

510 IF U2=l AND BW (1X2 AND SW=1 THEN POKE 
X,W1:X=X—22:BW(I)= 6 W(I)+1:W1=W2:GOTO 
600 <214> 

515 W3=PEEK(X+22>;IF W3<>32 AND W3<>34 AND 

W30115 THEN SW=2 <222> 

517 IF X>4557 THEN SW=0 <063> 

520 IF U4=l AND BW <1X2 AND SW=2 THEN POKE (54 

X.W1:X=X+22:BW(I)=BW<I)+1:W1=W3:GOTO 
600 <218> 

521 W4=PEEK(X—1):IF W4<>32 AND W4<>34 AND 

W40115 THEN SW=3 <035> 

525 IF X=M OR X=M-22 DR X=M-44 OR X=M -66 O 
R X=M —88 OR X=M—198 OR X=M-220 OR X=M- 
242 THEN SW=0 <110> 

530 IF Ul = l AND BW <1X2 AND SW=3 THEN POKE 
X,W1:X=X-1:BW <I)=BW <I> +1:W1=W4:GOTO 6 
00 <019> 

532 W5=PEEK <X+1> sIF W5<>32 AND W5<>34 AND 

W5011S THEN SW=4 <230> 

535 IF X=N OR X=N-22 OR X=N-44 OR X=N -66 O 
R X=N- 8 B OR X=N—110 OR X=N-220 OR X=N- 
242 OR X=N-264 THEN SW=0 <1B9> 

540 IF U3=l AND BW <1X2 AND SW=4 THEN POKE 
X,W1:X=X+1:BW <I)=BW <I)+1:W1=W5:GOTO 6 
00 <013> 

600 IF Z=0 THEN POKE X,34:A(I)=X <19B> 

610 IF Z=1 THEN POKE X,115:B<I)-X <205> 

615 FOR Y=1 TO 5:IF B<I>=K<Y>THEN K<Y>=5:P 
OKE 36875.150:BE=BE+liIF BE>-4 THEN BE 

=0:GOTO 2000 <022> 

616 POKE 36875.0:NEXT Y <0B1> 

620 SW=0:P1=0 <180> 

630 IF SC=1 THEN G1=0:W1=0:POKE 36876,200: 

POKE 36076,0:GOTO 300 <255> 

700 GOTO 502 <216> 

800 Z=Z+1:IF Z>1 THEN Z=0:ZT=ZT+1 <220> 

801 IF ZT< >9 THEN 805 <106> 

802 FOR B0=1 TO 25:IF A<BO>>0 THEN K1(B0>= 

Kl<B0)+100 <192> 

803 IF B <BO)>0 THEN. K2(BO)=K2(BO)+70 <087> 

804 NEXT BO <058> 

805 IF ZT>=25 THEN 2500 <105> 

810 FOR T=1 TO 20 <155> 

815 POKE 36874,130+T*2 <20B> 

B19 FOR T2=l TO 15 <147> 

820 IF A(T)+22=B<T2>0R A < T > —22=B <T2)OR A(T 

)-l=B(T2)0R A(T) + 1=B(T2> THEN 840 <100> 

830 GOTO 860 <148> 

840 TR=INT <RND <1)*20)+ 1:K1<T)=K1<T)-TR:IF 

Kl <TX=0 THEN POKE A <T> , 116: A <T> =0 <070> 


850 TL=INT(RND<1)*20)+1:K2 <T2)=K2 <T2>-TL 
055 IF K2<T2X=0 THEN POKE B <T2> . 140: B <T2> 
=0 

860 NEXT T2 
870 NEXT T 
880 POKE 36874,0 

1000 FOR T=1 TO 25:BW(T)=0:NEXT T 
1010 B1=0:W1=0 

1015 POKE 36869,192:PRINT"tCLR.HOME.6D0WNI 
WIR BEFINDEN UNS IM" 

1016 PRINT"CDOWNJJAHRE "JA+ZT" N. CHR. " 

1017 GOSUB 5000 
1020 GOTO 110 

2000 REM*SIEB DER GERMANEN* 

2010 POKE 36875,0:POKE 36869,192:POKE 3687 
9,25:PRINT"(CLR>" 

2100 PRINT"(HOME,RED.DOWN>DAS ROEMISCHE IM 
PERIUM(DOWN>LIEGT AM BODEN !" 

2110 PRINT"(2D0WN1DIE GERMANEN HABENC4SPAC 
E.DOWNJHABEN SIE WEGEN IHRER(SPACE,DO 
WNIFUEHRUNBSFAEHIGKEITEN" 

2120 PRINT"CDOWNJZUM KOENIG AUF LEBENS-<D0 
WNJZEIT ERNANNT." 

2130 PRINT"(DOWN>(DAS IST EINE GROSSEC2SPA 
CE.DOWN>EHRE,WENN MAN BEDENKT.(DOWN>D 
ASS BALD DIE HUNNEN" 

2140 PRINT”(DOWNIKOMMEN)!!" 

2150 GOTO 2640 
2490 REM*SIEB DER ROEMER* 

2500 POKE 36869,192:POKE 36879,25:PRINT"£C 
LR,HOME,BLUE } " : 

2600 PRINT"(DOWN>DAS ROEMISCHE IMPERIUM(DO 
WN>KONNTE DIESEN KLAEG-(2SPACE.DOWN>L 
ICHEN VERSUCH EINER" 

2610 PRINT"(DOWNIHORDE BARBAREN LAESSIGCDO 
WN}ABWEHREN." 

2620 PRINT"(DOWNJDEN GERMANEN FOLGENDEN(DO 
WNJTIP:" 

2630 PRINT"(DOWN>VERSUCHT ES IN HUNDERT(DO 
«.•:>JAHREN NOCHEINMAL!" 

2640 PkINT"(2D0WNJNEUES SPIEL J/N ?" 

2650 BET A*:IF A»="J"THEN ZT=0:RUN 
2660 IF A*="N"THEN PRINT“(CLR,HOME,DOWN,RE 
D>IHR SEID DESERTEURE!!!":END 
2670 GOTO 2650 
3000 REM*JOYSTICKABFRAGE* 

3010 POKE U+3,127:U3=— < <PEEK < U+1)AND 128) = 
0>:POKE U+3,255 

3020 Ul=-<(PEEK<U>AND 16)=0):U4=-<(PEEK(U) 
AND B>=0>:U2=—((PEEK(U)AND 4)=0) 

3030 SC=-<(PEEK(37137)AND 32)=0) 

3040 RETURN 

4990 REM*BILDSCHIRMFARBEN* 

5000 PRINT"(3D0WNJWAEHLEN SIE DIE(7SPACE.D 
OWN >BILDSCHIRMFARBEN:" 

5001 PRINT"(DOWN,RVSONJFl(RVOFF,SPACE>= BI 
LDSCHIRMFARBE(2SPACE.DOWN,RVS0NJF3(RV 
OFF,SPACE>= RAHMENFARBE " 

5002 PRINT"(DOWN,RVSONJS(RVOFF,2SPACE>= ST 
ART" 

5005 POKE 36879.01+02:GET A4:IF A*="(F1>"T 
HEN 01-01+16:IF 01>248 THEN 01-24 
5010 IF A#="(F3>"THEN 02=02+1:IF 02>7 THEN 
02=0 

5020 IF A*="S"THEN RETURN 
5030 GOTO 5005 

6000 DATA 4192,4237,4282,4305,4306,4308,43 
10,4312 

6010 DATA 4255,4301.4321,4420,4460.4428,45 
40,4361,4557 

6020 DATA 4368,4375,4355 

6030 DATA 4173.4194,4195,4196,4217,421B,42 
39,4240,4241 

6040 DATA 4242,4262,4263,4264,4265,4266 
6050 DATA 4427,4544,4491,4437,4256 

© G4'er 


Listing 2. »Imperium Romanum«, Hauptprogramm 
(Schluß) 


< 164> 

<013> 

< 049 > 

<024 > 
<074 > 
<148> 
<094 > 

< 160 > 
<028> 
<243> 
< 202 > 
<003> 

< 001 > 

<00B> 


<017> 

<066> 


<219> 
<237> 
<034> 
< 141 > 

<227> 


<252> 

< 110 > 

< 175> 

<031 > 

< 170> 

< 144> 

< 210 > 

<078> 

<129> 

<253> 

< 193> 
<035> 

<04B> 

<247> 

< 111 > 

<023> 

< 012 > 

<019> 

<203> 

< 110 > 

<241 > 

<064> 

<243> 
< 128> 

< 196> 

< 174> 

< 151 > 


150 
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VC 20 


mQS 


Spielhallen¬ 
gefühle 
mit dem VC20 

Wenn Sie schon immer ein witziges, schnelles 
Spiel mit flotter Musik für die Grundversion des 
VC20 suchten, haben Sie jetzt allen Grund, in die 
Tasten zu greifen. »Tacco« läßt das Herz aller 
Spielernaturen höher schlagen. 

O rdnung muß sein - auch in der Milchstraße. Das inter¬ 
galaktische Straßensystem soll rot eingefärbt werden. 
Eine wichtige Aufgabe, die »Tacco«, einem rosa Raum¬ 
schiff, zufällt. Der Spieler schlüpft in die Rolle von »Tacco« und 
muß unter Berücksichtigung einiger mordlüsterner Monster 
die Straßen anpinseln. Sind alle vier Eckfelder eingefärbt, 
flackert der Bildschirmrand für einige Sekunden in den wilde¬ 
sten Farben. In dieser Zeit kann »Tacco« sich an den Monstern 
revanchieren. Es darf sie verspeisen. Pro Monster werden 
satte 1000 Punkte gutgeschrieben. Nach Spielende wird der 
bestehende High Score eingeblendet. 

»Tacco« ist ein reines Maschinencode-Programm, das die 
Grundversion des VC 20 bis zum letzten Bit in Anspruch 
nimmt. Durch den völligen Verzicht auf Basic-Teile wurde aber 
ein Spiel geschaffen, das zeigt, was man aus dem kleinen 
Commodore alles rausholen kann. Bevor Sie »Tacco« eintip¬ 
pen, müssen Sie das Eingabeprogramm (Listing 1) eingeben 
und speichern. Dazu benötigen Sie allerdings eine 3 KByte- 
Speichererweiterung. Lauffähig ist »Tacco« aber wohlge¬ 
merkt auf der Grundversion des VC 20. Sollten Sie über eine 
andere Speichererweiterung verfügen (8 KByte aufwärts), 
müssen Sie im Eingabeprogramm folgendes ändern: Die bei¬ 
den POKEs in Zeile 99 entfallen. Bevor Sie das Eingabepro¬ 
gramm einladen und starten, ist folgendes einzugeben: 
POKE36866,PEEK (36866) 0R128: POKE648,30:POKE642,32: 
SYS64818 

Das Programm wird anschließend mit »RUN« gestartet und 
Sie können nun die vielen schönen Zahlen des »Tacco«- 
Listings 2 eintippen. Wie »Tacco« dann gespeichert wird, ist 
in den REM-Zeilen des Eingabeprogramms erläutert. Diese 
REM-Zeilen brauchen Sie natürlich nicht abtippen. Und noch 
eine Feinheit: Wer keine 3 KByte-Erweiterung benutzt, sollte 

statt »SYS 64802« lieber »SYS 64818« verwenden (betrifft 

Zeile 60 im Eingabeprogramm). Nach soviel Vorarbeit können 
Sie nun endlich das intergalaktische Straßensystem »errö¬ 
ten« lassen. 

Hilfreiches beim Eintippen von 
Hexadezimalzahlen 


Damit Sie nicht gleich die Lust beim Eintippen von langen 
Zahlenreihen verlieren, sollten Sie folgende Punkte beher¬ 
zigen: 

Vermeiden Sie, das ganze Programm auf einmal abzutip¬ 
pen. Die Konzentration verliert sich etwa auf halbem Wege. 
Die Eingabefehler werden häufiger und Sie müssen fehler¬ 
hafte Zeilen wiederholt eingeben. 


1 rem ••*•**•*•«•••*• 

** <13B> 

2 REM * TACCO 

* <018> 

3 REM * EIN6ABEPR0BR. 

* <043> 

4 REM *************** 

** <141> 

10 REM WENN SIE EINE 3K SPEICHERERWEITERUN 

B BESITZEN, KOENNEN SIE TACCO MIT <178> 

20 REM DIESEM PROGRAMM EINTIPPEN. DAS PROB 

RAMM GIBT AUCH DIE PRUEFSUMME AUS. DIE <124> 
30 REM JEWEILS LETZTE ZEILE KANN WIEDERHOL 

T EINGEGEBEN WERDEN. <249> 

35 REM DIE REMARKZEILEN BITTE NICHT ABSCHR 

EIBEN! <068> 

40 REM TACCO WIRD MIT SVS5B72 GESTARTET. V 

OR DEM ERSTEN START MUSS ES JEDOCH <096> 

50 REM ABBESPEICHERT SEIN. DIES GESCHIEHT 

WIEFOLGTs <153> 

60 REM SVS 64B02 

t SYSTEMRESET 3 <068> 

70 REM P0KE43,1sP0KE44,16s POKE4096.0 

[ BASICBEGINN INITIALISIEREN 3 <169> 

75 REM NEW <057> 

76 REM 1 SYS5B72 

C DIESE ZEILE EINGEBEN 1 <192> 

80 REM P0KE45,0:P0KE46,30 

t BASIC ENDE 3 <102> 

90 REM POKES1,20:P0KE52,30 

C FILENAME AUF BILDSCHIRM 3 <20B> 

91 REM BILDSCHIRM LOESCHEN UND MIT CURSOR 

IN DIE DRITTE ZEILE <212> 

92 REM SAVE"TACCO" <169> 

93 REM <155> 

94 REM <156> 

95 REM <157> 

99 PRINT"<CLR}":POKE 51,200:POKE 52,15 <015> 

100 AD=4112 <082> 

110 SU=0:FOR J=0 TO 19 <178> 

111 n =AD:GOSUB 400:PRINT H*;sINPUT H* <249> 

120 it- LEN(H*><>2 THEN 111 <140> 

121 D=0:FOR 1=0 TO 1 <154> 

122 TS=MIDS(HS,2—1,1) <056> 

123 IF T*<"0"OR T*>"9"AND T*<"A"OR T*>"F"T 

HEN 111 <051> 

124 IF T*>"9"THEN D=D+(ASC(T*>-55)*16TI: BO 

TO 126 <1B9> 

125 D=D+(ASCIT*(-48)*16TI <155> 

126 NEXT <136> 

130 POKE AD,D:SU=SU+D:AD=AD+1:NEXT J <207> 

140 D=SU:GOSUB 400:PRINT"CHECKSUMME!(RVSON 

>"H*"{RVOFF,SPACE >OK?“ <042> 

150 BET F*sIF F*="“THEN 150 <003> 

160 IF F*="J"THEN 110 <B06> 

170 IF F*="N“THEN AD-AD-20:GOTO 110 <045> 

180 GOTO 150 <1B8> 

400 H*=.FOR 1=3 TO 0 STEP-1 <030> 

410 S=INT(D/16TI)sD=D—S*16tl <030> 

420 IF S>9 THEN H*=H*+CHR#(S+55)sGOTO 440 <057> 

430 H*=H*+CHR*(S+48) <209> 

440 NEXT IiRETURN <130> 


© 64 '«- 

Llsting 1. Eingabeprogramm zu »Tacco« 


Machen Sie des öfteren längere Pausen, in denen Sie sich 
mit anderen Dingen beschäftigen. Am besten ist es, an die fri¬ 
sche Luft zu gehen und Sauerstoff zu tanken, bevor Sie den 
Endspurt starten. 

Suchen Sie sich möglichst einen ruhigen Raum, in dem Sie 
wenig gestört werden. Jede Störung vermindert Ihre Konzen¬ 
tration erheblich. 

Vergessen Sie keinesfalls vor dem ersten Test das Pro¬ 
gramm zu speichern. Bei einem Programmabsturz könnte 
Ihnen sonst der gesamte Speicherinhalt verlorengehen und 
die Arbeit wäre umsonst gewesen. 

Wollen Sie sich den Aufwand des Eintippens ersparen, 
wäre es natürlich auch möglich, sich über unseren Programm¬ 
service eine Programm-Diskette oder -Kassette zum VC20 
anzufordern. 

(Richard Weisang/Frank Ammann/do) 
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VC 20 


1010: 

D8 

A0 

00 

84 

45 

A9 

80 

8D 

67 

03 

85 

FC 

A9 

01 

85 

FE 

20 

C4 

1A 

A9 

; 09B6 

1024: 

FF 

8D 

05 

90 

20 

5F 

E5 

A9 

08 

85 

01 

8D 

0F 

90 

A9 

IE 

85 

02 

A9 

07 

; 07E6 

1038: 

A0 

FF 

99 

00 

96 

88 

D0 

FA 

A0 

FF 

99 

FF 

96 

88 

D0 

FA 

A2 

00 

BD 

5B 

; 0CF9 

104C: 

1A 

C9 

EA 

D0 

12 

EB 

18 

A5 

01 

7D 

5B 

1A 

85 

01 

A5 

02 

69 

00 

85 

02 

; 0764 

1060: 

4C 

72 

10 

91 

01 

18 

A5 

01 

69 

01 

85 

01 

A5 

02 

69 

00 

85 

02 

E8 

E0 

; 066D 

1074: 

59 

D0 

D3 

A2 

30 

A0 

30 

A9 

00 

85 

08 

20 

B3 

1A 

A5 

CB 

C9 

27 

D0 

07 

; 08F8 

1088: 

E8 

E0 

3A 

D0 

02 

A2 

30 

C9 

2F 

D0 

07 

C8 

C0 

38 

D0 

02 

A0 

30 

8E 

D5 

; 0A3A 

109C: 

IE 

SC 

01 

1F 

48 

A9 

AA 

8D 

50 

03 

68 

20 

44 

1A 

C9 

37 

F0 

26 

AD 

49 

; 0737 

10B0: 

03 

C9 

07 

D0 

08 

A9 

02 

8D 

49 

03 

4C 

C2 

10 

A9 

07 

8D 

49 

03 

86 

FB 

; 0757 

10C4: 

A2 

FF 

9D 

00 

96 

9D 

FF 

96 

CA 

D0 

F7 

A6 

FB 

4C 

7B 

10 

8C 

48 

03 

EA 

; 0BD0 

10D8: 

A0 

00 

20 

50 

17 

A2 

15 

BD 

2D 

1A 

9D 

00 

IE 

CA 

10 

F7 

A2 

15 

BD 

17 

; 06F9 

10EC: 

1A 

9D 

16 

IE 

CA 

10 

F7 

A9 

2C 

85 

01 

A9 

IE 

85 

02 

A9 

IE 

A2 

14 

A0 

; 0782 

1100: 

15 

91 

01 

88 

88 

88 

10 

F9 

18 

A5 

01 

69 

16 

85 

01 

A5 

02 

69 

00 

85 

; 06A0 

1114: 

02 

A9 

IE 

CA 

D0 

E5 

A2 

58 

86 

01 

A2 

IE 

86 

02 

A2 

07 

A0 

15 

B9 

01 

; 0829 

1128: 

1A 

91 

01 

88 

10 

F8 

18 

A5 

01 

69 

42 

85 

01 

A5 

02 

69 

00 

85 

02 

CA 

; 068C 

113C: 

D0 

E6 

A2 

15 

BD 

EB 

19 

9D 

E4 

1F 

CA 

10 

F7 

A9 

02 

A2 

04 

9D 

08 

96 

; 0A2B 

1150: 

CA 

10 

FA 

A2 

03 

9D 

ED 

97 

CA 

10 

FA 

A2 

05 

A9 

05 

9D 

10 

96 

CA 

10 

; 09E0 

1164: 

FA 

A2 

03 

A9 

04 

9D 

00 

96 

CA 

10 

FA 

20 

62 

19 

20 

C2 

17 

A0 

00 

38 

; 07BF 

1178: 

AD 

48 

03 

E9 

2F 

AA 

A9 

26 

99 

2C 

IE 

A9 

06 

99 

2C 

96 

C8 

C8 

CB 

98 

; 0966 

118C: 

48 

8A 

48 

A2 

80 

A0 

FF 

8E 

0B 

90 

8E 

0A 

90 

88 

D0 

F7 

E8 

D0 

F2 

68 

; 0B8D 

11A0: 

AA 

68 

A8 

CA 

D0 

D8 

8E 

0B 

90 

8E 

0A 

90 

A9 

18 

BD 

EE 

1F 

A9 

04 

8D 

; 0A12 

11B4: 

EE 

97 

EA 

A9 

44 

8D 

70 

03 

A2 

23 

A9 

IE 

9D 

81 

03 

9D 

83 

03 

AD 

70 

; 0949 

11C8: 

03 

38 

E9 

03 

8D 

70 

03 

9D 

80 

03 

A9 

16 

9D 

82 

03 

CA 

CA 

CA 

CA 

CA 

; 091A 

11DC: 

10 

E0 

AD 

67 

03 

A2 

00 

AD 

48 

03 

38 

E9 

2F 

A8 

88 

ES 

E8 

E8 

E8 

E8 

; 0AA9 

11F0: 

88 

D0 

F8 

20 

50 

18 

EA 

BD 

80 

03 

85 

2D 

BD 

81 

03 

85 

2E 

BD 

83 

03 

; 08EB 

1204: 

A0 

00 

91 

2D 

A5 

2E 

18 

69 

78 

85 

2E 

BD 

84 

03 

91 

2D 

A5 

2E 

38 

E9 

; 07D3 

1218: 

78 

85 

2E 

20 

00 

19 

Bl 

2D 

9D 

83 

03 

C9 

26 

D0 

14 

A8 

BD 

82 

03 

49 

; 076B 

122C: 

FF, 

18 

69 

01 

9D 

82 

03 

98 

4C 

F7 

11 

EA 

EA 

A0 

00 

C9 

1A 

F0 

0C 

C9 

; 09AB 

1240: 

18 

F0 

08 

C9 

11 

F0 

04 

C9 

16 

D0 

03 

40 

22 

15 

C9 

25 

D0 

16 

A8 

BD 

; 084C 

1254: 

82 

03 

C9 

16 

D0 

08 

A9 

FF 

9D 

82 

03 

4C S‘7 

12 

A9 

EA 

9D 

82 

03 

98 

; 0918 

1268: 

C9 

IC 

D0 

16 

A8 

BD 

82 

03 

C9 

01 

D0 

08 

A9 

16 

9D 

82 

03 

4C 

81 

12 

; 0817 

127C: 

A9 

FF 

9D 

82 

03 

98 

C9 

1B 

D0 

16 

A8 

BD 

82 

03 

C9 

16 

D0 

08 

A9 

01 

; 0977 

1290: 

9D 

82 

03 

4C 

9B 

12 

A9 

EA 

9D 

82 

03 

98 

C9 

ID 

D0 

16 

AB 

BD 

82 

03 

; 09IE 

12A4: 

C9 

FF 

D0 

08 

A9 

16 

9D 

82 

03 

4C 

B5 

12 

A9 

01 

9D 

82 

03 

98 

EA 

C9 

; 09AB 

12B8: 

00 

D0 

66 

AB 

BD 

82 

03 

C9 

01 

D0 

12 

AD 

14 

91 

10 

05 

A9 

EA 

4C 

CF 

; 08E1 

12CC: 

12 

A9 

16 

9D 

82 

03 

4C 

IE 

13 

BD 

82 

03 

C9 

FF 

D0 

12 

AD 

14 

91 

10 

; 07BE 

12E0: 

05 

A9 

EA 

4C 

E8 

12 

A9 

16 

9D 

82 

03 

4C 

ID 

13 

BD 

82 

03 

C9 

EA 

D0 

; 0900 

12F4: 

12 

AD 

14 

91 

10 

05 

A9 

FF 

4C 

01 

13 

A9 

01 

9D 

82 

03 

4C 

ID 

13 

BD 

; 0686 

1308: 

82 

03 

C9 

16 

D0 

0F 

AD 

14 

91 

10 

05 

A9 

FF 

4C 

1A 

13 

A9 

01 

9D 

82 

; 0794 

131C: 

03 

98 

EA 

EA 

EA 

C9 

0A 

D0 

20 

A8 

BD 

82 

03 

C9 

FF 

D0 

12 

AD 

14 

91 

; 0B02 

1330: 

10 

05 

A9 

EA 

4C 

39 

13 

A9 

16 

9D 

82 

03 

4C 

44 

13 

A9 

01 

9D 

82 

03 

; 0690 

1344: 

98 

C9 

0B 

D0 

20 

A8 

BD 

82 

03 

C9 

EA 

D0 

12 

AD 

14 

91 

10 

05 

A9 

FF 

; 09EA 

1358: 

4C 

5D 

13 

A9 

01 

9D 

82 

03 

4C 

68 

13 

A9 

16 

9D 

82 

03 

98 

C9 

21 

D0 

; 0782 

136C: 

20 

AB 

BD 

82 

03 

C9 

16 

D0 

12 

AD 

14 

91 

10 

05 

A9 

FF 

4C 

81 

13 

A9 

; 0863 

1380: 

01 

9D 

82 

03 

4C 

8C 

13 

A9 

EA 

9D 

82 

03 

98 

C. 9 

2B 

D0 

20 

A8 

BD 

82 

; 0923 

1394: 

03 

C9 

01 

D0 

12 

AD 

14 

91 

10 

05 

A9 

EA 

4C 

A5 

13 

A9 

16 

9D 

82 

03 

; 078E 

13AB: 

4C 

B0 

13 

A9 

FF 

9D 

82 

03 

98 

EA 

EA 

EA 

A0 

00 

A9 

26 

91 

2D 

18 

A5 

; 0A19 

13BC: 

2E 

69 

78 

85 

2E 

A9 

03 

EA 

91 

2D 

38 

A5 

2E 

E9 

78 

85 

2E 

CA 

CA 

CA 

; 0993 

13D0: 

CA 

CA 

30 

03 

4C 

F7 

11 

20 

44 

1A 

EA 

A0 

00 

Bl 

01 

8D 

C0 

03 

8C 

AA 

; 085B 

13E4: 

03 

EA 

EA 

EA 

EA 

EA 

20 

8D 

19 

AD 

60 

03 

C9 

00 

D0 

08 

8D 

A9 

03 

A9 

; 09EE 

13F8: 

01 

BD 

AA 

03 

AD 

61 

03 

C9 

00 

D0 

08 

8D 

A9 

03 

A9 

16 

8D 

AA 

03 

AD 

; 07CC 

140C: 

62 

03 

C9 

00 

D0 

08 

A9 

FF 

8D 

A9 

03 

8D 

AA 

03 

AD 

63 

03 

C9 

00 

D0 

; 08CD 

1420: 

0A 

A9 

FF 

BD 

A9 

03 

A9 

EA 

8D 

AA 

03 

AD 

AA 

03 

C9 

00 

D0 

03 

4C 

49 

; 0943 

1434: 

ID 

AD 

AB 

03 

91 

01 

AD 

AC 

03 

91 

33 

A5 

01 

18 

6D 

AA 

03 

85 

01 

A5 

; 072D 

1448: 

02 

6D 

A9 

03 

85 

02 

A5 

33 

18 

6D 

AA 

03 

85 

33 

A5 

34 

6D 

A9 

03 

85 

; 06DB 

145C: 

34 

Bl 

01 

C9 

26 

D0 

03 

4C 

66 

14 

A2 

0B 

BD 

D3 

18 

Dl 

01 

D0 

03 

4C 

; 07B4 

1470: 

9F 

14 

CA 

10 

F3 

A5 

01 

38 

ED 

AA 

03 

85 

01 

A5 

02 

ED 

A9 

03 

85 

02 

; 0845 

14B4: 

A5 

33 

38 

ED 

AA 

03 

85 

33 

A5 

34 

ED 

A9 

03 

85 

34 

AD 

C0 

03 

91 

01 

; 088F 

1498: 

A9 

04 

91 

33 

4C 

49 

ID 

4C 

00 

17 

EA 

AD 

AC 

03 

8D 

BA 

03 

EA 

EA 

EA 

; 08D4 

14AC: 

EA 

EA 

EA 

EA 

Bl 

33 

29 

0F 

8D 

AC 

03 

Bl 

01 

8D 

AB 

03 

AD 

AA 

03 

C9 

; 0A10 
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VC 20 


SPIELE 


14C0: 

01 

D0 

02 

A2 

18 

C9 

FF 

D0 

02 

A2 

16 

C9 

16 

D0 

02 

A2 

11 

C9 

EA 

D0 

;09C6 

14D4: 

02 

A2 

1A 

8A 

91 

01 

A9 

04 

91 

33 

EA 

EA 

4C 

IC 

16 

AD 

BA 

03 

29 

0F 

; 073F 

14E8: 

C9 

02 

D0 

30 

AD 

AC 

03 

29 

0F 

C9 

07 

D0 

27 

A5 

08 

C9 

12 

D0 

03 

4C 

; 07CD 

14FC: 

IC 

15 

A6 

08 

A5 

33 

9D 

C4 

03 

A5 

34 

9D 

C5 

03 

E6 

08 

E6 

08 

A5 

08 

; 07E2 

1510: 

C9 

44 

F0 

08 

A9 

02 

8D 

AC 

03 

4C 

49 

ID 

20 

B3 

16 

4C 

49 

ID 

20 

B3 

5 070C 

1524: 

16 

38 

AD 

48 

03 

E9 

30 

A2 

00 

AB 

E8 

E8 

E8 

E8 

ES 

88 

D0 

F8 

A0 

00 

; 0B21 

1538: 

BD 

80 

03 

85 

2F 

BD 

81 

03 

18 

69 

78 

85 

30 

BD 

84 

03 

A0 

00 

91 

2F 

; 0787 

154C: 

CA 

CA 

CA 

CA 

CA 

10 

E5 

A5 

FE 

F0 

35 

A9 

10 

A2 

F0 

8E 

0F 

90 

8E 

0C 

; 0BC1 

1560: 

90 

A0 

FF 

88 

D0 

FD 

CA 

30 

F2 

38 

E9 

01 

D0 

EB 

A9 

08 

BD 

0F 

90 

A2 

;0BCC 

1574: 

03 

BD 

00 

IE 

C9 

1A 

F0 

06 

CA 

10 

F6 

4C 

BE 

15 

A9 

20 

9D 

00 

IE 

A9 

; 07D3 

1588: 

FF 

4C 

AA 

15 

A9 

CB 

A0 

F0 

A2 

50 

8C 

0A 

90 

CA 

8E 

0B 

90 

30 

FA 

88 

; 0AC8 

159C: 

30 

F2 

A0 

05 

48 

20 

B0 

18 

68 

38 

E9 

01 

D0 

E4 

A5 

02 

18 

69 

78 

85 

; 085A 

15B0: 

02 

AD 

AC 

03 

A0 

00 

91 

01 

20 

62 

19 

4C 

E8 

10 

A2 

09 

BD 

DE 

18 

9D 

; 076A 

1504: 

0E 

1F 

A9 

01 

9D 

0E 

97 

CA 

10 

F2 

AE 

0E 

90 

20 

44 

1A 

20 

44 

1A 

8E 

; 06BB 

15D8: 

0E 

90 

CA 

10 

F4 

A2 

00 

BD 

10 

IE 

DD 

F3 

03 

30 

05 

F0 

05 

4C 

D7 

17 

; 0830 

15EC: 

D0 

05 

EB 

E0 

06 

D0 

EC 

4C 

E2 

17 

A2 

05 

A9 

00 

9D 

F3 

03 

CA 

10 

FA 

; 0A5B 

1600: 

60 

00 

00 

00 

00 

00 

AD 

AC 

03 

CD 

BA 

03 

D0 

09 

A9 

00 

85 

08 

A9 

06 

; 0604 

1614: 

8D 

F0 

03 

4C 

E3 

14 

EA 

EA 

A5 

0A 

C9 

00 

F0 

13 

AD 

AC 

03 

C9 

02 

D0 

; 0A09 

1628: 

0C 

A9 

02 

8D 

AC 

03 

A9 

02 

8D 

BA 

03 

EA 

EA 

A9 

07 

85 

09 

EA 

A5 

08 

; 0891 

163C: 

C9 

02 

D0 

04 

4C 

6B 

16 

00 

AD 

AA 

03 

49 

FF 

AA 

EB 

8A 

CD 

F0 

03 

D0 

; 09BA 

1650: 

0D 

A9 

AA 

8D 

F0 

03 

A9 

00 

EA 

EA 

EA 

4C 

IC 

15 

AD 

AA 

03 

C9 

00 

F0 

;.09D7 

1664: 

03 

8D 

F0 

03 

4C 

90 

1 6 

AD 

AA 

03 

49 

FF 

AA 

E8 

8A 

CD 

F0 

03 

D0 

18 

; 09DB 

1678: 

A9 

02 

8D 

BA 

03 

8D 

F0 

03 

A9 

02 

8D 

AC 

03 

A9 

02 

85 

08 

A9 

02 

85 

; 07C4 

168C: 

09 

4C 

IC 

15 

A5 

08 

C9 

00 

F0 

18 

AD 

AC 

03 

CD 

BA 

03 

D0 

10 

A0 

19 

; 0783 

16A0: 

E6 

0F 

A5 

0F 

C9 

31 

D0 

03 

4C 

61 

17 

20 

91 

18 

A0 

00 

4C 

06 

16 

A0 

; 06AB 

16B4: 

00 

A6 

08 

F0 

36 

CA 

CA 

BD 

C4 

03 

85 

3F 

85 

31 

BD 

C5 

03 

85 

40 

85 

; 0935 

16C8: 

32 

Bl 

3F 

29 

0F 

C9 

04 

F0 

04 

A9 

07 

91 

3F 

20 

0D 

18 

CA 

CA 

10 

DF 

; 0763 

16DC: 

A9 

00 

85 

08 

A5 

09 

BD 

AC 

03 

A9 

03 

85 

0A 

8C 

0A 

90 

8C 

0B 

90 

60 

; 0708 

16F0: 

A2 

10 

A9 

20 

9D 

FA 

1F 

CA 

10 FA 20 F6 15 

4C 

10 

10 

Bl 

01 

AE 

AA 

; 08A6 

1704: 

03 

E0 

01 

D0 

16 

C9 

1B 

F0 

0F 

C9 

ID 

F0 

0B 

C9 

IE 

F0 

07 

C9 

0A 

F0 

; 092F 

1718: 

03 

4C 

1F 

17 

4C 

75 

14 

E0 

FF 

D0 

16 

C9 

25 

F0 

0F 

C9 

IC 

F0 

0B 

C9 

; 08B5 

172C: 

IE 

F0 

07 

C9 

28 

F0 

03 

4C 

39 

17 

4C 

75 

14 

A5 

02 

C9 

20 

F0 

0A 

C9 

; 07BD 

1740: 

IE 

F0 

09 

A5 

01 

C9 

FB 

90 

03 

4C 

75 

14 

4C 

A2 

14 

00 

20 

5F 

E5 

A2 

; 07F1 

1754: 

FF 

A9 

07 

9D 

15 

96 

9D 

14 

97 

CA 

D0 

F5 

60 

A9 

25 

85 

0E 

A2 

FF 

A0 

; 0AD0 

1768: 

08 

84 

0D 

A0 

08 

98 

05 

0D 

EA 

8D 

0F 

90 

20 

B0 

17 

EA 

88 

C0 

08 

D0 

; 07F2 

177C: 

F0 

CA 

D0 

E7 

C6 

0E 

A5 

0E 

10 

dF 

AD 

48 

03 

C9 

37 

F0 

03 

EE 

48 

03 

; 0A0B 

1790: 

A0 

00 

A9 

2C 

85 

01 

A9 

IE 

85 

02 

20 

53 

17 

A9 

08 

8D 

0F 

90 

A9 

00 

; 0659 

17A4: 

85 

0F 

85 

08 

A9 

80 

85 

FC 

4C 

E8 

10 

EA 

A8 

8A 

09 

A0 

8D 

0A 

90 

09 

; 0904 

17B8: 

22 

8D 

0B 

90 

09 

33 

8D 

0C 

90 

60 

A2 

23 

A0 

15 

B9 

2C 

96 

9D 

84 

03 

; 0728 

17CC: 

88 

88 

88 

CA 

CA 

CA 

CA 

CA 

10 

F0 

60 

A2 

05 

BD 

10 

IE 

9D 

F3 

03 

CA 

; 0AD9 

17E0: 

10 

F7 

A2 

05 

BD 

F3 

03 

9D 

00 

IE 

CA 

10 

F7 

A2 

05 

A9 

04 

9D 

00 

96 

; 0874 

17F4: 

CA 

10 

FA 

A5 

CB 

C9 

40 

F0 

FA 

4C 

11 

10 

00 

00 

8E 

66 

03 

A2 

00 

Al 

; 08DE 

1808: 

AC 

AE 

66 

03 

60 

8A 

48 

98 

AA 

38 

A5 

32 

E9 

78 

85 

32 

BD 

80 

03 

C5 

; 0963 

181C: 

31 

D0 

0C 

BD 

81 

03 

C5 

32 

D0 

05 

A9 

07 

9D 

84 

03 

E8 

E8 

E8 

E8 

E8 

; 0A76 

1830: 

E0 

28 

D0 

E4 

6B 

AA 

09 

81 

8D 

0A 

90 

09 

AA 

8D 

0B 

90 

A0 

FF 

88 

D0 

; 0A51 

1844: 

FD 

A0 

FF 

88 

D0 

FD 

A0 

00 

60 

00 

00 

00 

EA 

8A 

48 

98 

48 

A5 

45 

C9 

; 0A40 

1858: 

00 

F0 

24 

A2 

09 

A0 

0D 

20 

85 

18 

EA 

98 

09 

DD 

8D 

0A 

90 

88 

D0 

F3 

; 0903 

186C: 

8A 

09 

F0 

8D 

0B 

90 

CA 

D0 

EB 

A9 

00 

8D 

0A 

90 

8D 

0B 

90 

C6 

45 

68 

; 0998 

1880: 

A8 

68 

AA 

60 

00 

98 

48 

A0 

22 

EA 

EA 

88 

D0 

FB 

68 

A8 

60 

A2 

06 

BD 

; 0AB8 

1894: 

31 

1B 

85 

AC 

BD 

32 

1B 

85 

AD 

20 

02 

18 

EA 

29 

0F 

C9 

02 

D0 

09 

CA 

; 0783 

IBAS: 

CA 

10 

EB 

A9 

00 

B5 

FE 

EA 

A9 

02 

B5 

45 

18 

A2 

05 

88 

10 

01 

60 

BD 

;08C2 

18BC: 

10 

IE 

C9 

39 

F0 

08 

69 

01 

9D 

10 

IE 

4C 

B5 

18 

A9 

30 

9D 

10 

IE 

CA 

; 06E4 

18D0: 

4C 

BB 

18 

25 

IC 

1B 

ID 

1F 

IE 

00 

0A 

0B 

21 

28 

07 

01 

0D 

05 

20 

20 

; 028D 

18E4: 

0F 

15 

05 

12 

A9 

90 

8D 

50 

03 

A5 

FB 

38 

E9 

2F 

AA 

38 

AD 

50 

03 

E9 

; 080F 

18F8: 

09 

8D 

50 

03 

CA 

10 

F4 

60 

A9 

00 

8D 

72 

03 

BD 

82 

03 

C9 

FF 

F0 

04 

; 08C0 

190C: 

C9 

EA 

D0 

05 

A9 

FF 

8D 

72 

03 

18 

A5 

2D 

7D 

82 

03 

85 

2D 

A5 

2E 

6D 

; 0910 

1920: 

72 

03 

85 

2E 

A9 

00 

BD 

72 

03 

BD 

82 

03 

C9 

FF 

F0 

04 

C9 

EA 

D0 

05 

; 0959 

1934: 

A9 

FF 

8D 

72 

03 

18 

BD 

80 

03 

7D 

82 

03 

9D 

80 

03 

BD 

81 

03 

6D 

72 

; 0844 

1948: 

03 

9D 

81 

03 

A0 

00 

A5 

2E 

18 

69 

7B 

85 

2E 

Bl 

2D 

9D 

84 

03 

A5 

2E 

; 0718 

195C: 

38 

E9 

78 

85 

2E 

60 

A9 

1F 

85 

02 

A9 

EE 

85 

01 

A9 

97 

85 

34 

A9 

EE 

; 09A8 
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VC 20 


1970: 

85 

33 

20 

E8 

18 

A9 

02 

8D 

AC 

03 

A9 

1F 

8D 

AB 

03 

60 

A5 

FE 

F0 

05 

; 08BA 

19B4: 

A9 

08 

BD 

0F 

90 

4C 

El 

11 

00 

A9 

7F 

8D 

22 

91 

AD 

20 

91 

29 

80 

8D 

; 0817 

1998: 

60 

03 

A9 

FF 

8D 

22 

91 

AD 

11 

91 

29 

08 

8D 

61 

03 

AD 

11 

91 

29 

10 

; 0744 

19AC: 

8D 

62 

03 

AD 

11 

91 

29 

04 

8D 

63 

03 

A6 

CB 

E0 

0D 

D0 

08 

AD 

63 

03 

; 07AA 

19C0: 

29 

00 

8D 

63 

03 

E0 

15 

D0 

08 

AD 

62 

03 

29 

00 

8D 

62 

03 

E0 

25 

D0 

; 06EB 

19D4: 

08 

AD 

61 

03 

29 

00 

8D 

61 

03 

E0 

16 

D0 

08 

AD 

60 

03 

29 

00 

8D 

60 

; 0627 

19E8: 

03 

60 

00 

1B 

1F 

1F 

21 

1F 

1F 

21 

1F 

1F 

21 

1F 

1F 

21 

1F 

1F 

21 

1F 

; 0278 

19FC: 

1F 

21 

1F 

1F 

25 

0A 

1F 

1F 

00 

1F 

1F 

00 

1F 

1F 

00 

1F 

1F 

00 

1F 

1F 

; 01E3 

1A10: 

00 

1F 

1F 

00 

1F 

1F 

28 

ID 

1F 

1F 

0B 

1F 

1F 

0B 

1F 

1F 

0B 

1F 

1F 

0B 

; 01E5 

1A24: 

1F 

1F 

0B 

1F 

1F 

0B 

1F 

1F 

IC 

1A 

1A 

1A 

20 

20 

20 

20 

20 

14 

01 

03 

I01F2 

1A3B: 

03 

0F 

20 

20 

20 

30 

30 

30 

30 

30 

30 

30 

48 

BA 

48 

9B 

48 

AE 

50 

03 

; 04BD 

1A4C: 

A0 

EE 

88 

D0 

FD 

CA 

D0 

F8 

68 

A8 

68 

AA 

68 

60 

00 

14 

01 

03 

03 

0F 

; 0989 

1A60: 

EA 

24 

23 

03 

24 

20 

31 

39 

38 

33 

20 

02 

19 

EA 

ID 

06 

27 

01 

0D 

0D 

; 03D7 

1A74: 

01 

0E 

0E 

20 

22 

20 

12 

27 

17 

05 

09 

13 

01 

0E 

07 

EA 

5D 

06 

31 

20 

; 02A4 

1A8B: 

20 

13 

10 

05 

05 

04 

20 

20 

20 

EA 

20 

06 

33 

20 

20 

0C 

05 

15 

05 

0C 

; 026B 

1A9C: 

20 

20 

20 

EA 

77 

10 

12 

05 

13 

13 

20 

06 

35 

20 

14 

0F 

20 

13 

14 

01 

; 02F4 

1AB0: 

12 

14 

EA 

BA 

48 

A6 

07 

E0 

0C 

F0 

04 

EB 

BE 

0E 

90 

86 

07 

68 

AA 

60 

; 0882 

1.AC4: 

A9 

00 

85 

0F 

A2 

00 

BE 

46 

03 

8E 

41 

03 

8E 

45 

03 

A9 

E0 

BD 

14 

03 

; 068B 

1AD8: 

A9 

1A 

8D 

15 

03 

86 

07 

60 

A9 

F9 

8D 

1B 

03 

A9 

1B 

8D 

19 

03 

EA 

EA 

; 07E0 

1 AEG: 

EA 

EA 

EA 

EA 

EA 

EA 

AE 

46 

03 

EE 

41 

03 

AD 

41 

03 

DD 

47 

1B 

30 

22 

; 0A27 

1B00: 

A9 

FD 

8D 

0D 

90 

EE 

45 

03 

AC 

45 

03 

C0 

03 

D0 

IE 

A9 

00 

BD 

41 

03 

; 0825 

1B14: 

8D 

45 

03 

E8 

E8 

E0 

B0 

D0 

02 

A2 

00 

8E 

46 

03 

BD 

46 

1B 

8D 

0C 

90 

; 08C7 

1B28: 

A9 

00 

8D 

0D 

90 

4C 

BF 

EA 

60 

16 

96 

E4 

97 

F9 

97 

2B 

96 

EA 

EA 

EA 

0B5E 

1B3C: 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

BF 

EA 

00 

D7 

12 

D2 

0C 

C3 

06 

C3 

12 

C3 

0C 

; 0C43 

1B50: 

C3 

06 

C3 

12 

C3 

0C 

D7 

06 

D2 

0C 

C3 

06 

D2 

0C 

D9 

06 

El 

12 

DD 

0C 

; 0BBA 

1B64: 

D2 

06 

D2 

12 

D2 

0C 

D2 

06 

D2 

12 

D2 

12 

D2 

12 

D2 

12 

El 

12 

DD 

0C 

; 08DE 

1B78: 

D2 

06 

D2 

12 

D2 

12 

D2 

12 

D2 

12 

D7 

0C 

D9 

06 

DD 

0C 

D9 

06 

El 

12 

; 08E5 

1B8C: 

El 

12 

El 

12 

El 

12 

El 

12 

El 

12 

El 

12 

El 

12 

D7 

12 

D2 

0C 

C3 

06 

; 0935 

1BA0: 

C3 

12 

C3 

0C 

C3 

06 

C3 

12 

C3 

0C 


D2 

0C 

C3 

06 

D2 

0C 

D9 

06 

; 0852 

1BB4: 

E3 

12 

E3 

12 

D9 

12 

D9 

0C 

D9 

06 

D2 

12 

C7 

12 

C7 

12 

El 

0C 

; 0900 

1BC-8: 

DD 

06 

DD 

0C 

D2 

06 

El 

0C 

DD 

06 

DD 

0C 

D2 

06 

El 

0C 

DD 

06 

DD 

0C 

; 08EE 

1BDC: 

CD 

06 

El 

0C 

DD 

06 

DD 

0C 

CD 

06 

D9 

12 

D9 

12 

D9 

12 

D9 

12 

D7 

12 

; 08F4 

1BF0: 

D7 

12 

D7 

12 

D7 

12 

01 

06 

00 

58 

A2 

00 

9A 

4C 

11 

10 

24 

24 

E7 

00 

; 05F2 

1C04: 

00 

E7 

24 

24 

30 

78 

CC 

C6 

FE 

FE 

C6 

C6 

FC 

FE 

C2 

FE 

FE 

C2 

FE 

FC 

; 0E65 

1C18: 

3E 

7E 

E0 

C0 

C0 

C0 

7E 

3E 

FC 

FE 

C6 

C6 

C6 

C6 

FE 

FC 

FE 

FE 

C0 

F0 

; 0F50 

1C2C: 

F0 

C0 

FE 

FE 

FE 

FE 

C0 

F0 

F0 

C0 

C0 

C0 

7C 

FE 

C6 

C0 

DE 

C6 

FE 

7C 

; 10A6 

1C40: 

C6 

C 6 

C6 

FE 

FE 

C6 

C6 

C6 

3C 

3C 

18 

18 

18 

18 

3C 

3C 

24 

24 

27 

20 

; 087F 

1C54: 

20 

27 

24 

24 

00 

00 

FF 

00 

00 

E7 

24 

24 

C0 

C0 

C0 

C0 

C0 

C0 

FE 

FE 

; 0939 

1C68: 

C6 

EE 

FE 

D6 

C6 

C6 

C6 

C6 

C6 

E6 

F6 

F6 

DE 

DE 

CE 

C6 

7C 

FE 

C6 

C6 

; 108E 

1C7C: 

C6 

C6 

FE 

7C 

FC 

FE 

C6 

FE 

FC 

C0 

C0 

C0 

C3 

FF 

7E 

7E 

3C 

3C 

18 

18 

; 0D66 

1C90: 

FC 

FE 

C6 

FE 

FC 

F0 

D8 

CC 

7C 

FE 

C6 

70 

IC 

C6 

FE 

7C 

7E 

7E 

18 

18 

; 0D86 

1CA4: 

18 

18 

18 

18 

C6 

C6 

C6 

C6 

6C 

6C 

38 

38 

03 

0F 

3E 

FE 

FE 

3E 

0F 

03 

; 075C 

3 CB8: 

C6 

C6 

C6 

C6 

D6 

FE 

EE 

C6 

C0 

F0 

7C 

7F 

7F 

7C 

F0 

C0 

66 

66 

66 

66 

; 0D8E 

1CCC: 

3C 

18 

18 

18 

18 

18 

3C 

3C 

7E 

7E 

FF 

C3 

24 

24 

27 

20 

20 

3F 

00 

00 

; 04D8 

1CE0: 

00 

00 

FC 

04 

04 

E4 

24 

24 

00 

00 

3F 

20 

20 

27 

24 

24 

24 

24 

24 

24 

; 03AE 

1CF4: 

24 

24 

24 

24 

00 

00 

FF 

00 

00 

FF 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

; 028E 

1 D0B: 

24 

24 

E7 

00 

00 

FF 

00 

00 

7C 

6C 

78 

30 

6E 

C6 

7C 

3A 

06 

0C 

18 

18 

05EA 

1D1CS 

18 

18 

0C 

06 

60 

30 

18 

18 

18 

18 

30 

60 

24 

24 

E4 

04 

04 

FC 

00 

00 

; 03F2 

1D30: 

3C 

42 

A5 

Bl 

C3 

BD 

42 

3C 

00 

00 

,00 

00 

00 

00 

18 

18 

24 

24 

E4 

04 

; 0502 

1D44: 

04 

E4 

24 

24 

EA 

A5 

FE 

D0 

29 

A5 

FC 

C9 

FF 

F0 

1F 

A5 

4D 

C9 

01 

D0 

; 0BBA 

1D58: 

0A 

A9 

0A 

E6 

4D 

8D 

0F 

90 

4C 

6C 

ID 

A9 

01 

85 

4D 

A9 

0C 

BD 

0F 

90 

; 074E 

1D6C: 

C6 

FC 

A5 

FC 

D0 

06 

A9 

FF 

85 

FC 

85 

FE 

4C 

D0 

ID 

EA 

EA 

EA 

EA 

EA 

; 0EB0 

1D80: 

7C 

FE 

C6 

CE 

D6 

E6 

FE 

7C 

0C 

IC 

3C 

3C 

2C 

0C 

IE 

IE 

3C 

7E 

C6 

IC 

; 08F4 

1D94: 

38 

60 

FE 

FE 

3C 

FE 

C6 

IC 

IC 

C6 

FE 

7C 

C0 

C0 

D8 

D8 

FE 

FE 

18 

18 

; 0C68 

1DA8: 

FE 

FE 

C0 

FC 

FE 

06 

FE 

7C 

IE 

3E 

60 

FC 

FE 

C6 

FE 

7C 

FE 

FE 

06 

06 

; 0D34 

1DBC: 

3C 

3C 

30 

60 

7C 

FE 

C6 

7C 

7C 

C6 

FE 

7C 

7C 

FE 

C6 

FE 

7E 

06 

0C 

18 

; 0A66 

1DD0: 

AD 

67 

03 

C9 

AA 

F0 

26 

AD 

10 

IE 

C9 

30 

D0 

1F 

AD 

11 

IE 

C9 

31 

D0 

; 0909 

1DE4: 

18 

A2 

FF 

E8 

BD 

00 

IE 

C9 

20 

D0 

F8 

A9 

1A 

9D 

00 

IE 

A9 

AA 

8D 

67 

; 09F2 

1DF8: 

03 

A9 

03 

85 

45 

4C 

B0 

19 

B2 

00 

FF 

00 

FF 

00 

FF 

00 

FF 

00 

FF 

00 

; 0B0B 

1E0G: 

FF 

00 

FF 

00 

FF 

00 

FF 

00 

FF 

00 

FF 

00 

FF 

00 

FF 

00 

FF 

00 

FF 

00 

; 09F6 

Listlng 2. Maschinencode-Programm »Tacco« 

(Schluß) 
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GRUNDLAGEN 


CI 6/VC 20 


C64- 

Programme für 
Clo und VC20 

In vielen Zeitschriften und Büchern findet man 
Programme für den C 64, während es um Software 
für C16 und VC 20 schon schlechter bestellt ist. 
Hier sind einige Tips, wie man C64-Programme 
für den eigenen Computer umschreiben kann. 

L eider wird man nur sehr selten Programme für den C 64 
finden, die ohne Änderungen auf dem VC 20 oder C16 
laufen. Zwar sind Betriebssystem und Basic des VC 20 
und des C 64 praktisch identisch, aber selbst hier stimmen 
die sonstigen Hardware-Eigenschaften überhaupt nicht 
überein. Noch schlimmer wird es beim C16, bei dem es ver¬ 
schiedene Speicher-Bänke gibt für den dem Anwender zur 
Verfügung stehenden Speicher sowie für Betriebssystem 
und Basic. Diese Speicherbänke werden durch ein recht 
kompliziertes Bank-Switching-Verfahren, ähnlich wie beim 
CI28, verwaltet. 

Immer dann, wenn zum Beispiel die grafischen oder musi¬ 
kalischen Fähigkeiten des C64 angesprochen werden, 
geschieht dies durch POKE-Befehle, mit denen Video- und 
Sound-Chip direkt gesteuert werden. Aufgrund der unter¬ 
schiedlichen Hardware von C 64, VC 20 und C16, die zudem 
auch noch völlig unterschiedliche Adreßbereiche belegt, ist 
ein C64-Programm, das irgendwelche POKE-Befehle ent¬ 
hält, in der Regel weder auf dem VC 20 noch auf dem C16 
lauffähig. Tabelle 1 gibt einen ersten Überblick über wichtige 
Speicheradressen bei allen drei Computern. 

Wir wollen uns im folgenden damit beschäftigen, inwiefern 
man dennoch C64-Programme auf den VC 20 und den C16 
übertragen kann. Dabei beschränken wir uns auf Basic- 
Programme, denn das Übertragen von Maschinencode- 
Programmen ist noch um einiges schwieriger und erfordert 
gute Kenntnisse und Erfahrung in Maschinensprache. 

Generell kann man sagen, daß alle C 64-Programme, die 
die fünf Befehle POKE, PEEK, SYS, USR und WAIT nicht ent¬ 
halten, ohne jegliche Änderung sowohl auf dem VC 20 als 
auch auf dem C16 lauffähig sind - sofern sie natürlich nicht 
die Kapazität des bei beiden Computern in der Grundversion 
doch arg beschränkten Speichers überschreiten. 

Beim VC 20 tritt noch das spezielle Problem des anderen 
Bildschirmformats auf. Während C 64 und C16 auf dem Bild¬ 
schirm 25 Zeilen zu je 40 Zeichen darstellen, sind es beim 
VC 20 nur 23 Zeilen zu je 22 Zeichen. Dadurch gerät bei ein¬ 
facher Übernahme der C64-Vorlage beim VC 20 das ganze 
Bildschirm-Layout aus den Fugen. Eine Anpassung der 
PRINT-Anweisungen im Programm an die veränderten Ver¬ 
hältnisse ist also in fast allen Fällen erforderlich, dürfte aber 
in der Regel auch kein großes Problem sein. Bei der Anpas¬ 
sung von C 64-Programmen an den VC 20 wird man des öfte¬ 
ren zusätzliche Print-Befehle einfügen, da eine Bildschirm¬ 
zeile beim VC 20 nur etwa halb soviel Zeichen aufnehmen 
kann, wie das beim C64 der Fall ist. 

Ernste Schwierigkeiten kann es möglicherweise bei der 
Darstellung von Tabellen geben. Eine sechsspaltige Zahlen¬ 


tabelle zum Beispiel läßt sich beim C64 und C16 ganz gut 
darstellen, beim VC 20 wird man bei derartigen Versuchen 
unangenehm an die arg begrenzte Zeilenbreite erinnert. In 
solchen Fällen kann man versuchen, weniger interessante 
Spalten der Tabelle einfach wegzulassen oder die Tabelle in 
zwei Teilen auszugeben. Wenn das nicht erwünscht ist, hilft 
nur noch der CMD-Befehl, um die Ausgabe der entsprechen¬ 
den Tabelle auf den Drucker umzuleiten. 

Was nicht geht 


Leider gibt es viele Programme für den C64, die man nicht 
durch Änderung einiger POKE-Adressen und kleinerer Kor¬ 
rekturen am Bildschirmaufbau übernehmen kann. Dazu 
gehören beispielsweise die meisten Spiele, jedenfalls soweit 
es sich um Video-Spiele handelt. Der Grund hierfür sind die 
beim C64 vorhandenen acht Hardware-Sprites, die sich 
weder auf dem VC 20 noch auf dem C16 reproduzieren las¬ 
sen. Sprites sind kleine, bewegliche Grafikobjekte, die vom 
Video-Chip des C64 in den normalen Bildschirm eingeblen¬ 
det werden können. Sprites sind nicht zu verwechseln mit 
den beim C16 vorhandenen Shapes. Shapes sind einfach 
rechteckige Ausschnitte aus der hochauflösenden Grafik 
des C16, die mittels spezieller Basic-Befehle vom Bildschirm 
gelesen und auf ihn geschrieben werden können. Shapes 
werden also rein softwaremäßig erzeugt, während die Sprites 
des C 64 von der Hardware, nämlich vom Video-Chip, kontrol¬ 
liert werden. Der Programmierer muß, nachdem er die Form 
eines Sprites einmal festgelegt hat, nur noch die Sprite- 
Position in spezielle dafür bestimmte Register des Video- 
Chips POKEn, um Bewegungsabläufe zu erzeugen. In der 
Regel -»"Vden Sprites beim C 64 auch nicht im Grafik-Modus 
verwendet, sondern im normalen Textmodus, was bei den 
Shapes des C16 zum Beispiel auch nicht möglich ist. 

Ebenfalls nicht verwenden kann man Musik-Programme für 
den C 64. Im Gegensatz zu VC 20 und C16 verfügt der C 64 
über einen echten Synthesizer-Baustein, mit dem sich eine 
ungeheure Fülle von Klangeffekten realisieren läßt. Dies alles 
führt dazu, daß sich leider ein Großteil aller C 64-Programme, 
darunter die meisten Spiele, praktisch überhaupt nicht an den 
VC 20/C16 anpassen lassen - es sei denn, man würde diese 
Programme völlig neu entwickeln. Nach diesen eher etwas 
ernüchternden Feststellungen wollen wir uns jetzt den Pro¬ 
grammen zuwenden, die sich mit vertretbarem Aufwand 
umschreiben lassen. Das sind jene Basic-Programme, die 
keine Maschinensprache-Routinen enthalten und nur nor¬ 
male Textausgabe (allenfalls noch die Blockgrafik) verwen¬ 
den, also keine »Tips&Tricks-Routinen« 

Eine Grundregel 


Beim Umschreiben eines C 64-Programms auf den C16 oder 
VC 20 sollte man eine ganz grundlegende Regel beachten: 
Niemals einen der bereits genannten »gefährlichen« Befehle 
POKE, SYS oder USR beim Abtippen des Listings so ohne 
weiteres übernehmen, sondern diese Befehle grundsätzlich 
nur übernehmen (meist in sinnvoll abgeänderter Form), wenn 
man sich über ihre Wirkung im klaren ist. Diese drei Befehle 
sind als einzige imstande, Speicherinhalte ungewollt zu ver¬ 
ändern oder unkontrollierte Maschinensprache-Aufrufe zu 
bewirken. Hat man Bedenken, weil man sich nicht genau dar¬ 
über im klaren ist, ob einer dieser Befehle schädlich ist oder 
nicht, dann empfiehlt es sich, den Befehl in eine PRINT- 
Anweisung umzuwandeln. Damit ist gemeint, den Befehl ein¬ 
fach in Anführungszeichen zu setzen und eine PRINT- 
Anweisung davor zu schreiben. Beispiel: Aus der Zeile 
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10 FOR 1=49152 TO 49233 : READ X: POKE I,X : NEXT 

wird durch diese Methode die folgende Zeile 
10 FOR 1=49152 TO 49233 : READ X: PRINT "POKE" 

; I; X :NEXT 

Dadurch werden die POKE-Befehle innerhalb der FOR- 
NEXT-Schleife, die beim C64 durchaus sinnvoll sind, bei 
anderen Computern aber bestenfalls nutzlos, nicht ausge¬ 
führt, sondern nur am Bildschirm protokolliert. Bei einem Pro¬ 
belauf des Programms bekommt man so eher einen Ein¬ 
druck, was da eigentlich vor sich geht, und kann möglicher¬ 
weise entsprechende Schlüsse für die Anpassung einer sol¬ 
chen Routine an den eigenen Computer ziehen. 

Natürlich kann ein solches Programm nicht richtig laufen, 
aber es kann - und das ist die positive Seite - auf gar keinen 
Fall durch unkontrollierte POKE- oder SYS-Befehle »abstür- 
zen«. Weniger problematisch sind die Befehle PEEK und 
WAIT, da hierdurch nichts unkontrolliert verändert werden 
kann. Gleichwohl sind auch diese beiden Basic-Befehle nicht 
unproblematisch. In den seltensten Fällen können die beim 
C64 verwendeten Adressen für diese Befehle auch beim 
VC 20/C16 benutzt werden. Daher empfiehlt sich hier der 
Einbau einer zusätzlichen PRINT-Anweisung unmittelbar vor 
dem WAIT-Befehl (etwa in der Art »PRINT"Zeile 255, WAIT- 
BEFEHL !"«) oder unmittelbar nach PEEK. Zum Beispiel 
sollte man die Zeile 
10 IF PEEK(X) < >32 TUEN 10 

ändern in 

10 IF PEEK(X) <>32 THEN PRINT"X= ",X, "PEEK(X) =" 

,PEEK(X):GOTO 10 

Hierdurch hat man die Gewähr, beim Programmlauf ständig 
den Überblick zu behalten, was sich da gerade abspielt. 
Natürlich muß man sich nach dem Probelauf überlegen, wie 
man die POKE-Befehle (und andere) sinnvoll für seinen Com¬ 
puter abändert. Hierfür kann es naturgemäß kein Patentre¬ 
zept geben, einige häufig in C64-Programmen vorkom¬ 
mende POKE-Adressen sollen aber im folgenden Teil etwas 
ausführlicher besprochen werden. 


POKE-Befehle für Farbe und Bildschirm 


Selbst die einfachsten Programme enthalten in der Regel 
Befehle, um die Rahmen- und Hintergrundfarbe des Bild¬ 
schirms einzustellen. Während es beim C16 zu diesem 
Zweck den COLOR-Befehl gibt, arbeiten C 64 und VC 20 hier 
mit POKE-Befehlen. Beim VC 20 werden beide Einstellun¬ 
gen (Rahmenfarbe und Hintergrundfarbe) gleichzeitig mit 
einem einzigen POKE-Befehl in Register 36879 durchge¬ 
führt (Tabelle 2). Der C64 verwendet dafür zwei getrennte 
Register, nämlich 53280 für die Rahmenfarbe und 53281 für 
die Hintergrundfarbe. Beim C16 schließlich geht es etwas 
komfortabler zu. Tabelle 3 zeigt die Anwendung des COLOR- 
Befehls bei diesem Computer. Bei allen drei Geräten sind 
jeweils 16 Farben möglich (Tabelle 4). Zum Beispiel erzeugen 
die Befehle »POKE 53280,7:POKE 53281,5« beim C64 
einen gelben Bildschirmrahmen und einen grünen Hinter¬ 
grund. Mit »POKE 36879,95« erreicht man dasselbe beim 
VC 20, mit »COLOR 4, 8 : COLOR 0,6« beim C16. Die Farb- 
nummern sind beim C16 immer um Eins erhöht gegenüber 
den entsprechenden Nummern beim C64. 

Der Bildschirmspeicher des C64 belegt die Adressen 
1024 bis 2023 (1000 Zeichen), der zugehörige Farbspei- 
chergehtvon 55296 bis 56295. Mit »POKE 1024, 1: POKE 
55296,2« erscheint zum Beispiel beim C64 ein rotes »A« in 
der linken oberen Bildschirmecke. Beim C16 ist der Video- 
Speicher etwas höher angesiedelt. Er belegt die Adressen 
3072 bis 4071, das Farb-RAM liegt von Adresse 2048 bis 
3047. Der für den Anwender verfügbare Basic-Speicher- 



bereich beginnt beim C 64 bei Adresse 2048, beim C16 bei 
Adresse 4096. Tabelle 5 zeigt die Speicheraufteilung von 
C64, C16 und VC 20. 

Beim VC 20 liegen die Verhältnisse noch etwas komplizier¬ 
ter: Die Anfangsadressen von Bildschirm- und Farbspeicher 
sind nämlich je nach Speicherausbau unterschiedlich. In der 
Grundversion und mit der 3-KByte Erweiterung beginnt das 
Video-RAM bei Adresse 7680 und geht bis zur Adresse 
8185. Das Farb-RAM belegt dann den Bereich von 38400 
bis 38905. In dieser Konfiguration liegt der Bildschirmspei¬ 
cher oberhalb des für den Anwender verfügbaren RAM- 
Bereichs, der ab Adresse 4096 (Grundversion) beziehungs¬ 
weise 1024 (3-KByte-Erweiterung) beginnt. Sobald jedoch 
beim VC 20 eine Speichererweiterung von mindestens 
8 KByte eingesteckt ist, wandert das Video-RAM nach unten 
und beginnt dann bei Adresse 4096. Dies geschieht, um für 
Basic-Programme einen zusammenhängenden Speicherbe¬ 
reich von der Adresse 4608 an aufwärts zu schaffen. Eine 
eventuell vorhandene zusätzliche 3-KByte-Erweiterung 
kann in diesem Fall nicht für Basic-Programme genutzt wer¬ 
den. Natürlich verändert auch das Farb-RAM noch seine 
Lage und startet jetzt bei Adresse 37888. 


Die musikalische Seite 


Einige beim C64 ebenfalls häufig vorkommende PQKE- 
Adressen wurden bisher noch gar nicht erwähnt. Gemeint 
sind die zur Programmierung von Musik und Geräuscheffek¬ 
ten benutzten Register. Leider ist die Art der Tonerzeugung 
beim C64 auf der einen und VC 20/C16 auf der anderen 
Seite willig unterschiedlich, so daß sich keine äquivalenten 
Befehle angeben lassen. Wie bereits zu Anfang erwähnt, 
verfügt der C64 über einen vollwertigen, dreistimmigen 
Synthesizer-Baustein, während der C16 und VC 20 sich mit 
einfachen Tongeneratoren zufrieden geben müssen. Tabelle 6 
enthält zur Referenz eine Übersicht über die beim C64 zur 
Tonerzeugung benutzten Register. Diese Tabelle dient aller¬ 
dings wirklich nur zur Orientierung, denn eine Simulation des 
C64-Synthesizers ist weder mit dem VC 20 noch mit dem 
C16 möglich. Es empfiehlt sich daher, bei der Programman¬ 
passung zunächst einmal alle derartigen POKE-Befehle fort¬ 
zulassen und später eigene Sound-Routinen einzufügen. 
C64-Besitzer haben es umgekehrt natürlich etwas einfa¬ 
cher. Mit etwas Geschick und einem guten Handbuch zur 
Musik-Programmierung können Sie dem C 64 natürlich auch 
die VC20/C16-Töne entlocken. Für alle C64- und 
C16-Besitzer, die vielleicht doch einmal in die Verlegenheit 
kommen, das eine oder andere VC 20-Programm auf ihre 
Geräte umzuschreiben, sind in Tabelle 7 die Notenwerte und 
die Tongenerator-Adressen des VC 20 angegeben. 


Joysticks und Paddies 


Der C64 verfügt ebenso wie der C16 über zwei Joystick- 
Ports, während dem VC 20 nur einer vergönnt ist. Die Abfrage 
ist beim C16 wieder am komfortabelsten, nämlich per Basic- 
Funktion. »PRINT JOY(1)« ergibt den Richtungswert von Joy¬ 
stick 1, entsprechend wird mit JOY(2) die Richtung des zwei¬ 
ten Joysticks abgefragt. Beim C64 entsprechen diesen 
Abfragen PEEKs in die Speicherstellen 56320 (Joystick 1) 
und 56321 (Joystick 2). Ziemlich merkwürdig gelöst ist die 
Joystick-Abfrage beim VC 20, wo ein recht kompliziertes 
Abfrageprogramm erforderlich ist. Der Feuerknopf und die 
Schalter 0, 1 und 2 des Joysticks werden nämlich beim 
VC 20 über die VIA 1 gelesen, während der Zustand von 
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Schalter 3 über VIA 2 abgefragt wird. Normalerweise sind 
Joystick-Abfragen in Programmen leicht zu finden. Halten Sie 
beim VC 20 nach PEEKs in die Speicherstellen 37137 und 
37152 Ausschau und beim C64 nach entsprechenden 
Abfragen der Adressen 56320 und 56321. Während die 
Joystick-Abfrage des C64 noch relativ leicht an den C16 
angepaßt werden kann (»PEEK(56320)« entspricht 
*JO>(1)«, wird es beim VC 20 schon schwieriger. In der 
Regel wird man die Joystick-Abfrage völlig neu schreiben 
müssen, da die Art der Abfragen beim VC 20 einerseits und 
C16/ C 64 andererseits zu unterschiedlich ist. Bei der Steue¬ 
rung mittels Drehreglern (sogenannten Paddies) ist die 
Anpassung wenigstens im Falle des VC 20 wesentlich einfa¬ 
cher zu realisieren. Die Paddle-Werte werden beim C64 aus 
den Registern 54297 und 54298 mit PEEK ausgelesen. 

Wo sich dos Umschreiben lohnt 


Beim VC 20 sind es die Register 36872 und 36873, beim 
C16 ist eine Paddle-Abfrage nicht vorgesehen und muß, falls 
überhaupt sinnvoll, per Joystick-Abfrage simuliert werden. 


An dieser Stelle muß noch einmal deutlich darauf hingewie¬ 
sen werden, daß die Zahl der C64-Programme, die sich mit 
vertretbarem Aufwand zum VC 20 oder C16 übertragen las¬ 
sen, doch verhältnismäßig gering ist. VC20-Besitzer sind 
hier etwas besser dran. Sie finden in diesem Sonderheft ein 
Programm, das Maschinenprogramme für den C64 in ent¬ 
sprechende Routinen für den VC20 übersetzt. Es funktio¬ 
niert in etwa 70-80% aller Fälle. Im allgemeinen ist jetzt spe¬ 
ziell bei Spielprogrammen in der Regel äußerste Vorsicht 
geboten, da hier aus Geschwindigkeitsgründen zumeist mit 
verschiedenen Routinen in Maschinensprache gearbeitet 
wird. Von Sprites und hochauflösender Grafik einmal ganz zu 
schweigen. Dagegen gibt es viele Anwendungsprogramme, 
die den C 64 nicht als hochspezialisierte Spielmaschine (die 
er ohne Zweifel ist) ausnutzen, sondern ganz einfach Pro¬ 
blemlösungen in Basic anbieten. Dabei kann es sich bei¬ 
spielsweise um eine Dateiverwaltung, einen Vokabeltrainer 
oder ganz einfach ein Programm zum Ausdrucken eines 
Jahreskalenders handeln. Für fast alle derartigen Programme 
sollte es möglich sein, eine Anpassung mit Hilfe der hier 
abgedruckten Tabellen und Hinweise vorzunehmen, (ev) 


HEX 

FFFF 


EOOO 

DCOO 

D800 

0000 

cooo 

AOOO 


0800 

0400 

0000 


8 KByte-Betriebs- 
sysiem-ROM 


1 Kßyle 1/0-Bereich 


1 KByle Farb-flAM 


2 KByle SystemKontrollen 


4 KByle RAM für 
Maschinensprache 


8 KByte Basic-ROM 


38 KByto RAM 


I KByle Video-RAM 


C 64 


DEZIMAL 
- 65535 


57344 

56320 

55296 

53248 

49152 

40960 


HEX 

FFFF 


EOOO 


COOO 


AOOO 

9800 

9600 

9400 

9000 

8000 


2048 

1024 

0 


2000 

1E00 

1000 


0400 

0000 


system-ROM 


8 KByte Base-ROM 


q en on 

49152 


8 KByte Sleckmodul- 
bereich 


IreilOr 

I/O-Erweiterungen 


0,5 KByle Farb-RAM 


frei 


1 KByle Systemkontrollen 


4 KByte Zelchen- 
generator-ROM 


0,5 KByle Video-RAM 


3,5 KByte RAM 
(Grundversion] 


Erweiterung 
+3 KByte RAM 


DEZIMAL 

66535 


57344 


VC 20 

(Grundversion) 


40960 

38912 

38400 

37888 

36864 

32768 


24576 

16384 

8192 

7680 

4096 


1024 

0 


8 KByte Betriebs¬ 
system-ROM 

8 KByte Basic-ROM 

8 KByte Steckmodul¬ 
bereich 

frei für 

I/O-Erweiterungen 

frei 

0,5 KByle Farb-RAM 

1 KByle SystemkontroBen 

4 KByte Zeichen¬ 
generator-ROM 

8 KByte Erweiterung 3 
|+24 K) 

8 KByte Erweiterung 2 
(+I8K) 

8 KByte Erweiterung 1 
(+8K) 

3,5 KByte RAM 
(Grundversion) 

0,5 KByte Video-RAM 

frei oder 3 KByte fOr 
Maschinensprache 

1 KByte A8AI Zeropage, SlacK 


HEX 

FFFF 


EOOO 

COOO 

AOOO 

9800 

9600 

9400 

9000 

8000 

6000 


(ab 


VC 20 

8-KByte-Erweiterung) 


HEX 

FFFF 

F000 


4000 4000 


2000 


1000 1000 
0C00 
0800 
0400 

0000 0000 


170 und TED 


Basic-RAM 
bei Plus 4 
oder C16 
mit 

64 KByle- 
Erweiterung 


Basic-RAM 
(bei 16 KByte Byte) 


Video-RAM 


Farb-RAM 


Systemspeicher 


DEZIMAL 
■ 65535 


16384 


4096 

3072 

2048 


CI 6/CI 16/Plus 4 


Tabelle 5. Speicherbelegung bei C64, C16 und VC 20 
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CI 6/VC 20 


GRUNDLAGEN 



C64 

VC 20 

C16/C116/Plus 4 



Grundversion 

ab 8 KByte 


Video-RAM 

1024 

7680 

4096 

3072 

freier RAM-Bereich 

2048 

4096 

4608 

4096 

Video-Chip (VIC/TED) 

53248 

36864 

36864 

65280 

Synthesizer-Chip 

54272 

- 

- 

- 

Farb-RAM 

55296 

38400 

37888 

2048 

Basic-ROM 

40960 

49152 

49152 

32768 

(in ROM-Bank) 


Tabelle 1. Wichtige Speicheradressen bei C64, C16 und VC 20 
zur ersten Orientierung 


COLOR-Farbzonen-Nr., Farb-Nr., |, Helligkeitswerl] 

Mit der COLOR-Anweisung wird eine der fünf Farbzonen bestimmt: 

Farbzonen-Nr. Bezeichnung 


Bildschirm-Hintergrund 
Vordergrund (Buchstaben, Zeichen] 
Mehrfarben 1 
Mehrfarben 2 
Bildschirmrand 


Die zweite Zahl in der COLOR-Anweisung selektiert die Hlntergrundtarbe des gewählten Bild¬ 
schirmbereichs. Diese Zahl ist mit den Farbtasten der Tastatur Identisch. 


Farb-Nr. 

Farbe 

Farb-Nr. 

Farbe 

1 

Schwarz 

9 

Orange 

2 

WeiB 

10 

Braun 

3 

Rot 

11 

Gelb/Grün 

4 

Cyan 

12 

Rosa 

5 

Purpur 

13 

Blau/Grün 

6 

Grün 

14 

Hellblau 

7 

Blau 

15 

Dunkelblau 

8 

Gelb 

16 

Hellgrün 


6*CR 


Jede Farbe ist auch noch in ihrer Helligkeit (Luminanz) veränderbar. Im Anhang an die Farb-Nr. 
kann diese Luminanz von Null (0= dunkel) bis sieben (7 = hell) variieren. Der Standardwert für 
die Helligkeit ist 7. Die acht Helligkeitsstufen gelten für alle Farben, mit Ausnahme von Schwarz. 


Rahmen ► 

BLK 

WHT 

RED 

CYAN 

PUR 

GRN 

BLU 

YEL 

Hintergrund T 

SCHW 

WEISS 

ROT 

TÜRKIS 

VIOLETT 

GRÜN 

BLAU 

GELB 

SCHWARZ 

8 

9 

10 

11 

12 

13 

14 

15 

WEISS 

24 

25 

26 

27 

28 

29 

30 

31 

ROT 

40 

41 

42 

43 

44 

45 

46 

47 

TÜRKIS 

58 

57 

58 

59 

60 

61 

62 

63 

VIOLETT 

72 

73 

74 

75 

76 

77 

78 

79 

GRÜN 

88 

89 

90 

91 

92 

93 

94 

95 

BLAU 

104 

105 

106 

107 

108 

109 

110 

111 

GELB 

120 

121 

122 

123 

124 

125 

126 

127 

ORANGE 

136 

137 

138 

139 

140 

141 

142 

143 

HELLORANGE 

152 

153 

154 

155 

156 

157 

158 

159 

ROSA 

168 

169 

170 

171 

172 

173 

174 

176 

HELLTÜRKIS 

184 

185 

186 

187 

188 

189 

190 

191 

HELLVIOLETT 

200 

201 

202 

203 

204 

205 

206 

207 

HELLGRÜN 

216 

217 

218 

219 

220 

221 

222 

223 

HELLBLAU 

232 

233 

234 

235 

236 

237 

238 

239 

HELLGELB 

248 

249 

250 

251 

252 

253 

254 

255 


Tabelle 2. Farbkombinatlonen für Bildschirmrahmen und Hin¬ 
tergrund beim VC 20. Die einzelnen Zahlenwerte errechnen 
sich nach der Formel »POKE-Wert = Hintergrund x 16 + Rah¬ 
men -f- 8« (vergleiche Tabelle 4). 

Dnunep *« 1 


Tabelle 3. Der COLOR-Befehl des C16 kann bis zu drei Parame¬ 
ter enthalten (vergleiche Tabelle 4) 


VC 20 und C64 

nurC64 

0 schwarz 

4 violett 

8 orange 12 grau 2 

1 weiß 

5 grün 

9 braun 13 hellgrün 

2 rot 

6 blau 

10 hellrot 14 hellblau 

3 türkis 

7 gelb 

11 grau 1 15 grau 3 

Tabelle 4. Codierung einzelner Farben bei C64 und VC 20 

Adresse 

Inhalt 

Stimme 1 

Stimme 2 Stimme 3 


54272 

54279 54286 

Tonfrequenz (Low-Byte) 

54273 

54280 54287 

Tonfrequenz (Hlgh-Byte) 

54274 

54281 54288 

Tastaturverhältnls Rechteckgenerator (Low) 

54275 

54282 54289 

Tastaturverhältnis Rechleckgenerator (High) 

54276 

54283 54290 

Wellenform 

54277 

54284 54291 

Anschlag/Abschwellen 

54278 

54285 54292 

Halten/Ausklingen 

54296 

Lautstärke 


Mögliche Wellenlormen: Dreieck (17), Sägezahn (33), Rechteck (65), Rauschen (129). 


NOTE 

WERT 

NOTE 

WERT 

C 

135 

G 

215 

C# 

143 

A D 

217 

D 

147 

A 

219 

E 6 

151 

B 

221 

E 

159 

H 

223 

F 

163 

C 

225 

F# 

167 

C# 

227 

G 

175 

D 

228 

A" 

179 

E° 

229 

A 

183 

E 

231 

B 

187 

F 

232 

H 

191 

F# 

233 

C 

195 

G 

235 

C# 

199 

A D 

236 

D 

201 

A 

237 

E° 

203 

B 

238 

E 

207 

H 

239 

F 

209 

C 

240 

F# 

212 

C# 

241 

Stlmmlagen-Befehle 

X = 

Funktion 

POKE 36878.X 

Obis 15 

setzt die Lautstärke 

POKE 36874,X 

1 28 bis 255 

spielt Note 

POKE 36875.X 

128 bis 255 

spielt Note 

POKE 36876.X 

1 28 bis 255 

spielt Note 

POKE 36877.X 

128 bis 255 

Geräuscheffekte 


Tabelle 6. Die wichtigsten Register des C64-Soundchips 


Tabelle 7. Notenwerte und Tongenerator-Adressen beim VC 20. 
Diese Tabelle dient zur Orientierung für C 16-Besitzer, die das 
eine oder andere VC 20-Programm für ihren Computer Umsät¬ 
zen möchten. 
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TIPS &TRICKS 


VC 20/CI 6 


Die Datasette 
streikt nie wieder 


Einer der häufigsten Fehler, der bei der Datasette 
auftritt, ist ein verstellter Tonkopf. Dieser Fehler 
macht sich besonders dann bemerkbar, wenn mit 
Turbo Tape oder ähnlichen Programmen gearbei¬ 
tet wird. Mit der hier beschriebenen Schaltung 
läßt sich extrem einfach, ohne jegliches Pro¬ 
gramm, der Tonkopf an jede Datenkassette 
anpassen. 

U m die Datasette oder einen anderen Datenrecorder zu 
justieren, gibt es grundsätzlich zwei Möglichkeiten. 
Eine kleine elektronische Schaltung, mit der sich unab¬ 
hängig vom Computer die Tonkopfstellung an jede Datenkas¬ 
sette anpassen läßt und ein Programm, das in irgendeiner 
Form die Tonkopfstellung grafisch auf dem Monitor des Com¬ 
puters darstellt. Ein solches Programm ist aber unbrauchbar, 
egal wie gut oder schlecht es ist. Der Grund dafür ist ganz ein¬ 
fach der, daß sich nach erfolgter Justage Programme, die 
zuvor auf anderen Kassetten gespeichert wurden, nicht 
mehr laden lassen; unter anderem auch das Justagepro¬ 
gramm selbst. Sollen solche Programme geladen werden, 
müßte das Justageprogramm noch einmal abgetippt werden. 

Um das zu vermeiden, stellen wir Ihnen eine Schaltung vor, 
mit der das Einstellen extrem einfach wird. 

Damit die Schaltung verständlich wird, zuerst ein paar 
Worte zur Datasetten-Elektronik. 

Theorie und Praxis 


Sie besteht aus zwei Hauptgruppen, einem zweistufigen 
Verstärker, der die Aufgabe hat, das analoge Signal, das vom 
Tonkopf kommt, zu verstärken. 

Analog deshalb, weil sich digitale Signale nicht auf Band 
speichern lassen. Selbst wenn ein solches Signal am Tonkopf 
anliegt, wird es nicht als solches auf das Band geschrieben, 
sondern in Form einer Sinusschwingung. Beim Laden muß 
diese Sinusschwingung wieder in eine Form gebracht wer¬ 
den, die der Computer versteht. Folglich muß die Sinus¬ 
schwingung in ein Rechtecksignal gewandelt werden. 

Dies geschieht in der zweiten Hauptstufe mit Hilfe eines 
Schmitt-Triggers. Am Ausgang des Schmitt-Triggers liegt das 
Signal in Form einer Rechteckschwingung vor, die entweder 
einen Spannungspegel von 0 oder 5 Volt hat. Dieses Signal 
eignet sich nicht zur Einstellung des Tonkopfes, weil die 
Amplitude des Signals, unabhängig von der Tonkopfstellung, 
immer konstant zwischen 0 und 5 Volt hin- und herspringt. 

Die Messung mit einem Oszilloskop ergab aber, daß, 
abhängig von der Tonkopfstellung, die Amplitude der analo¬ 
gen Spannung schwanke. 

Ist der Tonkopf optimal eingestellt, geht die Amplitude der 
Spannung gegen ein Maximum. Ist der Tonkopf dejustiert, 
weicht die Amplitude, abhängig von der Tonkopfstellung, vom 
Maximum ab. Man kann es jedoch keinem Datasetten-Besit- 
zer zumuten, sich ein Oszilloskop anzuschaffen, nur um die 
Datasette zu justieren. 

Die vorliegende Bastelanleitung, deren Bauteile zu einem 


Preis von unter fünf Mark zu haben sind, ersetzt in diesem Fall 
ein Oszilloskop. Mit der Schaltung (Bild 1) läßt sich eine Span¬ 
nung, natürlich in gewissen Grenzen, auf Maximum abglei¬ 
chen. Das Herz ist ein Operationsverstärker vom Typ LF 356, 
der als Komperator (Schwellwertschalter) betrieben wird. 

Bastelanleitung 


Außerdem hat dieser Operationsverstärker gegenüber ande¬ 
ren den Vorteil, daß seine Eingangsstufe aus einem Feld¬ 
effekttransistor besteht. Der Eingangswiderstand geht 
dadurch gegen unendlich und belastet das zu messende 
Signal in keinster Weise. Mit dem Trimmpotentiometer läßt 
sich eine Schwellspannung (Bild 2) einstellen, die laufend mit 
der analogen Sinusschwingung verglichen wird. 

Ist der Momentanwert der Sinusschwingung kleiner als die 
vorgegebene Schwellspannung, führt der Ausgang des LF 
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VC 20/CI 6 


TIPS &TRICKS 


356 0 Volt. Wird der Momentanwert größer, springt der Aus¬ 
gang des LF 356 auf +5 Volt und regt dadurch eine Leucht¬ 
diode an. Wird die Schwellspannung in den Scheitelpunkt der 
Sinusschwingung gelegt (gestrichelte Linie in Bild 2), geht 
die Zeitspanne, in der der Ausgang des Komperators auf 5 
Volt liegt, gegen ein Minimum. Daraus folgt, daß die Helligkeit 
der Leuchtdiode abnimmt, je näher die Schwellspannung an 
den Scheitelwert der Sinusschwingung rückt. Wird dagegen 
die Amplitude des Signals, also der Sinusschwingung, ver¬ 
größert, wird die Helligkeit der Leuchtdiode wieder größer. 
Denn die Zeitspanne, in der der Ausgang des Komperators 
auf 5Volt liegt, wird größer. Dieses ist vom Prinzip her der 
ganze Abgleichvorgang. Mit dem Trimmpotentiometer wird 
auf minimale Helligkeit und mit der Tonkopfeinstellschraube 
auf maximale Helligkeit abgeglichen. 

Aufgebaut wird die Schaltung auf einer kleinen Lochraster¬ 
platine. Diejenigen, die sich eine Platine ätzen wollen, finden 
das Layout im Verhältnis 1:1 in Bild 3. Wie die einzelnen Pins 
der Bauelemente miteinander verbunden werden, zeigt Bild 
4. Achten Sie beim Zusammenbau auf die richtige Polarität 
der Leuchtdiode (Bild 5). 

Ist die Schaltung zusammengelötet, muß sie noch im Data- 
settengehäuse untergebracht werden. Öffnen Sie dazu die 
Datasette und bohren an einer geeigneten Stelle ein Loch in 
das Gehäuseoberteil, so daß die Leuchtdiode gerade in die¬ 
ses Loch paßt. 

Verbinden Sie die Anschlüsse»+« und »-«(Bild 4) mit den 
Motoranschlußklemmen. Dabei ist ebenfalls auf die Polarität 






zu achten. Im allgemeinen ist sie auf dem Motor gekenn¬ 
zeichnet. Der in Bild 4 gekennzeichnete Punkt »E« (für Ein¬ 
gang) muß über ein abgeschirmtes Kabel mit einem der bei¬ 
den Lötpunkte auf der Datasettenplatine (Bild 6) verbunden 
werden. Die Abschirmung ist an den mit»-« gekennzeichne¬ 
ten Punkt (Bild 4) zu löten. 

Bei den beiden Lötpunkten handelt es sich um den Aus¬ 
gang des ersten beziehungsweise zweiten Analogverstär¬ 
kers einer Commodore-Datasette. 

Geräte anderer Hersteller sind zum Teil anders aufgebaut. 
Es kann Vorkommen, daß die beiden in Bild 6 gekennzeichne¬ 
ten Analogverstärker in einem Gehäuse untergebracht sind. 
In diesem Fall ist der Punkt »E« mit dem Pin 8 dieses ICs zu 
verbinden. 

Einfaches Einstellen 


Bevor die Datasette zusammengebaut wird, ist die Schaltung 
an die Datasetten-Elektronik anzupassen. Schalten Sie dazu 
den C 64 ein, legen eine Programm-Kassette in die Datasette 
und drücken die PLAY-Taste. 

Nach der direkten Eingabe POKE 54272 + 24,15 drehen 
Sie den Lautstärkeregler Ihres Monitors auf Maximum und 
warten, bis die Übertragung des Programm- oder Daten¬ 
codes im Lautsprecher zu hören ist. Nun muß in einem wech¬ 
selseitigen Einstellvorgang die Helligkeit der Leuchtdiode am 
Trimmpotentiometer auf Minimum und an der Tonkopfeinstell¬ 
schraube auf Maximum abgeglichen werden. Bei Commodo- 
re-Datasetten befindet sich die Tonkopfeinstellschraube 
(Kreuzschlitz) bei gedrückter PLAY-Taste unter einem etwa 
5 mm großen Loch auf dem Gehäuseoberteil. Soll eine 
ander» Datasette justiert werden, muß der Kassettendeckel 
abgebaut werden. Die Tonkopfschraube ist nun eine der bei¬ 
den Tonkopfbefestigungsschrauben und zwar die, an der 
sich eine Spiralfeder befindet. Doch nun zum Abgleichvor¬ 
gang. Dazu gehen Sie bitte folgendermaßen vor: 

1. Am Trimmpotentiometer drehen, bis die Leuchtdiode 
schwach flackert. Dadurch wird die Schwell- oder Schalt¬ 
spannung in den Scheitelpunkt der Sinusschwingung gelegt. 

2. An der,Tonkopfeinstellschraube drehen, bis die Helligkeit 
der Leuchtdiode ein Maximum erreicht hat. Dadurch wird die 
Amplitude des Signals, das vom Tonkopf kommt, auf Maxi¬ 
mum abgeglichen. 

Noch ein Tip 


Der letzte Punkt ist nur dann erforderlich, wenn die Datasette 
nicht optimal eingestellt war, beziehungsweise eine Kassette 
benutzt wird, die mit einer anderen Datasette beschrieben 
wurde. In diesem Fall muß der Einstellvorgang solange wie¬ 
derholt werden, bis eine Einstellung erreicht ist, bei der die 
Leuchtdiode erlischt, sobald der Tonkopf minimal verstellt 
wird. Bauen Sie nun die Datasette wieder zusammen. Schal¬ 
ten Sie voher aber den C 64 aus. 

Wollen Sie jetzt ein Programm laden, das mit einem deju- 
stierten Tonkopf aufgenommen wurde, brauchen Sie nur 
noch, nachdem der C 64 eingeschaltet wurde, die Kassette 
einzulegen, die PLAY-Taste zu drücken und so lange an der 
Tonkopfeinstellschraube zu drehen, bis die Helligkeit der 
Leuchtdiode ein Maximum erreicht hat. 

Zum Schluß soll noch darauf hingewiesen werden, daß 
selbst bei Commodore-Datasetten die unterschiedlichsten 
Platinen existieren. Befinden sich auf Ihrer Platine nur zwei 
I4beinige IC's, dann ist der Punkt »E« an den Pin 8 oder 13 
jenes IC’s zu löten, das sich auf der linken Platinenseite befin¬ 
det (vorausgesetzt, Sie haben die Platine so vor sich liegen, 
wie Bild 6 zeigt). (ah) 
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C 64/VC 20 


C64-Programme für den VC20 


Mit diesem Programm ist es möglich, auch C64- 
Programme auf Ihrem VC20 laufen zu lassen. 

D as Programm »Reloctable« konvertiert Maschinen¬ 
spracheroutinen, die für den C 64 geschrieben worden 
sind, spielend leicht in ablauffähige Programme auf 
dem VC 20. Es werden pro Sekunde etwa 50 Byte übersetzt 
und in den Speicher des VC 20 geschrieben. 

Zuerst muß die zu übersetzende Maschinenroutine in den 
Speicher Ihres VC 20 gebracht werden. Dabei darf nur das 
von Basic aus erreichbare RAM beschrieben werden. Es ist 
dabei völlig unerheblich, an welche Stelle das Programm 
geschrieben (gePOKEt) wird, denn meist sind die Adreß- 
räume des C 64 für den VC 20 sowieso nicht erreichbar. Aber 
bedenken Sie, daß das Übersetzungsprogramm noch nach¬ 
geladen werden muß (am besten den RAM-Top herunterset¬ 
zen). 

Jetzt wird das Übersetzungs-Programm nachgeladen und 
mit RUN gestartet. Kurze Zeit später wird nach der Länge des 
zu bearbeitenden Programmes gefragt. Nach Eingabe der 
Bytezahl wird die Adresse (dezimal) erfragt, ab der das 
Maschinenprogramm steht. Eine weitere Abfrage klärt, ob, 
und wenn ja, wohin das Programm ablauffähig verschoben 
werden soll. Gibt man an dieser Stelle einfach RETURN ein, 
wird auf den Übersetzungsmodus von C64 auf VC 20 umge¬ 
schaltet. Schließlich muß noch die Anfangsadresse eingege¬ 
ben werden, . ab der das Programm eigentlich im 
C64-Speicher stehen sollte. Mit der Meldung »Überset¬ 
zungsversuch« beginnt die Routine zu arbeiten. Nach READY 
kann das Programm mit SYS Anfangsadresse gestartet wer¬ 
den (Einsprungpunkt beim C64 beachten!). 

Die Übersetzung klappt in 90 Prozent aller Fälle. Bei den 


restlichen 10 Prozent handelt es sich um Maschinenpro¬ 
gramme, die den SID oder die Grafik des C64 direkt anspre¬ 
chen. Da vergleichbare Adressen beim VC20 nicht vorhan¬ 
den sind, mußte an dieser Stelle ein Kompromiß eingegangen 
werden. Das Umsetzungsprogramm reagiert in diesem Fall 
mit einer Meldung, daß die Übersetzung kritisch wird. Trotz¬ 
dem kann man die Übersetzung starten, ohne einen Compu¬ 
terabsturz nach dem Start des behandelten Programmes 
befürchten zu müssen. An den entsprechenden, nicht kon¬ 
vertierbaren Stellen werden Unterprogramme eingesetzt. Ein 
Versuch lohnt sich allerdings immer. So gelingt die Überset¬ 
zung von Basic-Erweiterungen fast ausnahmslos. (Der Autor 
übersetzte nahezu die gesamte Maschinenspracheroutine¬ 
sammlung aus »C64 Tips und Tricks«), 

Eine gleichwohl interessante Möglichkeit des Reloctable- 
Programms besteht im ablauffähigen Verschieben von 
VC20-Maschinenroutinen. Mit diesem Programmteil wird es 
leicht möglich, Speicherbereiche inklusive Adreßumrech- 
nung frei im RAM zu verschieben. Sicher eine willkommene 
Hilfe bei der Zusammenstellung von Maschinensprache- 
Programmpaketen ohne die sonst üblichen lästigen unge¬ 
nutzten Bereiche. Die Verschiebung klappt in mindestens 95 
Prozent aller Fälle. Lediglich Maschinenprogramme, inner¬ 
halb derer Listen oder Strings abgelegt sind, erfordern eine 
gewisse »Nachbehandlung« mit einem Disassembler und 
dem manuellen Setzen der relevanten Bytes. Das läßt sich 
aber mit etwas Übung ganz gut machen. Aber auch ohne 
irgendwelche Maschinenkenntnisse ist die Trefferwahr- 
scheinl!c!-*eitdes Programms groß genug. Übrigens können 
auch die übersetzten C 64-Programme im zweiten Schritt frei 
verschoben werden. Für eine sinnvolle Arbeit mit dem vorlie¬ 
genden Programm ist mindestens eine 8 KByte-Erweiterung 
notwendig. (Manfred Zimmermann/dm) 


100 

REM REOCTABLE 

<139> 

410 

FS-37BBB+4#(PEEK(36866)AND 128) 

<20B> 

110 

REM TRANSLATION 

<253> 

420 

PRINT1 PRINT CHR*(18)"UEBERSETZUNGSVERS 


120 

REM C. BY M.ZIMMERMANN,WESEL 

< 115> 


UCH!!"CHR*(146)xGOTO 510 

<200> 

130 

REM 

< 192> 

430 

IF ZI>827 AND ZI+AN<1021 THEN 480 

<048> 

140 

1 "tot 

REM 

<202> 

440 

IF ZI<PEEK <49)+256#PEEK(50)OR ZI+AN+6> 



*{DOWN) 

<246> 


‘tTlal irlfcN PRINT CDüWNJUNBUtLTIBE3 ZIE 
L C2SPACE,2DOWN3"iGOTO 300 

<194> 

160 

PRINT"CSSPACEIRELOCTABLE C2D0WNV 

<250> 

450 

IF SA<-ZI THEN IF SA+AN+1>ZI THEN PRIN 


170 

PRINT"»**#***«*##*»**#*#****" 

< 167> 


T"UNGUELTIGES ZIELC2D0WN>"xGOTO 300 

< 181 > 

180 

DIM OPX(255) 

<0B7> 

460 

IF ZI<=SA THEN IF ZI+AN+1>8A THEN PRIN 


190 

FOR T-0 TO 255 

< 120> 


T"UNGUELTI0ES ZIELC2D0WN>"lGOTO 300 

<235> 

200 

READ AX 

<066> 

470 

PRINT x PRINT CHR*(18)"VERBCHIEBUNBSVERS 


210 

OPX(T)-AX 

<089 > 


UCH!!"CHR*(146) 

<0B3> 

220 

NEXT 

<230> 

480 

FOR T-0 TO AN-1 

<237> 

230 

REM 

<036> 

490 

POKE ZI+T,PEEK(SA+T) 

<023> 

240 

REM STANDORTE 

<00B> 

500 

NEXT 

<000> 

250 

REM 

<056> 

510 

REM 

<062> 

260 

INPUT"CDOWNlANZ. D., BYTES "{AN 

<206> 

520 

REM ANALYSE 

<252> 

270 

IF AN-0 THEN 260 

< 191 > 

530 

REM 

<0B4> 

280 

INPUT"CDOWN>STARTADRESSE "{SA 

<255> 

540 

PRINTiPRINT"WARTEN AUF "CHR*(1B>"READY 


290 

ZI-SA 

<1BB> 


"CHR*(146)" !!" 

< 199> 

300 

INPUT"<DOWN>ZIELADREBSE "|ZI 

< 149> 

550 

FOR T-0 TO AN—1 

<053> 

310 

IF ZIOSA THEN 430 

<0B3> 

560 

WE—PEEK(SA+T) 

<033> 

320 

TR*“"J" 

< 140 > 

570 

IF KK*< >"J"THEN 640 

<050> 

330 

INPUT"tDOWNISTART C-64 "{TS 

<027> 

580 

IF WE-201 OR WE-224 OR WE-192 THEN 600 

<165> 

340 

DIM CX(211),VX <211) 

<232> 

590 

GOTO 660 

< 146> 

350 

FOR T-0 TO 210 STEP 2 

<067> 

600 

H-PEEK(ZI+T+1) 

<14B> 

360 

READ CH,CL,VH,VL 

<233> 

610 

IF H>26 AND H<42 THEN H-22+H-401POKE Z 


370 

CX <T>-CHiCX<T+1)“CL 

<026> 


I+T+l ,Hx GOTO 660 

<170> 

380 

VX < T) -VH x VX < T+1> -VL 

< 179> 

620 

IF H>18 AND H<27 THEN H-23+H-25!POKE Z 


390 

NEXT 

< 146 > 


I+T+l,H 

<221 > 

400 

BS-4# < PEEK < 36866)AND 128)+64# < PEEK(368 

630 

GOTO 660 

< 1B6> 


69)AND 120) 

<245> 

640 

IF WE-169 OR WE-162 OR WE-160 THEN GOS 
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C 64/VC 20 


TIPS &TRICKS 


UB 970 

< 177> 

1380 

IF H>49151 AND H<5324S THlHN N*="J" 

<221 > 

630 IF 0P'/.(WE)-2 THEN QÖSUB 080 

<0ii> 

1390 

REM VIDEO/SOUND 

<164> 

660 T»T+0P'/.(WE) 

< 161 > 

1400 

IF H>53247 AND H<55295 TME’i’l 

< 155> 

670 NEXT 

<172> 

1410 

REM INTERP. 2 

< 112> 

600 IF K*< > 11 J "THEN0800 

<095> 

1420 

IF H>55295 AND H<56296 THEW H-FSrt-H-55 


690 IF K*—" J"THEN K*»“":KK*«"J" 

<079> 


296:K*“"J":GOTO 1510 

< 144> 

700 PRINT"CCLR,2D0WN)DAS PROGRAMM VER-CDOW 


1430 

REM BETR. UNKLAR 

<0B7> 

N>" 

<075> 

1440 

IF H>56295 AND H<57344 THEN N*-“J" 

< 126> 

710 PRINT"WENDETE ADRESSEN DESCDOWN>" 

<242> 

1450 

REM INTERPR. 2 

<097 > 

720 PRINT"BILDSCHIRM- UND FÄRB-CDOWN>" 

<047> 

1460 

IF H>57343 AND H<50463 TUEN H-H-3:G0S 


730 PRINT"BEREICHS.C64 UND VC20CDOWN}" 

<1B2> 


UB 1590:GOTO 1510 

<1B4> 

740 PRINT"UNTERSCHEIDEN SICH DACDOWN}" 

<22B> 

1470 

IF H>58462 AND H<65418 THEN GOSUB 117 


750 PRINT"WESENTLICH.EIN UEBER-(DOWN)” 

< 134> 


0:GOTO 1510 

< 191 > 

760 PRINT"SETZUNQ8VERBUCH ISTCDOWN}" 

<222> 

1480 

REM NOTLOESUNG 

<224> 

770 PRINT"KRITISCH ! SOLL ICH ES" 

<031 > 

1490 

IF N*-"J"THEN DL“234.DH“DL:POKE Z I+T, 


780 PRINT"VERSUCHEN?t2D0WNJ"lINPUT"(J/N) " 



DH:POKE ZI+B,DH:GOTO 1540 

<065> 

»AS 

< 175 > 

1500 

RETURN 

<032> 

790 IF AS—"J"THEN S50 

<13B> 

1510 

DD-H+ZI-SA 

<037> 

800 DH-INT(ZI/256) 

<003> 

1520 

DH-INT(DD/256) 

<242> 

810 DL-ZI-256*DH 

<102> 

1530 

DL—DD—256*DH 

<054> 

820 POKE ZI+AN+2,DL 

<110> 

1540 

IF G-T THEN G-T+l 

<070> 

830 POKE ZI+AN+3.DH 

<058> 

1550 

POKE ZIFT+l.DL 

< 153> 

840 POKE ZI+AN+4,197 

< 162> 

1560 

POKE ZI+G+l.DH 

<063> 

850 POKE ZI+AN+5,206 

<006> 

1570 

IF G-T+l THEN G=0 

<013> 

B60 POKE ZI+AN+6,196 

< 154> 

1500 

RETURN 

< 114> 

870 END 

<110> 

1590 

IF WE-141 OR WE—142 OR WE-140 THEN 16 


800 REM 

<1B0> 


60 

<064> 

890 REM 3 BYTE-BEFEHL 

< 197> 

1600 

RETURN 

< 134> 

900 REM 

<2007 

1610 

PRINT"CCLR12D0WNJUEBERSETZUNG NICHT CD 


910 H-PEEK<SA+T+1> +256*PEEK(SA+T+2) 

<063> 


OWN} 

<110> 

920 G-T 

< 149> 

1620 

PRINT"MOEBLICH, DA ENT-CDOWN} 

<035> 

930 IF TR*“"J"THEN GOSUB 1240 

<244> 

1630 

PRINT"SPRECHENDE ROUTINE CDOWN} 

<225> 

940 IF H<SA OR H7SA+AN-1 THEN RETURN 

<101> 

1640 

PRINT"BEIM VC-20 NICHT VOR-CDOWN} 

<096> 

950 GOSUB 1510 

<000> 

1650 

PRINT"HÄNDEN IST !CDOWN}":END 

<239> 

960 RETURN 

<000> 

1660 

PRINT"<CLR,2D0WN>UEBERSETZUNG NICHT CD 


970 REM 

<014> 


OWN> 

< 160 > 

980 REM LDA /LDX/ LDY 

<088> 

1670 

PRINT"MOEBLICH, DA INS RAMCDOWN> 

<09B> 

990 REM 

<034> 

1600 

PRINT"GEPOKED WIRDC2D0WN>" 

<086> 

1000 IF T-B AND TOB THEN RETURN 

<225> 

1690 

PRINT"STELLE(DEZ): "»H 

<170> 

1010 G“T:GE—WE:KK—0 

<208> 

1700 

PRINT"CDOWNJ":END 

<074> 

1020 H1“PEEK(SA+T+1) 

<0B6> 

<115> 

1710 RFM 

1720 Still BEFEHLSLAENBE 

<24B> 

1030 B=B+0P7.(GE)+1 

<098> 

1040 IF G>AN OR KK>1 THEN G=TiRETURN 

<109> 

1730 

REM 

<012> 

1050 GE-PEEK < SA+G) 

< 155> 

1740 

DATA 0,1,0,0,1,1,1,0,0,1,0,0,2,2,2,0 

<015> 

1060 IF GE-169 OR GE“162 OR GE-160 THEN 10 


1750 

DATA 1,1,1,0,1,1,1,0,0,2,0,0,2,2,2,0 

< 193> 

80 

<015> 

1760 

DATA 2,1,0,0,1,1,1,0,0,1,0,0,2,2,2,0 

<051 > 

1070 KK“KK+11 GOTO 1030 

<065> 

1770 

DATA 1,1,1,0,1,1,1,0,0,2,0,0,2,2,2,0 

<213> 

1080 H2“PEEK(SA+B+1) 

<104> 

1780 

DATA 0,1,0,0,0,1,1,0,0,1,0,0,2,2,2,0 

<047> 

1090 H-H1+256*H2 

<037> 

1790 

DATA 1,1,1,0,0,1,1,0,0,2,0,0,0,2,2,0 

<209> 

1100 IF TR*="J"THEN BOSUB 1240 

<160> 

1800 

DATA 0,1,0,0,1,1,1,0,0,1,0,0,2,2,2,0 

<077> 

1110 IF H<SA OR H>SA+AN-1 THEN RETURN 

<017> 

1810 

DATA 1,1,1,0,1,1,1,0,0,2,0,0,2,2,2,0 

<255> 

1120 GOSUB 1510 

< 172> 

1820 

DATA 1,1,0,0,1,1,1,0,0,1,0,0,2,2,2,0 

<105> 

1130 RETURN 

< 172> 

1830 

DATA 1,1,1,0,1,1,1,0,0,2,0,0,2,2,2,0 

<019> 

1140 REM 

< 186> 

1840 

DATA 1,1,1,0,1,1,1,0,0,1,0,0,2,2,2,0 

<253> 

1150 REM BETRIEB 

< 1B1 > 

1850 

DATA 1,1,1,0,1,1,1,0,0,2,0,0,2,2,2,0 

<039> 

1160 REM 

<206> 

1860 

DATA 1,1,0,0,1,1,1,0,0,1,0,0,2,2,2,0 

< 14S> 

1170 L-0:Hl-0:H2-0:IF H=5B592 OR H-5B602 T 


1B70 

DATA 1,1,1,0,0,1,1,0,0,2,0,0,0,2,2,0 

<035> 

HEN 1610 

<222> 

1880 

DATA 1,1,0,0,1,1,1,0,0,1,0,0,2,2,2,0 

< 165> 

1180 H2-256*CX(L)+CX(L+1> 

<157> 

1890 

DATA 1,1,1,0,0,1,1,0,0,2,0,0,0,2,2,0 

<055 > 

1190 IF H2-H THEN H-236#VX<L>+VX(L+l)iRETU 


1900 

REM 

<1B4> 

RN 

<020> 

1910 

REM SYSTEMADR. 

<102> 

1200 IF H2>H THEN H-256*V7. <L-2) +VX (L-l) +H- 


1920 

REM 

<204> 

HliRETURN 

< 123> 

1930 

DATA 228,95,228,41,229,0,229,0,229,5, 


1210 Hl-H2iL-L+2 

<163> 


229,5,229,10,229,10 

< 146> 

1220 IF L<211 THEN 1180 

<0B2> 

1940 

DATA 229,24,229,24,229,6B,229,95,229, 


1230 RETURN 

<016> 


102,229,129,229,160,229,187 

< 156> 

1240 REM 

<030 > 

1950 

DATA 229,180,229,207,229,202,229,229, 


1250 REM UEBERSETZUNG 

<215> 


230,50,230,79,230,132,230,184 

<067> 

1260 REM 

<050> 

1960 

DATA 230,182,230,234,232,218,233,33,2 


1270 N*“"" 

<079> 


32,234,233,117,233,200,234,86 

< 107> 

1280 REM ZERO 

< 139> 

1970 

DATA 233,255,234,141,234,2B,234,161,2 


1290 IF H-784 OR H“785 OR H-706 THEN H-H-7 



34,36,234,178,234,49,234,191 

< 139> 

04s GOTO 1510 

<226> 

19B0 

DATA 234,135,235,30,235,72,235,220,23 

1300 REM BILDSCHIRM 

< 163> 


5,121,236,70,235,177,236,94 

<243> 

1310 IF H>1023 AND H<2024 THEN H-BS+H-1024 


1990 

DATA 236,68,237,33,236,120,237,105,23 


I KS-"J" 1 GOTO 1510 

<235> 


6,185,237,228,236,231,237,243 

<1B6> 

1320 REM SPRITES 

<192> 

2000 

DATA 236,240,237,254,237,9,238,20,237 


1330 IF H>2039 AND H<2048 THEN N*="J" 

< 181 > 


,12,238,23,237,64,238,228 

< 181 > 

1340 REM INTERPRET 1 

< 116 > 

2010 

DATA 237,185,238,192,237,199,238,206, 


1350 IF H>40959 AND H<49151 THEN H-HV8192: 



237,239,238,246,237,254,239,4 

< 192> 

GOSUB 1590:GOTO 1510 

< 195> 

2020 

DATA 238,19,239,25,238,179,239,150,23 


1360 REM MASCH. RAM 

<1B1> 


8,187,239,163,239,74,240,39 

<100> 

1370 IF H>TB—1 AND HCTS+AN THEN H-SA+H-TS: 


2030 

DATA 240,20,240,237,240,134,241,79,24 


GOTO 1510 

<043> 


0,164,241,96,240,189,241,116 

<164> 
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C16 


2040 

DATA 241,43,241,224,241,87,242,14,241 


2120 

DATA 248,107,248,234,248,190,249,47,2 



,202,242,122,242,14,242,199 

<233> 


48,225,249,75,249,44,249,142 

<021 > 

2050 

DATA 242,B0,243,9,242,145,243,74,243, 


2130 

DATA 251,151,248,219,251,166,251,234, 



15,243,207,243,31,243,223 

<003> 


251,205,252,11,252,184,252,246 

<254> 

2060 

DATA 243,47,243,239,243,74,244,10,244 


2140 

DATA 252,202,253,11,252,209,253,17,25 



,158,245,66,245,175,246,71 

<246> 


2,219,253,27,252,226,253,34 

<000> 

2070 

DATA 245,210,246,106,245,221,246,117, 


2150 

DATA 253,2,253,63,253,16,253,77,253,2 



246,143,247,40,246,155,247,52 

< 131 > 


1,253,82,253,4B,253,109 

<094> 

20B0 

DATA 246,221,247,96,246,228,247,103,2 


2160 

DATA 253,80,253,141,253,155,253,109,2 



46,237,247,112,246,251,247,126 

<075> 


53,249,254,73,254,0,254,80 

<090> 

2090 

DATA 247,44,247,175,247,106,247,231,2 


2170 

DATA 254,7,254,87,254,24,254,102,254, 



47,208,240,77,247,215,248,84 

<006> 


28,254,106,254,33,254,246 

< 146 > 

2100 

DATA 247,234,248,103.24B,13,248,138,2 


2180 

DATA 254,37,254,115,254,52,254,130,25 



48,23,248,148,248,46,240,171 

<034> 


4,67,254,169,254,194,255,92 

< 167> 

2110 

DATA 248,56,248,183,248,65,248,192,24 


2190 

DATA 255,72,255,114,255,129,255,138 

< 196 > 


8,74,248,201,248,100,248,234 

<175> 

e 64 

'•r 
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Tips & Tricks 
zum C16 


LDX #$02 
STX $CA 
STX $CD 
JSR $DE5E 
LDX #$12 
STX $CA 
STX $CD 
JMP$DE60 


;dritte Zeile und 
;dritte Spalte 
;»T«-Befehl 

;18. Zeile und 
;18. Spalte 
;»B«-Befehl 


Auch zu Commodores Kleinsten haben unsere 
Leser ein paar nützliche Tricks entdeckt, die nicht 
im Handbuch stehen, den Umgang mit diesem 
Computer aber wesentlich erleichtern. 

W er vom VC 20 oder C 64 auf den C16/116 umsteigt, 
wird im ersten Augenblick die bewährte »RESTORE«- 
'aste vermissen. Hatte sich der Computer einmal 
»aufgehängt« (zum Beispiel durch eine falsche WAIT- 
Anweisung oder einen falschen Sprung in ein Maschinenpro¬ 
gramm), so konnte man ihn fast immer mit RUN/STOP- 
RESTORE zurückholen. Was macht man nun beim C16/116, 
wenn sich der Computer in eine Endlosschleife verabschie¬ 
det? Nicht gleich ausschalten! Hier gibt es einen kleinen 
Trick: 

Zuerst den »RESET«-Taster drücken (aber noch nicht los¬ 
lassen). Dann gleichzeitiges Drücken der »RUN/STOP«- und 
»Commodore«-Taste. Anschließend »RESET«-Taster loslas¬ 
sen und schon befindet man sich im Monitor-Programm, das 
mit »X« wieder verlassen werden kann. Der alte Speicherin¬ 
halt bleibt erhalten! 

(C. Q. Spitzner/tr) 

Diverses 


Der Bildschirm des C16 beginnt bei $0C00 (= #3072), der 
zugehörige Farb-RAM bei $0800 (= # 2048) und die hoch¬ 
auflösende Grafik (HiRes) bei $2000 (= #8192). Es kön¬ 
nen also einfarbige Grafiken vom C 64 problemlos übernom¬ 
men werden. Die Farbintensität für HiRes ist angesiedelt bei 
$1800(bis $1FFF). Einen Basic-Warmstart erreicht man 
durch »SYS 32768« ($8000), hier beginnt auch der ROM- 
Teil. »SYS62114«( = $F2A4) macht einen kompletten Reset. 
Wer von anderen Computern gewohnt ist, seinen Monitor 
durch einen »SYS«-Befehl zu starten, kann dies mit »SYS 
62533« ( = $F445) tun. 

Die ESC-Funktionen lassen sich auch von Maschinenspra¬ 
che aus nutzen (siehe Tabelle). Für das Definieren von Bild¬ 
schirmfenstern ist es notwendig, die Eckpunkte anzugeben. 
Hierbei ist $CD = Zeile und $CA = Spalte, also zum Beispiel: 


definiert ein Bildschirmfenster ab dritter Zeile und Spalte mit 
15 Zeilen (18 - 3) Länge zu je 15 Zeichen. 

Gerade die Möglichkeit, mit »Windows« zu arbeiten, hebt 
den CI6/116 weit über seine Konkurrenten hervor. Auch die 
anderen Escape-Funktionen bieten umfangreiche Möglich¬ 
keiten d°r Bildschirmgestaltung. 

Übrigens, die »JMP«-Anweisung am Schluß des kleinen 
Beispielprogramms ist gleichbedeutend mit »JSR« und 
anschließendem »RTS«. 


Tabelle. Die Escape-Funktionen und Ihre Adressen: 


ESC + 

Adresse 

Dez/Hex 

Bedeutung 

A 

57129/SDF29 

Automatisch Einfügen 

B 

56928/SDE60 

Rechte, untere Fensterecke fixieren 

C 

571 26/SDF26 

Automatisch Einfügen aufheben 

D 

56992/SDEAO 

Zeile löschen 

1 

56971/SDE8B 

Zelle einfügen 

J 

57218/SDF82 

Cursor an Zellenanfang setzen 

K 

57237/SDF95 

Cursor an Zellenende setzen 

L 

57117/SDF1D 

Scrolling-Modus elnschalten 

M 

57120/SDF20 

Scrolling-Modus ausschalten 

N 

55432/SD888 

Bildschirm löschen und auf normale 

Größe schalten 

0 

56475/SDC9B 

Elnfüge-, Anführungszeichen-, 

Reverse- und BllnKmodus ausschalten 

P 

57057/SDEE1 

Zeile löschen 

Q 

57036/SDECB 

Zelle ab Cursor löschen 

R 

56904/SDE48 

Bildschirm löschen und verkleinern 

T 

56926/SDE5E 

Linke, obere Fensterecke fixieren 

V 

57078/SDEF6 

Bildschirm nach oben scrollen 

W 

57092/SDF04 

Bildschirm nach unten scrollen 

X 

—/— 

Escape-Modus auschalten 


Weitere Tips 

- »WAIT 1,192« wartet darauf, daß eine Taste am Recorder 
gedrückt wird. 

- Der Speicher für die Funktionstasten beginnt bei $0567 
und endet bei $05E6. 

- Die Einsprungadresse für die USR-Funktion steht in 
#1281/1282=$0501/0502. (Frank Plachetta/tr) 
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CI 6/116 


TIPS &TRICKS 


Schnelle Hardcopy 


Wenn neben dem C16 ein Drucker steht, erwacht 
auch bald der Wunsch, den Bildschirm direkt 
über den Drucker auszugeben. »Fast-Hardcopy« 
schafft das recht flott. 

D ie Idee zu »Fast-Hardcopy« entstand durch ein Pro¬ 
gramm im 64'er, Ausgabe 6/85, das für den CI6/116 
geschrieben war. Dabei wurden mathematische Funk¬ 
tionen auf dem Bildschirm abgebildet und in einer langwieri¬ 
gen Prozedur als Hardcopy zu Papier gebracht. Mit dem Sei- 
kosha GP-100 ergab sich dabei eine Zwangspause von sage 
und schreibe einer halben Stunde. »Fast-Hardcopy« ist vor¬ 
wiegend in Maschinensprache geschrieben und erledigt 
diese Aufgabe in 3'/2 bis 4 Minuten. Mathematische Funk¬ 
tionen werden zwar nicht erzeugt, aber dafür ist egal, was auf 
dem Bildschirm zu sehen ist - es wird gedruckt (Bild 1). 

Da das Programm im Grafikmodus arbeitet, bleiben für 
Basic nur noch 2 KByte frei. Aus diesem Grund war es nicht 
möglich, die Maschinenroutine als Datazeilen in das ebenfalls 
notwendige Basic-Programm einzubinden. Das gesamte 
Programm besteht also aus zwei Teilen. Der erste Teil ist das 
Basic-Programm (Listing 1), das Sie ganz gewöhnlich einge¬ 



ben können. Für den zweiten Teil schalten Sie mit dem Befehl 
»MONITOR« den TEDMON Ihres C16/116 ein. 

Anschließend geben Sie den Befehl »M 1400 147f« ein. 
Auf dem Bildschirm erscheint der Speicherauszug von 
$1400 bis$147f als Hexdump. Jetzt tippen Sie Zeile für Zeile 
die Werte aus Listing 2 ein. Am Schluß jeder Zeile drücken 
Sie die RETURN-Taste, die Zeile ist dann in den Speicher auf¬ 
genommen. Haben Sie dies erledigt, so können Sie sich mit 
»M 1480 14ff« den nächsten Bereich vornehmen. Nachdem 
Sie sich auf diese Weise bis zum Schluß (Adresse $1547) 
des Listings 2 durchgearbeitet haben, gelangen Sie über den 
Befehl »X« wieder in den Basic-Bereich. Schreiben Sie nun 
folgenden Befehl: 

POKE 45,80:P0KE 46,21:SAVE"FAST-HC",8 
Mit diesem kleinen Trick speichern Sie das Basic- und 
Maschinenprogramm gemeinsam ab, was Sie jetzt auch 
unbedingt tun sollten. 

Nun einiges zur Arbeitsweise des Programms. In den Zei¬ 
len 10 und 12 werden zwei Strings definiert. Sie bestehen 
aus 2 mal 160 Zeichen. Zusammen ergibt das die Anzahl der 
Bytes, die der Seikosha GP-100 zum Ausdruck einer Bild¬ 
schirmzeile mit 320 mal 7 Punkten benötigt. 

In dem Maschinenprogramm wird jeder Punkt in dieser 
Zeile umdefiniert, weil der Drucker die Bytes nicht wie den 
Zeichensatz des Computers waagerecht, sondern senkrecht 
verarbeitet. Das Maschinenprogramm legt die Bytefolge 
dann in dem Speicherbereich ab, wo beide Strings liegen (ein 
Flußdiagramm für das Maschinenprogramm finden Sie im 
Bild Die Strings werden in Zeile 30 zum Drucker 
geschickt. (Jeans Engel/kn) 

riuddiagrann der Maschinenroutine 



Bild 1. Beispiel für eine Hardcopy mit diesem Programm 


1 PRINT"<CLR,2D0WN >***{3SPACE,FLASHON >F 
AST HARDCOPY C4SPACE >C16/C116 CFLASHOFF,4S 
PACE>***" 

2 PRINT"<D0WN,2SPACE>3.48 MIN<4SPACE>UEB 
ER SEIKOSHA GP-100" 

3 PRINT"IDOWN ><C>1985 GERMAN SOFTI3SPAC 
EXP) JENS ENGEL" 

4 PRINT"C4D0WN JGRAPHIK MUSS SCHON IM SP 
EICHER SEIN!" 

5 PRINT"{DOWN )DRUCKER FERTIG? <TASTE>" 

9 IFPEEK (198) =f>4THEN9 

10 A$="ANFANG*************************** 
**************************************** 
***ENDE" 

12 X*=A*+A*:Y*=X*:0PEN1,4:GRAPHIC1 
18 POKE216,0:P0KE217,0:P0KE3,0s PQKE4,0:P 
OKE212,0:FORT=0TO27 

30 SYS5242:PRINT#1,CHR$(8);X*;Y$:NEXT 
40 SYS5242:FORT=0TO159 

42 PQKE5900+T,PEEK(5900+T > AND143:P0KE573 
8+T,PEEK(5738+T)AND143:NEXT 
44 PRINT#1,CHR*<8>;X*;Y$:GRAPHIC0 
©64'et- 

Listing 1. Basic-Programm zu »Fast-Hardcopy« 


/ V = Y + 1 

IHT< Y/' 7 > 

\. =V>T 7, 

+ Ja 


| B = B*128| 


Locate-routine 

E echnet S/V in 
itnap um. 


Y = Y + 1 


\ 

ne i n ‘ 

- i - 


Punkt 
Besetzt 


fl >16 8 / 
Tnein 


Ja 


-<fl>320 v 




Y/ 7 >*T> 


nein 


B in 
Stringl 
an Posi¬ 
tion fl 


B in 
Str»ng 2 
an Posi 
tion A- 
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Bild 2. Flußdiagramm für die Maschinenroutine (Listing 2). 
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Listing 2. Maschinenprogramm zu »Fast-Hardcopy«. 



Bitte mit dem eingebauten Monitor eingeben. 
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TIPS &TRICKS 


CI 6/116 


' Super-Assembler 
mit Befehlserweiterung 

Endlich ein komfortabler Assembler für den C16. 

Die Zeiten der simplen Monitorprogrammierung sind vorbei. 

Jetzt können Sie Maschinenprogramme mit Label schreiben, Texte 
im ASCII-Code einfügen, dezimale oder duale Daten 
eingeben und vieles mehr. 


H aben Sie auch schon vor dem Computer gesessen und 
sich bei der Eingabe von Maschinenprogrammen über 
den unkomfortablen Monitor beim C16 geärgert? Wir 
wollen da Abhilfe schaffen. Der Assembler (Listing 2) arbeitet 
mit Label und bietet Ihnen die Möglichkeit, einen Quelltext zu 
erzeugen, bei dem Sie Daten wahlweise im Dual-, Dezimal-, 
Hex- oder ASCII-Code eingeben. Vom Ladeprogramm 
(Listing 1) wird eine sinnvolle Belegung der Funktionstasten 
generiert. 

Nun näheres zum Assembler. Der Quelltext wird mit Hilfe 
des Basic-Editors eingegeben, ähnlich wie ein Basic- 
Programm. Das erste Zeichen in einer Zeile, die assembliert 
werden soll, muß ein Doppelpunktsein. Vor einem Mnemonic 
ist mindestens ein Leerzeichen zu setzen. Label dürfen eine 
beliebige Länge haben, müssen aber direkt auf den Doppel¬ 
punkt folgen. Zum Einfügen von Daten und Text in den Quell¬ 
code stehen verschiedene Pseudobefehle zur Verfügung 
(siehe Tabelle 1), denen zur Erkennung ein Punkt vorange¬ 
stellt wird. Vor diese kann ein Label gesetzt werden, aller¬ 
dings müssen Sie hier ebenfalls ein Leerzeichen als Trennung 
einfügen. Daten können Dezimal, Hexadezimal (ein $ voran¬ 
gestellt), Dual (%) und als ASCII-Codes (in Anführungs¬ 
zeichen) eingegeben werden. Als arithmetische Operatio¬ 
nen stehen Additionen und Subtraktionen zur Verfügung. 
Normale Basic-Programme können Sie wie bisher editieren, 
speichern, laden und starten. 

Nach der Zellennummer müssen Sie nicht etwa einen Dop¬ 
pelpunkt und eine Reihe Leertasten drücken, es genügt die 
Taste Fl Statt betätigen Sie nur F8 (HELP). 

Was der Assembler alles bietet 


Mit F4 und »RETURN« starten Sie die Assemblierung. Die 
meisten Fehler werden vom Programm erkannt. Der Compu¬ 
ter wirft dann die Meldung »SYNTAX ERROR« und die ent¬ 
sprechende Zeilennummer aus. 

Um ein Programm von Diskette zu laden, brauchen Sie nur 
mit den Cursortasten auf den betreffenden Eintrag im Direc¬ 
tory fahren und die Funktionstaste F2 drücken. Den Quell¬ 
code kann man am besten speichern, indem man die Taste F5 
betätigt und der Name des Programms eingegeben wird. 
Eine eventuell vorhandene ältere Version mit gleichem 
Namen wird dabei überschrieben. 

Im Directory der Diskette finden Sie den Programmnamen 
mit dem angehängten Kürzel ».ASS« wieder. Der Assembler 
belegt 2896 Bytes am Anfang des Speichers. Der Speicher 
für Quelltext und Labeltabelle beginnt jetzt bei $1B50. 20 
KByte Quelltext werden in zirka 18,5 Sekunden assembliert. 
Davon muß man noch die Zeit für die Interrupts abrechnen, 
die normalerweise abgeschaltet werden. Eine eventuell vor¬ 
handene Speichererweiterung kann vom Programm voll aus¬ 
genutzt werden. (Thomas Tieke/kn) 


Pseudobefehle 

,ac — Fügt ASCII-Texte in den Quelltext ein. 

Beispiel: 100 :.BA=$7000 

110 - 

120: JMP MAIN 

130 :TEXT .AC »Hallo, Sie da vorneil« 

140: ,BY 13 

150- 

160 :MAIN LDX #»A« 

170.. . 

.ba - Startadresse des Maschinenprogramms festlegen 

Beispiel: 100- 

110 :.BA= $2000 

120 :.EQ OUT= SFFD2 

130 :.EQ IN= $FFE4 

140.. . 

.by — Fügt Daten in den Quelltext ein 

rviispiel: 100 :.BA = $6000 

110 :LABEL .BY TEST,0,$FFFF,%1110+S44 

120: ,BY$10,$10,$1 OFF-LABEL 

130 :TEXT LDA LABEL, X 

140: STA TEST, Y 

150.. . 

.eq — Weist einem Label einen Wert zu. 

Beispiel: 100... 

110: ,BA= BASIS+TEXT 

120 :.EQ AUSGABE = $FFD2 
130 :.EQ EINGABE = AUSGABE-555 

140- 

150: MAIN LDA # 0 

160: TAX 

170.. . 


Tabelle. Befehlserweiterung von »ASSEMBLER« 


100 KEY5,"DSAVE"+CHR*(34)+"€K12SPACE>.AS 
S"+CHR*< 34)+"€17LEFT >“ 

110 KEY1,":{10SPACE}" 

120 KEY8,":.“ 

130 KEY4,"SYS6780" 

140 KEY2,"DLOAD" +"C1BRIGHT> s CI9LEFT>"+CH 
R*(34)+CHR*<13) 

150 F*=CHR*<34) 

160 A*="P0KE43,DEC("+F$+"50"+F$+"):" 

170 PRINT" CCLR JPQKE44,DEC <"+F*+"1B"+F*+" 
)!POKEDEC("+F*+"1B4F"+F*+") ,0 :“+A*+“NEW" 
1B0 PRINT"C2DQWN>UDAD"+F*+"ASBEMBLER"+F* 
,B,1" 

190 PRINT"C4DOWNJNEW" 

200 PQKE1319,19:PQKE1320,13sPOKE1321,13: 
POKE1322,13:POKE239,4 


Listing 1. Ladeprogramm für »ASSEMBLER« 
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16 Farben für den VC 20 


Welcher VC 20-Besitzer träumt nicht davon, mit 
seinem Computer 16 Farben darzustellen? 

N un ist auch der VC 20 in der Grundversion imstande, 
wie sein großer Bruder, der C64, eine Palette von 
16 Farben anzubieten. Das Programm gebraucht den 
sogenannten »Extend Color Mode«, den viele gar nicht ken¬ 
nen, mit dem aber Einiges getan werden kann. Das Listing 
schreibt eine kurze Maschinenroutine in einen von Basic 
nicht benutzten Speicherbereich. Die Syntax des neuen 
Kommandos lautet:! FARBE BORDER (0-7),TEXT(0- 15). 
Dabei bedeuten: 


0 

schwarz 

8 

orange 

1 

weiß 

9 

hellorange 

2 

rot 

10 

rosa 

3 

Cyan 

11 

hellcyan 

4 

violett 

12 

hellviolett 

5 

grün 

13 

hellgrün 

6 

blau 

14 

hellblau 

7 

gelb 

15 

hellgelb 


(Marcel Kreeft/dm) 


10 PRINT"ICLRJMOMENT" <031> 
20 CK=0 <172> 
30 FOR G=673 TO 754:READ A:POKE ß.A:CK=CK+ 

AsNEXT <209> 
40 IF CKOB662 THEN PR INT "DATA ERROR": END <194> 
50 DATA 169,172,141,008,003,169,002,141,00 

9,003,096,032,115,000,201,033,240 <059> 
60 DATA 009,032,121,000,076,231,199,076,00 

B,207,160,000,032,115,000,217,238 <114> 
70 DATA 002,208,243,200,192,005,200,243,03 

2,155,215,142,132,003,032,121,000 <255> 
80 DATA 201,044,208,225,032,155,215,138,01 

0,010,010,010,109,132,003,141,015 <100> 
90 DATA 144,169,005,032,210,255,076,174.19 

9,070,065,082,066,069 <045> 
100 SYS 673 <104 > 
110 IFARBE 6,14 <167> 
120 PRINT"CCLR,6SPACE,RVS0N>16 FARBEN" <153> 
130 PRINT"C3D0WNISYNTAX: !FARBE BORDER(0-7 

>, TEXT(0-15)" <248> 
140 PRINT"CRVS0N,3BSPACE>" <104> 
150 PRINT"CDOWN,16SPACEJTASTE <127> 
160 PRINT"{DOWN,RVS0N,38SPACE>" <242> 
170 GET Z*: IF Z*-""THEN 170 <065> 
180 PRINT"CCLRJ";:!FARBE 3,6 <1B7> 
190 PRINT"****»»»*'.FARBE****»***":NEW <209> 


© 64'er 

Listing. »16 Farben« mit dem VC 20 
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ln die Datei gesdiaut 


Wollen Sie in Dateien des C16 herumschnüffeln 
oder sie gar ändern, dann haben wir hier das rich¬ 
tige Programm für Sie. 

it dem Hilfsprogramm »P++Z« (Listing) können Sie 
i alle sequentiellen Files bearbeiten, die sich mit 
1 »INPUT #« lesen lassen. Grundideen für dieses Pro¬ 
gramm sind: 

- namentlich bekannte Dateien lesen, ohne das zuständige 
Anwenderprogramm zu benutzen, 

- Dateien kopieren (Sicherheitskopien). 

Sie können aber auch die einzelnen Variablen einer Datei 
verändern oder löschen. Beim Verändern müssen Sie darauf 
achten, daß der vorhandene Variablentyp erhalten bleibt. 



Wenn Sie nicht wissen, ob eine vorhandene Zahl vom zustän¬ 
digen Anwenderprogramm als String oder Integervariable 
gelesen wird, dann sollten Sie Zahlen auch nur durch andere 
Zahlen ersetzen. Eine besondere Leistung des Programms 
ist die Absicherung gegen ein versehentliches Überschrei¬ 
ben von Daten. Vor dem Überschreiben einer Datei wird 
diese in »UTHELP« umbenannt und gespeichert. Die Umbe- 


A$ 

File-Variable 

340 410 1090 1200 1260 1300 5440 5450 

EM$ 

Error-Meldungen 

25 29 5120 


EN 

Error-Nummern 

25 27 28 5120 5130 5140 


ES 

Error-Trak 

25 5120 


ET 

Error-Sektor 

25 5120 

S4GR U 

GF$ 

Anfangs-Zeichen 

195 1090 1200 


GS 

Gesamtzahl Variablen 

340 350 1000 1080 1160 5430 


1 Indiz 

280 320 340 400 410 440 

KT 

Änderungs-Flag 

270 1310 5400 9700 


L 

Loop 

1160 1190 1200 5430 5440 5450 

9730 

N1$ 

Aktuelle Datei 

210 220 260 380 5070 5350 


N2$ 

SAVE Datei 

5070 5080 5090 5310 5410 5420 


N3$ 

RVS + Dateiname 

220 230 1000 1150 1100 5300 


Q$ 

Hilfsvariable 

27 28 270 290 390 1040 1050 1060 1070 

1080 1100 1110 1180 1220 5050 9710 

Q% 

Index 

1080 1090 1260 1300 


S1$ 

Strich 

194 1010 1030 


S2$ 

Sternenreihe 

193 1090 


ST 

Status 

300 310 420 430 


X$ 

Hilfsvariable 

5000 5010 



in« 


Zeile 


1 


19 


24- 

29 

190- 

195 

200- 

230 

250- 

350 


370- 460 
1000-1330 


1240-1250 


1270 und 1310 


5000 


5030 


5070 


5100-5140 


5300-5380 


5400-5480 


9700 


Bemerkung 


Programmname, letzte Änderung, Programm-Länge 
Sprung nach 190, da am Programmanfang oft 
benutzte Unterprogramme gut aufgehoben sind. 
Floppy Error Unterprogramm 
Standardvariable (Programmanfang) 

N1$ und N3$ erhalten Ihren Inhalt 
(siehe Varlablenllste) 

Die Anzahl der Variablen wird für die DIM- 
Anweisung ermittelt. Dieser Teil sichert auch beim 
kleinen Speicherplatz des C 16 eine optimale Aus¬ 
nutzung. Bei mehr als 30 Variablen wird deren 
Anzahl angezeigt. 

Die Variablen werden eingelesen. 

Hier steht das Hauptprogramm. Zuerst gibt man 
die laufende Nummer der gewünschten Variable 
an. Diese wird gezeigt und man kann nach Ein¬ 
gabe von »A* diese ändern, beziehungsweise die 
Variable wird nach Eingabe von »L« gelöscht. Jede 
andere Eingabe führt das Programm wieder zur 
Zeile 1000. Ein »A« anstelle der laufenden Num¬ 
mer läßt alle eingelesenen Variablen auf dem Bild¬ 
schirm erscheinen. Hier sorgt Zeile 1170, daß, 
nachdem der Bildschirm einmal gefüllt wurde, eine 
Programmpause bis zum Drücken einer Taste ein¬ 
gelegt wird. 

zeigen eine für Basic 3.5 spezielle Möglichkeit, 
eine Bildschirmzeile zu löschen. Zuerst muß der 
Cursor eine Zeile nach oben (dort steht »Welche 
Nummer ? xx«). Jetzt wird ein CHR$ (27) in den 
Bildschirm geschrieben. C 16-Besitzer sollten wis¬ 
sen, wenn dem CHR$(27) ein »Q« folgt, wird ab 
Cursorposition die Zeile gelöscht, ohne daß sich 
dabei die Cursorposition selbst verändert. Zeile 
1250 löscht also eine Bildschirmzeile und schreibt 
dann an deren Anfang die Worte »NEUER INHALT:«, 
setzen die Flags für Änderungen an der Datei auf 
99. Diese Flags werden bei einem Speichervor¬ 
gang wieder auf 0 gesetzt, 
wird nur angesprungen, wenn man versucht, das 
Programm zu beenden oder ein neues File einzu¬ 
lesen, bevor Änderungen gespeichert wurden, 
gibt die Möglichkeit, die Diskette zu wechseln 
oder auch den Speichervorgang abzubrechen, 
fragt nach dem neuen Dateinamen, gibt gleichzei¬ 
tig den ursprünglichen Namen als »default« ins 
Eingabefeld. 

überprüft, ob auf der eingelegten Diskette ein File 
mit gleichem Namen vorkommt, der dann in Zeile 
sicherheitshalber in den Namen »UTHELP« umbe¬ 
nannt wird, also nicht sofort verloren geht, 
enthält den eigentlichen Speichervorgang. 
Gespeichert wird unter Gebrauch der Variablen 
N2$ (gefüllt in Zeile 5070). 

Bei Eingabe eines »E« anstelle einer laufenden 
Nummer (Zeile lOOO) wird das Programm been¬ 
det, wenn eventuell Änderungen gespeichert wur¬ 
den oder die Frage nach Speichern verneint 
wurde. > 


Tabelle 1. Variablenliste zu »P + +Z« 


Tabelle 2. Programmstruktur von »P++Z« 
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nennung ist auf dem Bildschirm angezeigt. Sollten Sie nach¬ 
träglich bemerken, daß beim Verändern einer Datei Fehler 
entstanden sind, so können Sie unter »UTHELP« auf die alte 
Datei zurückgreifen. Da auf jeder Diskette nur eine Datei mit 
dem Namen »UTHELP« gespeichert werden kann, sollten Sie 
vor dem Bearbeiten einer weiteren Datei Ihre letzten, mit 
»P++Z« vorgenommenen Änderungen überprüfen. 

Vor dem Laden einer anderen Datei kontrolliert das Pro- 

gramm, ob ausgeführte Änderungen gespeichert wurden. 
Haben Sie dies noch nicht getan, so fragt Sie der Computer, 
ob Sie eine Speicherung wünschen. 

Als weitere Programmierhilfen bieten wir Ihnen für »P+ +Z« 
eine Übersicht zur Programmstruktur (Tabelle 2) und die 
Variablenliste mit den Zeilennummern, in denen die Variable 
vorkommt (Tabelle 1). 

(Herbert Wißmann/kn) 

1 REM"€>P++Z" : REM 6.10.85 PSZ=2586 

1030 PRINT"{ 6 SPACE}A=ALLE VARIABLEN LIST 

3 REM ************** 

EN":PRINTS1*"{DOWN}" 

4 REM * H.WISSMANN * 

1040 Q*="":INPUT"{UP }WELCHE NR: ";Q* 

5 REM * 02822 4922 * 

1050 IFQ*="A"THEN1150 

6 REM * 30.11.83 * 

1060 IFQ*="0"ORQ*="E"THEN9700 

7 REM ************** 

1070 IFQ*="C"THEN5030 

19 GOTO190 

1080 Q7.=VAL (Q*) : I FQ7.< 1ORQ7. >GSTHEN 1040 

24 CLOSE15:OPEN15,8,15 

1090 PRINT"{2D0WN}";S2*}"TDOWN }";BF*;A* 

25 INPUT#15,EN,EM*,ET,ES:IFEN<2THENRETUR 

(Q7.) ; GF*: PR I NT " {DOWN } " ; S2*; " TDOWN }A=AEN 

N 

DERN T2SPACE}L=LOESCHEN" 

27 IFEN=64THENQ*= " {DOWN,2SPACE>IST KEIN 

1100 GETKEYQ*:IFQ*="A"THEN1240 

SEQ.FILETSPACE,FLASH ON>!{FLASH OFF,DOWN 

1110 IFQ*=“L"THEN1290 

>":RETURN 

1120 GOTO1000 

28 I FEN=62THENQ*= " {DOWN, 2SPACE >G IBT ES N 

1130 : 

ICHTTSPACE,FLASH ON>!{FLASH OFF,DOWN>":R 

1140 REM ** DATEI LISTEN 

ETURN 

1150 PRINT"{CLR,3SPACE }" N3* " {DOWN >" 

29 PRINT"{DOWN }"EM*"TSPACE,RVSON,FLASH 

1160 FORL=lTOGS 

ON >ERROR{FLASH OFF,RVOFF >": CLOSE15 : END 

1170 IFPEEK(205)T23THEN1190 

190 G0SUB24 

1180 PRINTN3*;"WEITER NACH RETURN"GETK 

193 S2*=" ******************************* 

EYQ* : PRINT " {CLR}" ! N3*:IFQ*="E"THEN1000 

*********" 

1190 PRINTUSING"### ";L; 

1 94 S 1 * = " **_*_*_* *_*_*_*_****_* ***** ** * * *_*_*_****■* 

1200 PRINT"= ";GF*;A*(L);GF*; " TDOWN}" 

.*_*.*.*_*_*_*_*_*“ 

1210 NEXT 

195 GF*=CHR$(34) 

1220 GETKEYQ*:GOTO1000 

200 PRINT"{CLR,BLUEJ**T 6 SPACEJSEQ. FILES 

123G . 

LESEN/AENDERN{7SPACE }** T2D0WN,2SPACE >FIL 

1240 REM ** AENDERN A*(Q7.) 

E NAMETDOWN}" 

1250 PRINT"{UP }" CHR*(27)"QNEUER INHALT :" 

210 Nl*="":INPUTN1*:IFN1*=“"THEN9720 

1260 INPUTA*(Q7.) 

220 N3$= " {RVSON >" +N1 $+" {RVOFF }" 

1270 KT=99 

230 PRINT"{DOWN,2SPACE}BESTAND "; N3* 

1280 GOTO1000 

240 s 

1290 REM ** LOESCHEN 

250 REM ** REC.ZAEHLEN 

1300 A*(Q-/.)="" 

260 QPEN2, 8 ,3,N1$+",S,R" 

1310 KT=99 

270 Q*= " " : G0SUB25 : I FQ$< > " THENCL0SE2 : PR I 

1320 GOTO1000 

NTQ$ : GETKEYQ* : GOTO200 

1330 : 

280 1=1 

5000 PRINT"{CLR,DOWN }> AENDERUNG ABSPEI 

290 INPUT#2,Q* 

CHERNI2D0WN}":INPUT" JA/NEIN" 5 X* 

300 IFST=64THEN330 

5010 IFX*= " NEIN"THEN9710:ELSE IFX*<>"JA" 

310 IFST< >0THEN25 

THEN5000 

320 1=1+1:GOTO290 

5030 PRINT"{CLR,2SPACE1DATEI SPEICHERN" 

330 CL0SE2 

5040 PRINT"T2D0WN }BITTE GEWUENSCHTE ZIE 

340 GS=I:DIMA*(I) 

LDISKETTE EINLEGEN UND{SPACE,RVSON } RETUR 

350 IFGS>30THEN PRINT GS 5 " VARIABLE, EIN 

N{RVOFF,2SPACE}(Z=ZURUECK) " 

EN MOMENT BITTE{DOWN}" 

5050 GETKEYQ* : IFQ*= " Z " THEN1000 

360 : 

5060 PRINT"{DOWN } UNTER WELCHEM NAMEN SO 

370 REM ** REC.LESEN 

LL DIE DATEI{ 6 SPACE}GESPEICHERT WERDEN{S 

380 □PEN2,8,3,N1$+",S,R" 

PACE,DOWN}" 

390 Q*= G0SUB25:IFQ*< >"" THENCLOSE2 sPRI 

5070 PRINT"{2SPACE > "N1 *: INPUT " {UP }"; N2* : 

NTQ*:GETKEYQ*:GOTO200 

IFN2*=""THEN1000 

400 1=1 

50B0 IFLEN ( N2* > > 15THENN2*=LEFT *( N2*,15) 

410 INPUT#2, A* ( I ) 

5090 PRINT " {UP,2SPACE,RVSON }"; N2* 5 " {RVOF 

420 IFST=64THEN450 

F,2D0WN} " 

430 IFSTO0THEN25 

5100 0PEN5,8,2,N2*+",S,R" 

440 I=I+1:GOTO410 

5120 INPUT#15,EN,EM*,ET,ES 

450 CL0SE2 

5130 CL0SE5:IFEN=62THEN5400 

460 : 

5140 IFENO0THEN29 

1000 PRINT"{CLR, 6 SPACETDATEIINFO ";N3*;" 

"5 BS ;" VARIABLE TDOWN }” 

1010 PRINTS1*" BITTE GEWUENSCHTE LFD.NUM 
MER EINGEBEN" 

5300 PRINT"{CLR,DOWN >DIE ALTE DATEI "N3 

1020 PRINT" ODER 0=NEUER FILE, C=COPY, E 

Llsting zu »P++Z«. 

=ENDE" 

Bitte beachten Sie die Eingabehinweise auf Seite 76. 
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*:PRINT"CDQWN >WIRD NUN{SPACE,RVSQN>'UTH 
ELP'CRVOFFJ.{DOWN}" 

5310 PRINT" DANACH WIRD '"N2*"' NEU ANGE 
LEGT." 

5320 PRINT#15,"SiUTHELP" 

5330 GDSUB24:PRINT"{2SPACE,RVSQNJS-OKTRV 
OFF > " 

5350 PRINT#15,"R:UTHELP=";N1* 

5360 B0SUB24tPRINT"<2SPACE,RVSQN>R-OK{RV 
ÜFFJ" 

5380 : 

5400 KT=0 

5410 0PEN1,8,2,N2*+",S,W" 

5420 G0SUB25:PRINT"C2SPACE,RVSONJSAVING < 
RVOFF >"N2* 

5430 F0RL=1TQQS 

5440 IFA*(L)"THEN5470 

5450 PRINT#1,A*(L) 

5460 G0SUB25 
5470 NEXT 

5480 CLOSEI:GOTO1000 
5620 : 

9700 IFKT=99THENGOTO5000 
9710 IFQ*="0"THENCLR:GQTQ190 
9720 G0SUB25:CLOSEI5 
9730 FORL=1TO30:PRINT:NEXT 
9740 PRINT"ENDE" 

9750 END 


Llstlng zu »P++Z« (Schluß) 
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Kurvenplatten 
mit Hankopy 

Mit Hilfe dieses Programmes ist es auf dem C 16 
möglich, eine oder mehrere Funktionen in ein 
Koordinatensystem zu plotten und anschließend 
eine Hardcopy herzustellen. 

D a der C 16 bei hochauflösender Grafik leider nur noch 
2 KByte für Basic übrig hat, mußte auf REM-Zeilen 
verzichtet werden, wodurch die Übersichtlichkeit des 
Programms etwas leidet. 

Das Programm gliedert sich in folgende Teile: 

10-190 Initialisierung, Eingabe der Funktion, Wahl 
von Koordinatensystem und Maßstab 
200-320 Funktion wird geplottet 
330-390 Festlegung des Nullpunktes 


400-480 Festlegung der Vergrößerung 

510-610 Koordinatensystem und Beschriftung zeichnen 

620-710 Bildschirm lesen und Ausgabe an Drucker 

Nach dem Starten des Programmes mit RUN muß zunächst 
die gewünschte Funktion eingegeben werden. Dies 
geschieht dadurch, daß in der aufgelisteten Zeile 200 die 
gewünschte Funktion anstelle von F(x) eingegeben wird (x 
muß als Variable benutzt werden). 

Durch Drücken von RETURN wird die Zeile programmiert. 
Wenn Sie wünschen, daß der hochauflösende Bildschirm 
gelöscht werden soll, so drücken Sie nun Fl; soll die neue 
Funktion dagegen zu bestehenden Kurven hinzugeplottet 
werden, so drücken Sie F3. 

Nun müssen Sie den Maßstab eingeben (für eine Sinus¬ 
funktion ist beispielsweise 40 ein guter Wert) und eines von 
den drei möglichen Koordinatensystemen auswählen. 

Bei der Eingabe der Funktion braucht man nicht auf Defini¬ 
tionslücken zu achten, da die TRAP-Anweisung in Zeile 240 
»DIVISION BY ZERO« Fehler und andere abfängt. 

Nach Beendigung des Plottens erscheint in der rechten 
oberen Ecke ein »E«. Drückt man jetzt auf »C«, wird der Bild¬ 
schirm gelesen und als Hardcopy über den Drucker ausge¬ 
geben (siehe Bild). Dies dauert leider fast 30 Minuten, da 


10 REM CHRISTIAN SCHOSKE 

340 GOTO3B0 

20 KEY1,"0=1:GOTO90"+CHR*(13) 

350 AY=199:AX=0:DRAM1,AX,0TOAX,AY:DRAW1, 

30 KEY 2,"RUN"+CHR*(13) 

AX,AYTQ320,AY 

40 KEY 3,"0=0:GOTO90"+CHR*(13) 

360 GOTQ380 

50 GRAPHIC0 

370 AY=100:AX=0:DRAM1,AX,0TOAX,200:DRAM1 

60 PRINT" CCLRJ6EBEN SIE FUER F(X> DIE FU 

,AX,AYTQ320,AY 

NKTIQN EIN.C3SPACE>ANSCHLIESSEND CSPACE,R 

380 GOSUB400: IFOO0THENGOSUB510 

VSON>RETURNCRVOFF JDRUECKEN" 

390 TO 190 

70 PRINT"CRVSONJF1CRVOFF >BILDSCHIRM LOE 

400 ME =320/SC 

SCHEN":PRINT"CRVS0NTF3CRV0FF JBILDSCHIEM 

410 IFME >=230THENM=50 

NICHT LOESCHEN":PRINT 

420 IFWE >=200ANDWE <230THENM=25 

80 PRINT"200 DEF FNA (Q) =F(X)" :END 

430 IFME >=120ANDME <200THENM=20 

90 REM 

440 IFWE >= 65ANDWE <120THENM=10 

100 GRAPHIC0:PRINT:PRINT:INPUT"MASSTAB " 

450 IFWE >= 26ANDWE < 65THENM=5 

; SC 

460 IFWE >= 13ANDWE < 26THENM=2 

110 PRINT:PRINT"KOORDINATENSYSTEM " 

470 IFWE<13THENM=1:F=1 

120 PRINT: PRINTSPC (3) “W'SPC (8) "WSPC (9) " 

480 RETURN 

TJ"SPC (17) " 1 C2SPACE>TJ"SPC (8) "1?C2SPACE>2"S 

510 YA=AY: XA=AX:MC=0:IFM>1THENF=1 

PC(6)" W C2SPACE >3" 

520 DO 

130 PRINT" PPPßpTFF"SPC(4) "W"SPC(9) "Wp? 

530 FORD“1TOM 

pWSPC( 13) "fPSPCO) " WSPC (9) "W " 

540 XA=XA+SCaYA=YA—SC:IF(XA/F)>312THENEX 

140 PRINTSPC(3)"tf"SPC(B)"ff"SPC(9)"W"SPC< 

IT 

20) "W"SPC(8 ) "VWpVpVpp' W" 

550 NEXTD:MC=MC+1 

150 GETKEYA*: A7.=VAL (A*> : IFA7.< 10RA7.73THEN 

560 IF(XA/F/B)—1>39THEN5B0 

150 

570 DRAW1,(XA/F),AYTO(XA/F),(AY-5):CHAR1 

160 COLORl,l,l 

,(XA/F/8—1 ) ,(AY/8)-l,STR*(MC*M) 

170 GRAPHI CI ,Q:CHAR1,38,0, " " 

580 IF(YA/F/B) < 1THEN600 

180 ONA7.GOTO 330,350,370 

590 DRAW1,AX,(YA/F)TO(AX+5),(YA/F):CHAR1 

190 REM 

,(AX/8+1 ) ,(YA/F/B),STR*(MC*M) 

200 DEF FNA(Q)=SQR(X) 

600 LOOP 

210 Z=0 

610 RETURN 

220 DO 

620 0PEN4,4 : Z=0 : CMD4 

230 X-(~AX+Z)/SC 

630 FORA=0TO27 

240 TRAP270 

640 FORB=0TO31 

250 Y=SC* ( FNA ( X )) 

650 FORC=0TO10 

260 DRAW1,Z,AY-Y 

660 FORD=0TO6 : LQCATE ( B#10+C ) ,(A*7+D) : IFR 

270 Z=Z+1 

DOT ( 2 ) =1THENZ=Z+2tD 

280 LOOPWHI1_EZ<320 

670 NEXTD 

290 CHAR1,38,0,"E" 

680 Z=Z+12B:A*=A*+CHR*(Z):Z=0:NEXTC 

300 GETKEYA* : IFAS= " C " THEN620 : ELSEGRAPHIC 

690 PRINTCHR* (8) A* ;: A*= "": NEXTB 

0 

700 PRINT" ":NEXTA 

310 PRINT"CCLRJFl NEUER MASSTAB" : PRINT"F 

710 PRINT#4,CHR*(15):CLOSE4 : GOTO300 

2 NEUE FUNTION CUP >” 


320 END 

§M'er 

330 AY= 100: AX=160 : DRAM 1,0, AYTO320 , AY t DRA 


W1,AX,0TOAX,200 

Listing »Funktionenplotter C 16« 
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jeder der 64000 Bildpunkte einzeln ausgelesen und in ein 
dem Drucker genehmes Bitmuster umgewandelt werden 
muß. Dieser Programmteil (ab Zeile 620) wurde für den Sei- 
kosha GP100VC geschrieben und muß für andere Drucker 
eventuell geändert werden. Jeder andere Tastendruck führt 
zu einem kurzen Menü. 

Man kann durch Druck auf Fl Maßstab und Koordinatensy¬ 
stem neu wählen. 

Durch Druck auf F2 kommt man wieder zur Anfangsroutine 
und kann eine neue Funktion eingeben. 

(Christian Schoske/ev) 


HELP und TRACE 
verbessert 

Dieses kleine Programm für den C16 implemen¬ 
tiert eine wesentlich erweiterte TRACE-Funktion. 
Auch HELP wird damit um einiges übersichtli¬ 
cher. Statt wildem Blinken eine augenschonende 
Anzeige! 

N achteilig bei der bisherigen Fehlersuche durch 
»HELP« ist das entnervende Blinken der Fehlerstelle 
und aller nachfolgenden Zeichen. Eine konzentrierte 
Fehlersuche ist kaum möglich. Durch die Änderung dieser 
Routine wird die Fehlerstelle fortan nicht mehr blinkend, son¬ 
dern in reverser Schreibweise ausgegeben und auch nur 
diese einzige Stelle, nicht mehr die gesamte Restzeile. Der 
Fehler ist somit mit einem einzigen Blick zu erfassen. 

Das C16-Tracing mag etwas für Leute mit Facettenaugen 
sein, aber wohl nichts für die Mehrzahl der Anwender. In der 
durch dieses Programm erzeugten neuen Version werden 
nicht mehr wild die abgearbeiteten Zeilennummern ausgege¬ 
ben, sondern die gesamte aktuelle Programmzeile gezeigt. 
Der Befehl, auf dem der Programmzeiger gerade steht, 
erscheint revers geschrieben. Nach jeder Zeilenausgabe 
stoppt das abzuarbeitende Programm, und die Trace-Routine 
wartet auf irgendeinen Tastendruck. 

Danach wird die angezeigte Zeile bis zum folgenden Trenn¬ 
zeichen ausgeführt. Dieser Vorgang wiederholt sich bis zum 
Programmende. Der Programmablauf läßt sich wie gewohnt 
mit der STOP-Taste unterbrechen. 

Vor allem für Basic-Anfänger ist dieses verbesserte Trace 
eine wertvolle Hilfe, da sich das Programm bei der Ausfüh¬ 
rung von Befehl zu Befehl direkt verfolgen läßt. 

(Wolfgang W. Wirth/ev) 


180 REM ************************** 
190 REM 
200 REM 

220 ADRESSE=819:ANZAHL=8 

230 FÜR ZEILE=410 TO 760 STEP 10 

240 SUMME=0 

250 IF ZEILE-760 THEN ANZAHL=3 
260 FQR SPALTE=1 TO ANZAHL 
270 READ BYTES:BYTE=DEC(BYTES) 

280 SUMME=SUMME+BYTE AND 255 

290 POKE ADRESSE,BYTE 

300 ADRESSE=ADRESSE+1 

310 NEXT 

320 READ TESTS 

330 IF SUMME-DEC(TESTS) THEN 360 
340 PRINT"FEHLER IN ZEILE";ZEILE 
350 FLAG=1 
360 NEXT 

370 IF FLAG THEN END 
380 SYS 1082 
400 REM 

410 DATA38,66,53,A0,03,84,49,84,E5 
420 DATA0F,20,5F,A4,A9,20,A4,49,E8 
430 DATA29,7F,20,B2,90,C9,22,D0,C5 
440 DATA06,A5,0F,49,FF,85,0F,C8,5E 
450 DATAF0,09,A2,00,86,C2,24,53,5A 
460 DATA10,19,A6,60,98,18,65,5F,A3 
470 DATA90,01,EB,EC,F6,04,D0,0B,3A 
48B -7ATACD, F5,04,90,06, F0,04,26,76 
490 DATAC2,46,53,20,D1,04,F0,E3,23 
500 DATA10,C8,C9,FF,F0,C4,24,0F,87 
510 DATA30,C0,AA,84,49,A0,81,B4,0C 
520 DATA23,A0,8E,84,22,A0,00,CA,61 
530 DATA10,0F,B1,22,48,E6,22,D0,12 
540 DATA02,E6,23,68,10,F4,30,EF,96 
550 DATAC8,B1,22,30,99,20,B2,90,C6 
560 DATAD0,F6,60,AE,EF,04,E8,F0,9F 
570 DATA19,AD,F0,04,AC,F1,04,85,E0 
580 DATA14,84,15,20,3D,8A,90,0A,2E 
590 DATA20,3E,90,A6,14,A5,15,20,82 
600 DATA33,03,4C,3E,90,20,73,04,E7 
610 DATA20,D9,03,4C,DC,8B,F0,83,22 
620 DATA2C,EB,02,10,2E,24,81 f 10,0C 
630 DATA2A,48,A4,3C,A6,3B,D0,01,04 
640 DATA88,CA,8E,F5,04,BC,F6,04,5F 
650 DATAA5,39,A4,3A,85,14,84,15,EE 
660 DATA20,3D,8A,A6,14,A5,15,20,7B 
670 DATA33,03,20,3E, 90 ,20,DD, EB ,0C 
680 DATAF0,FB,68,C9,EA,F0,03,4C,45 
690 DATA3F,8C,20,73,04,4C,AE,03,5F 
700 DATAA2,FF,86,3A,20,5A,88,86,E9 
710 DATA3B,84,3C,20,73,04,AA,F0,2C 
720 DATAEF,90,09,20,53,89,20,79,1D 
730 DATA04,4C,D3,03,4C,2E,87,A2,C9 
740 DATA03,8E,09,03,E8,8E,03,03,19 
750 DATAA2,D0,8E,08,03,A2,1 B ,8E,56 
760 DATA02,03,60,65 

©G4'er 
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C 16 


»Fenster«-Befehle für den C16 


Dieses Programm stellt den im C 16-Basic leider nicht vorhandenen »Window«-Befehl zur Verfügung 
und macht Schluß mit dem umständlichen Hantieren mit den ESC-Funktionen. 


W er im Befehlssatz des Basic 3.5 nach dem Befehl 
»Window« sucht, wird nicht fündig. Die groß ange¬ 
kündigte moderne Window-Technik läßt doch zu 
wünschen übrig. Ein Window, also ein Bildschirmfenster, 
kann nur mit Hilfe der ESC-Taste definiert werden. 


als Basic-Befehl zur Verfügung zu haben. Ein kleines Maschi¬ 
nenprogramm macht’s möglich. 

Nach Eintippen des DATA-Laders (Listing 1) sollten Sie das 
Programm als erstes unbedingt abspeichern, da es sich nach 
Kontrolle der Prüfsumme selbst initialisiert und anschließend 


So muß man, um ein Window zu setzen, mit dem Cursor an 
die linke obere Ecke des gewünschten Bildschirmfensters 
fahren und die Tasten ESC und T drücken. Die rechte untere 
Ecke des Fensters wird ebenfalls mit dem Cursor gewählt und 
mit ESC und B gesetzt. Erst jetzt ist das Fenster definiert. 

Im Direktmodus ist dieser Aufwand nicht hinderlich, son¬ 
dern bringt eher Vorteile, da kein Befehl »WINDOW« am Bild¬ 
schirm erscheint. Im laufenden Programm ist es jedoch sehr 
umständlich, ein Fenster zu generieren. Es sind sehr viele 
PRINT-Anweisurtgen nötig. 

Da die Window-Funktion jedoch in vielen Programmen 
nützlich ist, lohnt es sich schon, diese Funktion komfortabel 


der DATA-Lader gelöscht wird. 

Haben Sie das Programm abgespeichert, dann können Sie 
es mit »RUN« starten und haben kurz danach den neuen 
Basic-Befehl »FENSTER« zur Verfügung. 

Der FENSTER-Befehl hat folgendes Format und kann in 
jedem Basic-Programm verwendet werden: 

FENSTER AZ,AS, EZ,ES 
Die Parameter haben folgende Bedeutung: 

AZ = Anfangszeile 
AS = AnfangsSpalte 
EZ = Endzeile 
ES = EndSpalte 






10 REH ********************************* 

400 

REM *** FENSTER-BEFEHL AUFRUFEN *** 

20 REM * * 

410 

■ 

■ 


30 REM * FENSTER FUER C 16 8t 116 * 

420 

FENSTER 4,1,25,40 

40 REM * * 

430 

■ 

» 


50 REM * CHRISTIAN QUIRIN SPITZNER * 

440 

REM *** BASIC-LOADER LOESCHEN *** 

60 REM * GRUBERSTRASSE 53 * 

450 

: 


70 REM * S011 POING * 

460 

3 

UJ 

Z 


80 REM * * c 

470 . 


90 REM ********************************* 

480 

REM *** DATA'S *** 

100 : 

490 

: 


110 : 

500 

DATA 

169,024,141,008,003,169,063,141 

120 REM *** SPEICHER BEGRENZEN *** 

510 

dAta 

009,003,162,000,189,205,063,032 

130 : 

520 

DATA 

210,255,232,224,043,208,245,096 

140 POKE 53,255 s POKE 54,62 i POKE 55,2 

530 

DATA 

162,000,032,115,004,221,209,063 

55 s POKE 56,62 : CLR 

540 

DATA 

208,007,232,224,007,208,243,240 

150 : 

550 

DATA 

006,032,121,004,076,217,139,032 

160 REM *** ERKLAERUNG *** 

560 

DATA 

183,251,032,115,004,032,132,157 

170 s 

570 

DATA 

142,249,063,032,145,148,032,132 

180 PRINT" (CLR, DOWN > ,, TAB(12>"*** (SPACE , F 

580 

DATA 

157,142,250,063,032,145,148,032 

LASHON,RED JFENSTER(FLASHOFF,BLACK >***" 

590 

DATA 

132,157,142,251,063,032,145,148 

190 PRINT"(2D0WN,6SPACEJFORMAT:" 

600 

DATA 

032,132,157,142,252,063,174,249 

200 PRINT"(DOWN,6SPACE,PURPLE,RVSON >FENS 

610 

DATA 

063,224,000,208,003,076,161,148 

TER AZ,AS,EZ,ES(BLACK>" 

620 

DATA 

224,024,016,249,174,251,063,224 

210 PRINT"(DOWN,6SPACE>AZ = ANFANGSZEILE 

630 

DATA 

026,016,242,236,249,063,048,237 

•l 

640 

DATA 

174,250,063,224,000,240,230,224 

220 PRINT"(6SPACE>AS = ANFANGSSPALTE" 

650 

DATA 

041,016,226,172,252,063,224,041 

230 PRINT"(6SPACE1EZ = ENDZEILE" 

660 

DATA 

016,219,236,250,063,048,214,162 

240 PRINT"(6SPACEJES = ENDSPALTE" 

670 

DATA 

000,222,249,063,232,224,004,208 

250 PRINT"(DOWN,6SPACEJNICHT IM DIREKTMO 

680 

DATA 

248,173,249,063,133,205,173,250 

DUS !" 

690 

DATA 

063,133,202,169,027,032,210,255 

260 s 

700 

DATA 

169,084,032,210,255,173,251,063 

270 REM DATA'S EINLESEN *** 

710 

DATA 

133,205,173,252,063,133,202,169 

280 i 

720 

DATA 

027,032,210,255,169,066,032,210 

290 FÜR 1=16128 TO 16383 

730 

DATA 

255,169,019,032,210,255,032,193 

300 s READ P 

740 

DATA 

251,032,121,004,076,217,139,000 

310 : Z=Z+P 

730 

DATA 

000,000,000,000,000,147,013,032 

320 : POKE I,P 

760 

DATA 

130,070,069,078,0B3,0B4,069,082 

330 NEXT I 

770 

DATA 

132,032,040,067,041,032,067,072 

340 IF Z <> 30097 THEN PRINT"(DOWN,6SPAC 

780 

DATA 

082,073,083,084,073,065,078,032 

E,FLASHON >DATA ERROR(FLASHOFF >":END 

790 

DATA 

081,085,073,082,073,078,032,083 

350 S 

800 

DATA 

080,073,084,090,078,069,082,013 

360 REM *** INITIALISIEREN *** 

810 

DATA 

013,000,000,000,000,000,000,000 

370 : 

380 SYS 16128 

©64 
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Gibt man im Programm beispielsweise die folgende Zeile 
10 ein, so wird ein Fenster von Spalte 5 der fünften Zeile bis 
einschließlich Spalte 35 der 15. Zeile definiert. 

10 FENSTER 5,5,35,15 

Das Fenster kann durch zweimaliges Drücken der HOME- 
Taste oder durch Generieren eines neuen Fensters gelöscht 
werden. 

Dem Fenster-Befehl müssen auf jeden Fall vier Parameter 
folgen. Für die Parameter AZ und EZ sind nur Zahlen zwi¬ 
schen 1 und 25 zulässig. AS und ES dürfen nur zwischen 1 
und 40 liegen. Außerdem ist zu beachten, daß AZ auf keinen 
Fall größer als EZ, und AS nicht größer als ES gewählt wird. 

Der Fenster-Befehl darf auch nicht im Direktmodus verwen¬ 
det werden. Sollten diese Bedingungen nicht beachtet wer¬ 
den, erscheint die Fehlermeldung »SYNTAX ERROR«. 

Das Beispielprogramm Fenster-Demo (Listing 2) generiert 
zufällige Textfenster und füllt diese farbig aus. 

Der FENSTER-Befehl verkürzt ein Basic-Programm bei 
häufiger Anwendung gegenüber der konventionellen 
Methode über PRINT-Anweisungen ganz erheblich, so daß 
die vom Maschinenprogramm beanspruchten 255 Byte trotz 
des mageren C 16-Speichers kaum ins Gewicht fallen dürf¬ 
ten. 

(Christian Quirin Spitzner/ev) 


100 

REM FENSTER-DEMO 

110 

s 


120 

COLÜR 0,1 s COLOR 4,1 t SCNCLR 

130 

: 


140 

DO 

150 

■ 

■ 

AZ = INT(RND(TI)*12)+1 

160 

3 

EZ = AZ*2+1 

170 

: 

AS = INT(RND(TI)*20)+1 

180 

: 

ES = AS*2 

190 

: 


200 

i 

FENSTER AZ,AS,EZ,ES 

210 

i 


220 

s 

PRINT"LCLR >"j 

230 

3 

COLOR 1,RND(TI>*15+2,RND(TI)*8 

240 

: 

E - (ES—AS+1> *(EZ-AZ+l)—1 

250 

3 

FOR 1=1 TO E 

260 

3 

PRINT"IRVSON,SPACE,RVOFF>“» 

270 

1 

NEXT 

280 

3 

PRINT"tLEFT,RVSON >"j CHR*(148);"CSP 

ACE 

,RVQFF>"; 

290 

LOOP 
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Zekhensatz 

selbstgemacht 

Wollen Sie einen eigenen Zeichensatz definie¬ 
ren? »Charmachine« ermöglicht Ihnen dies in 
einer komfortablen Weise. Da Sie auch mehrfar¬ 
bige Zeichen erzeugen können, ist es besonders 
für Grafiken interessant. 

D ie Möglichkeiten des C16/116 im Bereich der hochauf¬ 
lösenden Bitmap-Grafik sind schier riesig. Doch für 
viele Programme, die grafischer Unterstützung bedür¬ 
fen, sind die nach dem Befehl GRAPHIC 1-4 noch vorhande¬ 
nen 2 KByte nicht ausreichend. In diesem Fall muß der eben¬ 
falls hochauflösende und/oder mehrfarbige Zeichensatz aus¬ 
helfen. »Charmachine« dient dazu, diesen bequem editieren 
zu können. 

Nun zum Umgang mit dem Programm. Nachdem Sie das 
Programm (Listing) eingetippt und gestartet haben, erscheint 
in der linken oberen Ecke des Bildschirms ein 8x8 Punkte 
großes Feld. Rechts daneben sind die Befehle von »Charma¬ 
chine« zu sehen. Im unteren Teil des Bildschirms befindet 
sich ein Feld, in dem alle 256 möglichen Zeichen abgebildet 
sind. Es handelt sich dabei um die positiven Zeichen beider 
Zeichensätze (also des Groß-Klein- und des Groß-Gra- 
fik-Satzes). Die negativen Zeichen beim C16/116 können 
nicht gesondert verändert werden, sie zeigen immer genau 
die Negative ihrer entsprechenden positiven Zeichen. 

In diesem Feld können Sie einen Cursor bewegen und sich 
das zu verändernde Zeichen aussuchen. Das Zeichen unter 
dem Cursor wird unterhalb des 8x8-Feldes hochauflösend 
(hiRes) und mehrfarbig (multicolor) dargestellt. Steht nun der 
Cursor auf dem richtigen Zeichen, so drücken Sie die Taste 
P (P=pick). Das Zeichen wird augenblicklich im 8x8-Punkte- 
feld dargestellt, und der Cursor befindet sich ebenfalls dort. 


Sie können nun das Zeichen ändern mit SPACE für Punkt 
löschen (SPACE = unplot), Z für Punkt setzen (Cursor nach 
rechts) und X für Punkt setzen (Cursor nach unten) (Z/X = 
plot). Man kann das ganze Feld löschen mit C (=Clear) und 
invertieren mit R (=reverse). Ist das Zeichen fertig editiert, so 
kehren Sie mit M (=select mode) in den Wähimodus zurück. 
Hier I»™ len Sie mit den Tasten 1 und 2 (=colors) die Multico- 
lorfarben des Zeichens über »multi« ändern sowie den Zei¬ 
chensatz speichern mit S (= SAVE) und neu laden mit L 
(=LOAD von Diskette). Der Befehl C (=COPY) erlaubt Ihnen, 
das sich noch im 8x8-Feld befindliche Zeichen in ein anderes 
Zeichen zu kopieren, das mit dem Cursor ausgesucht wird. 

Wenn Sie einen fertigen gespeicherten Zeichensatz in ein 
eigenes Programm einbauen wollen, so müssen Sie diesen 
mit LOAD" name "8,1 laden und dann den Befehl NEW einge¬ 
ben. An den Anfang ihres Programms müssen Sie die Befehle 
setzen, die in Zeile 10 von »Charmachine« (Listing) stehen. 
Sie dienen dazu, den Zeichensatz vor dem Überschreiben 
durch Strings zu schützen. Der C16/116 hat dann noch 10 
KByte Speicher frei. Um den Zeichensatz schließlich einzu¬ 
schalten, müssen Sie folgende POKEs eingeben: 

P0KE 65298,0 (Flag für Zeichensatz aus ROM oder RAM), 

POKE 65299,56 (Anfangsadresse des Zeichensatzes im 
RAM), 

POKE 65287,8+(16)+128 

Beim letzten Befehl steht 8 für 40 Zeichen, (16) für Multico¬ 
lor (wahlweise), 128 für Darstellung der Zeichensätze 
Groß+Klein und Groß+Grafik. Ohne 128 wird nur einer die¬ 
ser Zeichensätze, aber mit seinen negativen Zeichen, darge¬ 
stellt. 

Der Undefinierte Zeichensatz liegt im Speicherbereich von 
14336 bis 16383 ($3800 bis $3FFF). 

Nun zu einigen Besonderheiten des Programms. Beim 
Kopieren des Zeichensatzes vom ROM ins RAM greift das 
Programm auf den Monitor des CI6/116 zurück. Vom Pro¬ 
gramm aus wird in den Monitor gesprungen und dort mit dem 
Befehl T (=TRANSVERE) der Zeichensatz von ROM ins RAM 
geschrieben. Um in den Monitor und wieder zurück zu kom¬ 
men, wird der »programmierte Direktmodus« benutzt, wobei 
die erforderlichen Befehle auf den Bildschirm gedruckt wer¬ 
den und durch Auffüllen des Tastaturpuffers mit dem ASCII- 
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Code der RETURN-Taste nach dem Programmabbruch mit 
END ausgeführt werden. Dieses wird in den Zeilen 20010 bis 
20050 bei »Charmachine« vollzogen. 

Dasselbe Verfahren wird beim Speichern des Zeichensat¬ 
zes in den Zeilen 1052 bis 1060 angewandt, nur mit dem 
Monitorbefehl S (=SAVE). 

Die Maschinenroutinen, die ab der Zeile 21010 eingelesen 
werden, dienen zum schnellen Umrechnen der Bits eines 
Zeichens in die Byte-Folge des 8x8-Feldes auf dem Bild¬ 
schirm, sowie dem umgekehrten Vorgang, Zeichen direkt 
nach den Punkte-Anordnungen im 8x8-Feld umzudefinieren. 

Die erste Routine startet ab der Adresse 864 und wird im 
Programm in Zeile 620 aufgerufen, die zweite ab 950 und 
wird in Zeile 720 aufgerufen. 

In der abgebildeten Tabelle finden Sie eine Variablenliste 
für »Charmachine«. 

(Jens Engel/kn) 


Variablenllste 

Tabelle. 

L 

= Ladeflag 

Variablenliste 

F1.F2.F3 

= Multicolorfarben 

zu »Charmachine« 

T,W 

= Schleifenvariablen 


X 

- Cursorposition horizontal 


Y 

= Cursorposition vertikal 


B 

= Zeichen unter Cursor 


XI 

= Letzte X-Positlon 


Y1 

= Letzte Y-Position 


AD 

= Adresse der linken oberen Ecke des Feldes 

A$,B$ 

= gedrückte Taste 


CH 

= aktuelles Zeichen 


CI 

= Adresse dos aktuellen Zoichons im Zeiohonsatz 

C2,C3 

= Hl-, Lowbyte von CI 


Y2 

— Speicher für Y 


NA$ 

» Filename 


Q 

= Lesevariable für READ 



1 REM ******************************** 

266 IFA$="M"THEN700 

2 REM *** CHAR-MACH1NE *** 

268 IFA$="R"THENGOSUBB00 

3 REM ***WR1TTEN 1905 BY JENS ENGEL*** 

290 P0KE52,55:GOTO250 

4 REM ******************************** 

300 X1=31:Y1=7:AD=3676 

9 IFL=1THENL=0:GÜTÜ20 

350 GETKEYA# 

10 P0KE51,255:PQKE52.55:P0KE55,255:PQKE5 

355 GOSUB500 

6,55:CLR 

357 P0KE3475,B:PQKE3481,B 

12 GOTQ20000 

360 IFA*="P"THENGOTQ600 

20 F'QKE65298,0: FQKE65299.56: PQKE652E7, 15 

362 IFA$="□"THENCH=Y*32+X:C1 = 14336+CH*B: 

2 

C2=INT(Cl/256):C3=C1—C2*256 

22 IFPEEK(86 4)< >169THENGOSUB21000 

364 IFA*=”O”THENPOKE3,C3:POKE4,C2:SYS950 

90 F1=2:F2=0:F3=4:CQLQR0,15,2:COLQR1,3,7 

370 IFA*="1"THENF1=F1+1:IFF1=9THENF1=0:C 

:CGLQR4,1:CQL0R2,2,0:C0L0R3,2,4 

QLOR0,15,F1:ELSECOLOR0,15,Fl 

100 PRINT" CP-VSDN .CLR ■ SSPACE> r X. C3SPACE .RV 

372 IFA*="2"THENF2=F2+1:IFF2=BTHENF2=0:C 

SON >£HARßACHINE " 

□L0R3,2,F2:ELSEC0L0R3,2,F2 

102 PRINT"CRVSQN.8SPACE>££“ 

380*¥V A*="S"THEN1000 

104 PRINT"CRVSÜN,SSPACE>££C11SPACE>£0MMA 

382 IFA$="L”THEN2000 

NDS: " 

384 IFAS="N"THENRUN 

106 PRINT" CRVSC1N ■ BSPACE 1.1 J -C2SPACE3 XXttXX 

390 P0KE52,55:GOTO350 

XxxxXxxxxxxxXx i r r iif£" 

500 POKEAD+X+Y*40,B 

108 PRINT“ TRVSDN.BSPACE>JL£.L2SHFT-SPCE>£.i. 

510 IFA*="CRIGHTJ"THENIFX<X1THENX=X+1 

äPACE=UNPLQT £ X/Z.=DQT.rj£." 

512 IFA*="CLEFT>"THENIFX>0THENX=X-1 

110 PRINT"CRVSGN,SSPACE >££ C2SPACE >££ £RS 

514 IFA*="CUP J"THENIFY >0THENY=Y-1 

R=MQVE C4SPACEI£ £=CLEAR££" 

516 IFA*="CD0WN>"THENIFY<Y1THENY=Y+1 

112 F'RINT" CRVSÜN,8SPACE3££CSHFT—SF'CE }££ 

520 B=PEEK(AD+X+Y*40):POKEAD+X+Y*40,86 

£=REVERSEC4SPAC£>£ £=LQAD ££" 

590 RETURN 

114 PRINT"CRVS0N,8SPACE}££C2SPACE:>££ ß=S 

600 REM **CHANGE TD EDIT-MODUS 

ELECT MQDE£ £=3AVE ££." 

610 CH=Y*32+X:Cl=14336+CH*8:C2=INT(Cl/25 

116 PRINT" CRVSQN>-££tLrLÖ:.£jJ-£C2SPACE>.feÄ 1, 

6):C3=C1-C2*256 

2 =CGLORSC2SPACE>£ £=PICK ££." 

615 PRINT" CHQME>" ; : FGRT=0TQ7 -.PRINT" C8SPA 

118 PRINT" CRVSQN, 12SF'ACE>££ N=NEW CHARC3 

CE>":NEXT 

SPACE>£ &=COPY ££" 

620 P0KE3,C3:PDKE4,C2:SYS864:B=PEEK(3072 

120 PRINT" CRVSON,3SF'ACE> <ä C5SF'ACE)<äC2SPAC 

):X=0:Y2=Y:Y=0 

EI fXXXXXXX^XXXXXXXXj^XXXX.r-A" 

640 GOTO200 

122 PRINT" HIRES MULTI" 

700 REM **CHANGE TO SELECT-MODUS 

124 PRINT" CRVSON,DOWN, 13SF'ACE>HRITTEN 19 

710 POKE3072+X+Y*40,B:X=CH-Y2*32:Y=Y2:B= 

85 BY jLENS INGEL" 

CH 

13ltl FÜRT=0TO7:FÜRW=0TO31: PGKE3678+W+T+40 

720 SVS950 

,T*32+W:NEXTW,T:PQKE3676,96 

740 GOTO300 

140 POKE2048+409,92 

800 POKE3072+X+Y*40.B:IFB=32THENB=0:GOTO 

180 X=0:Y=0:b=0 

805 

190 GQTQ300 

802 B=32 

200 X1=7:Y1=7:AD=3072 

805 FORT-0TO7:FORW=0TO7 

250 BETKEYAf 

810 IFPEEK<3072+T+W*40> =0THENPOKE3072+T+ 

255 GOSUB500 

W*40,32:NEXTW,T:RETURN 

258 IFA5="X"THENB=0:A*="CDOWNJ":GOSUB500 

820 POK.E3072+T+W*40,0: NEXTW, T: RETURN 

260 IF A$= " Z " THENB=0 : A*= " CR IGHT > " GQSUB50 

1000 REM** CHAR SAVEN 

0 

1010 PRINT"<CLR,2DOWN>SAVE CHAR-SET:" 

262 IFA*=" "THENB=32: A-f="CRIGHTT":GQSUB5 

1020 PRINT"CDQWNJNAME:“;:INPUTNAS 

00 

1030 PRINT"CDOWNTQK?":BETKEY8* 

264 IFAi=’ , C"THENPRINT" CHOME}" ; :FORT=0TQ7 

1050 P0KE65287,8: POKE1339, F'EEK (65301 > 

:PRINT"CBSPACEI":NEXT:A*="":X=0:Y=0:GüSU 


B510 
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TIPS &TRICKS 


1052 PRINT" {CLR>S "OHR* (34) ; NA*; CHR* (34) 
",8,3800,3FFF" 

1054 PRINT"{2D0WNJX"SPRINT“{DOWN}RUN20": 
PRINT" <4DÜWN>Mfi.t2UP>"; 

1060 P0KE1319,13s POKE1320,19:FORT=0TÜ5:P 
OKE1321+T,13s NEXT:PQKE239,7:END 
2000 REM** CHAR LADEN 

2010 PRINT"{CLR,2D0WN>L0AD CHAR-SET:" 
2020 PRINT"{DOWNJNAME:";:INPUTNA* 

2030 PRINT"CDOWNJOK?":GETKEYB* 

2040 L=1:LOADNA$,8,1 
9999 END 

20000 REM **CHAR-SET COPIEREN 
20005 POKE1339,PEEK(65301) 

20010 PRINT"<CLR,2D0WN>T D000 D800 3800" 
20020 PRINT"{DOWNIX" 

20030 PRINT"{DOWNIRUN20" 

20040 PRINT"C2D0WN>Mfl.{2UP>"; 

20050 POKE1319,13:POKE1320,19:FORT=0TO5: 
POKE1321+T,13:NEX T:P0KE239,7:END 
21000 REM **MC-DATA EINLESEN 
21010 FORT=0TO207:READQ:P0KE864+T,Q:NEXT 
21020 RETURN 

21100 DATA169,0,133,210,133,250,169,12 
21102 DATA133,211,160,0,132,5,132,6 
21104 DATA162,0,234,234,234,56,102,250 
21106 DATA165,250,164,5,49,3,240,6 


21108 DATA169,0,160,0,145,210,234,234 
21110 DATA230,210,208,2,230,211,232,224 
21112 DATA8,208,227,162,0,234,234,234 
21114 DATA169.0,133,250,24,165,210,105 
21116 DATA32,133,210,165,211,105,0,133 
21118 DATA211,234.230,5,165,5,201.8 
21120 DATA208,195,96,0,0,0,169,0 
21122 DATA133.210,133,250,169,12,133,211 
21124 DATA160.0,132,5,132,6,162,0 
21126 DATA76,12,4,56,102,250,160,0 
21128 DATA177,210,208,10,165,250,164,5 
21130 DATA17,3,145,3,234,234,230,210 
21132 DATA208,2,230,211,232,224,8,208 
21134 DATA227,162,0,234,234,234,169,0 
21136 DATA133,250,24,165,210,105,32,133 
21138 DATA210,165,211,105,0,133,211,234 
21140 DATA230,5,165,5,201,8,208,195 
21142 DATA96,0,0,0,169,0,160,0 
21144 DATA145,3,200,145,3,200,145,3 
21146 DATA200,145,3,200,145,3,200,145 
21148 DATA3,200,145,3,200,145,3,76 
21150 DATA203,3,0,0,0,0,0,0 

&S4'er 

Listing zu »Charmachine« (Schluß). 

Bitte beachten Sie die Eingabehinweise auf Seite 76. 
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